کلینیک فوق تخصصی اکسس ( کاربرد vba در اکسس )

کلینیک فوق تخصصی اکسس ( کاربرد vba در اکسس )

به اشتراک گذاری اطلاعات کسب شده در اکسس از سایت آفیس و سایت های تخصصی خارجی
کلینیک فوق تخصصی اکسس ( کاربرد vba در اکسس )

کلینیک فوق تخصصی اکسس ( کاربرد vba در اکسس )

به اشتراک گذاری اطلاعات کسب شده در اکسس از سایت آفیس و سایت های تخصصی خارجی

عناوین یادداشت‌ها

  • بارکد 128C پنج‌شنبه 4 بهمن 1397 17:51
    Code 128C Data - 345678 Data Characters 3 4 5 6 7 8 Multiply each of the two digits with an increasing weight. Weight *1 *2 *3 Sum : (34*1) + (56*2) + (78*3) = 380 For Code 128C, add an additional of 105 to the sum above Total 380 + 105 = 485 Modulo 103 Check Character: 485 % 103 = 73 (which maps to the character 'i')
  • عبارت کدشده در اس ام اس چندپارتی در حالت PDU چهارشنبه 19 دی 1397 20:39
    در حالت ( Unicode ( 16 bit 0 1 2 3 4 5 6 7 8 9 A معادل 10 B معادل 11 C معادل 12 D معادل 13 E معادل 14 F معادل 15 اگر شماره ی موبایل شامل + باشد قبل از شماره تلفن 91 و اگر نباشد 81 معکوس اعداد شماره ی موبایل دورقم دورقم فرضا شماره ی موبایل 09009000001 میشود 900009000F1 چون رقم آخر تک رقم میشود بجایش F قرار میدهیم چون...
  • غیرفعال کردن کلوز باتن پنجره ی اکسس ( Disable Close In Access Window ) سه‌شنبه 22 آبان 1397 16:37
    User31.dll اکسس برای فرم ها و گزارشات خاصیتی رو اعمال کرده ولی برای باتن کلوز اپلیکیشن اکسس تابعی وجود ندارد و با توابع API اینکار امکانپذیر است که باید تابعی نوشت و زمان لود شدن فرم اصلی آنرا فراخوانی نمود . WM_SYSCOMMAND message یک پنجره وقتی که یوزر کامند را از پنجره ی منو انتخاب میکند این پیام را دریافت میکند...
  • تغییر رنگ پس زمینه رکوردهای اکسس ( Alternate Back Color ) یکشنبه 20 آبان 1397 14:28
    باز کردن فرم یا گزارش در نمای دیزاین باز کردن پراپرتی سکشن Detail رفتن به تب Format و انتخاب گزینه های انتخابی خاصیت AlterNate Back Color که اگر None شود رنگ پیش زمینه برداشته میشود . راهنمای انجام کار سایت آفیس به آدرس ذیل .... و سطرهای آخر...
  • مخفی کردن پنجره ی اکسس ( Hide Access Window ) چهارشنبه 16 آبان 1397 11:55
    استفاده از توابع ویندوز API در اکسس تابعی برای این موضوع در نظر گرفته نشده ولی میشود با این توابع و هندل کردن ویندو پنجره ای را بست کامند باتن هایی که در Title Bar هست را برداشت مثل خاصیت MinMax Button =No در پراپرتی شیت فرم اکسس ، یا تغییر پوزیشن نمایش Msgbox سیستمی و یا Icon را در Title Bar فرم انداخت ویا پوزیشن...
  • نمایش رکوردها درپرینت پرویوی گزارش و چاپ به تعداد دلخواه Force New Page using vba جمعه 6 مهر 1397 21:07
    قراردادن کنترل Page Break زیر تکست باکس و درنظر گرفتن تکست باکس برای کانتر یا شمارشگر Me.pagebreakctl.Visible = (Me.txtLineCounter Mod 14=0
  • استفاده از پراپرتی ActiveControl با آبجکت Screen جهت مشخص کردن یا ارجاع به کنترلی که فوکس دارد Screen.ActiveConteol جمعه 6 مهر 1397 14:29
    مثال زیر اکتیو کنترل را به متغیر ctlCurrentControl تخصیص میدهد و اعمال خاصی را بسته به Value ی خاصیت Name کنترل فوکس داده شده انجام میدهد. Dim ctlCurrentControl As Control Set ctlCurrentControl=Screen.ActiveControl If ctlCurrentControl.Name="txtCustomerId" Then انجام عمل خاصی وقتی فوکس به تی اکس تی...
  • فیلتر کردن محتویات داخل لیست باکس در زمان تایپ کردن در تکست باکس Filter Contents Of ListBox While Typing The TextBox جمعه 6 مهر 1397 13:35
    استفاده از رویداد OnChange تکست باکس موردنظربنام فیلتر بای ... اسم لیست باکس در این مثال List0 هست . سورس لیست باکس از جدول بنام Table1 حاوی فیلدهای نام و نام خانوادگی .... در مثال پائین s برداشته شود ( انتهای متن sql ) () Private Sub FilterBy_Change Dim Sql As String Sql="Select Fnam,Lnam From Table1 Where Fnam...
  • گرفتن مقادیر انتخاب شده در لیست باکس Get List Of Selected Items In List Box جمعه 6 مهر 1397 12:01
    ControlName : List0 اگر خاصیت MultiSelect از پراپرتی خود لیست باکس انتخاب شود ( Simple Or Extended ) با متد زیر مقادیر Bound Column لیست باکس صفر در پنجره ی Immediate Windo w محیط VBE لیست خواهد گردید. If Me.List0.ItemsSelected.Count>0 Then Dim VarItem As Variant For Each VarItem In List0.ItemsSelected (Debug.Print...
  • عدم نمایش سابفرم در زمان نداشتن رکورد Visible SubForm جمعه 6 مهر 1397 11:49
    Private Sub Form_Current() With Me![Subform].Form If .RecordsetClone.RecordCount = 0 Then .Visible = False Else .Visible = True End If End With End Sub
  • باز کردن فرم بر اساس شرط خاص Open Form Using Where Condition جمعه 6 مهر 1397 00:24
    "'DoCmd.OpenForm "Employees" , , , "LastName = 'King فرم Employee رو باز میکنه و رکوردهائی را نمایش میدهد که LastName آن برابر King باشد دقت شود چون ولیوی آن نامبر نیست داخل تک کوتیشن یا بین ' ' گذاشته شده اگربجای LastName از آیدی یا کد پرسنلی استفاده شود قسمت آخر باید "ID=10" باشد اگر 10...
  • پنهان کردن یا نمایش ریبون 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