ش | ی | د | س | چ | پ | ج |
1 | 2 | 3 | 4 | 5 | 6 | 7 |
8 | 9 | 10 | 11 | 12 | 13 | 14 |
15 | 16 | 17 | 18 | 19 | 20 | 21 |
22 | 23 | 24 | 25 | 26 | 27 | 28 |
29 | 30 |
Docmd.GotoRecod , , acNext
Docmd.GotoRecod , , acFirs
Docmd.GoroRecord , , acPrevious
Docmd.GotoRecord , , acLast
رفتن به رکورد بعدی
رفتن به رکورد اول
رفتن به رکوردقبلی
رفتن به رکوردآخر
Docmd.Runcommand accmdRecordsGoToNext
استفاده از کامندهایی که در نوار منو در اکسس ۲۰۰۲ وقبل تر بود
زمانیکه روی رکورد اول هستید و باتن رفتن به رکورد قبلی یا باصطلاح Previous را می فشارید اروری رایز میشود که برای جلوگیری از آن میتوان قبل از کد رفتن یه رکورد On Resume Next را نوشت یا گفت زمانیکه رکورد جاری بزرگتر از یک شد acPrevious انجام شود .
Me.RecordsetClone.MoveFirst
Me.RecordsetClone.MoveLast
Msgbox Me.RecordsetClone.RecordCount
رفتن به رکورد اول در رکوردست سابفرم
رفتن به رکورد آخر
مشاهده ی باکس پیام حاوی تعداد رکوردها
نشان دادن رکورد جاری Me.CurrentRecord از تعداد کل رکوردها در رکوردست سابفرم با استفاده از ایونت Current فرم
Text0=Me.CurrentRecord & "Of" & Me.RecordsetClone.RecordCount
Dim Ctl
For Each Ctl In Me.Controls
If Ctl.ControlType=acTextBox Then
Ctl=Null
End If
Next
مثال شمارش تعداد ro در رشته ی x
"X="Roturzrxro
اول در آوردن فاصله در طول رشته ی x اگر وجود داشته باشد
(""," ",Replace(x=
راه حل خیلی ساده استفاده از توابع Replace و Len
(" ","Len(x)-Len(Replace(x,"ro
طول رشته ی X میشود 10 و طول رشته در تابع Replace (جایگزینی فاصله بجای ro ) میشود 8
در نتیجه تفاضل آنها 2 میشود یعنی دو تا ro در رشته ی x وجود دارد.
در فرم اول در رویداد افترآپدیت تکست باکس
Tempvars.Add "Var1",Me!Text0
دستور باز شدن فرم دوم با
Docmd.OpenForm "Form2"
قراردادن در دیفالت ولیوی فرم دوم بعد از Open شدن
نوشتن در رویداد Open فرم
Me!Text0.DefaultValue=TempVars!Var1
اگر AutoNumber باشد که باید فیلد حذف و دوباره اضافه شود
عدم نمایش پیغام اکشن کوئری
Docmd.SetWarnings False
ریست کردن ردیف در سینگل فرم
Docmd.RunSql " Update Tbl Set Row=Row-1 Where Row>" & Me!Row
Docmd.SetWarnings True