-
پنهان کردن یا نمایش ریبون Disable Ribbon
پنجشنبه 5 مهر 1397 23:31
Docmd.ShowToolBar "Ribbon",acToolBarNo
-
حرکت بین رکوردها در رکوردست ( Move Between Records )
پنجشنبه 5 مهر 1397 23:11
Docmd.GotoRecod , , acNext Docmd.GotoRecod , , acFirs Docmd.GoroRecord , , acPrevious Docmd.GotoRecord , , acLast رفتن به رکورد بعدی رفتن به رکورد اول رفتن به رکوردقبلی رفتن به رکوردآخر Docmd.Runcommand accmdRecordsGoToNext استفاده از کامندهایی که در نوار منو در اکسس ۲۰۰۲ وقبل تر بود زمانیکه روی رکورد اول هستید و باتن...
-
رفتن به رکورد خاص
پنجشنبه 5 مهر 1397 22:55
DoCmd.SearchForRecord acDataForm, "frmOrders", acFirst, "[OrderID] = " & Me!txtOrderID این متد قدرتمند تر از متد FindRecord هست که عملگرهای منطقی نظیر > < And Or و Between رو ساپورت میکند ( ویژگی مهم ) اگر در سابفرم اشاره شود باید به آن فوکس شود با متد SetFocus Form_SubFormName.SetFocud
-
گرفتن تعداد رکوردها در سابفرم Get RecordCount In Subform
پنجشنبه 5 مهر 1397 21:23
Me.RecordsetClone.MoveFirst Me.RecordsetClone.MoveLast Msgbox Me.RecordsetClone.RecordCount رفتن به رکورد اول در رکوردست سابفرم رفتن به رکورد آخر مشاهده ی باکس پیام حاوی تعداد رکوردها نشان دادن رکورد جاری Me.CurrentRecord از تعداد کل رکوردها در رکوردست سابفرم با استفاده از ایونت Current فرم Text0=Me.CurrentRecord...
-
خالی کردن تکست باکس های داخل فرم ( سینگل )
پنجشنبه 5 مهر 1397 20:46
Dim Ctl For Each Ctl In Me.Controls If Ctl.ControlType=acTextBox Then Ctl=Null End If Next 126 - acAttachment '108 - acBoundObjectFrame '106 - acCheckBox '111 - acComboBox '104 - acCommandButton '119 - acCustomControl '103 - acImage '100 - acLabel '102 - acLine '110 - acListBox '114 - acObjectFrame '105 -...
-
شمردن کاراکتر خاص در طول یک رشته
پنجشنبه 5 مهر 1397 20:17
مثال شمارش تعداد ro در رشته ی x "X="Roturzrxro اول در آوردن فاصله در طول رشته ی x اگر وجود داشته باشد (""," ",Replace(x= راه حل خیلی ساده استفاده از توابع Replace و Len (" ","Len(x)-Len(Replace(x,"ro طول رشته ی X میشود 10 و طول رشته در تابع Replace (جایگزینی فاصله بجای...
-
ذخیره کردن مقدار و استفاده در کنترل فرم دیگر که پراپرتی دیفالت ولیو دارد
پنجشنبه 5 مهر 1397 19:40
در فرم اول در رویداد افترآپدیت تکست باکس Tempvars.Add "Var1",Me!Text0 دستور باز شدن فرم دوم با Docmd.OpenForm "Form2" قراردادن در دیفالت ولیوی فرم دوم بعد از Open شدن نوشتن در رویداد Open فرم Me!Text0.DefaultValue=TempVars!Var1
-
ریست کردن شماره ی ردیف در فرم سینگل
پنجشنبه 5 مهر 1397 19:29
اگر AutoNumber باشد که باید فیلد حذف و دوباره اضافه شود عدم نمایش پیغام اکشن کوئری Docmd.SetWarnings False ریست کردن ردیف در سینگل فرم Docmd.RunSql " Update Tbl Set Row=Row-1 Where Row>" & Me!Row Docmd.SetWarnings True
-
ذخیره کردن تغییرات نمای طراحی
پنجشنبه 5 مهر 1397 19:18
DoCmd.Close acForm, "perfrm", acSaveNo
-
Off کردن پیغام های اکشن کوئری نظیر Delete و Update
پنجشنبه 5 مهر 1397 19:11
Docmd.SetWarnings False