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

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

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

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

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

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

  • ساخت Class در اکسس چهارشنبه 24 شهریور 1400 20:01
    کلاسی با نام AppForm ایجاد شده برای اینکه یکسری خاصیت ها در فرم تنظیم شود AppForm class. Option Compare Database Option Explicit Private WithEvents frm As Access.Form Public Sub SetAttributes(ByRef param_frm As Form) Set frm = param_frm With frm ' some general form attributes .Caption =ThisApp.Name .NavigationButtons...
  • باز شدن کمبو باکس زمان انتقال فوکس چهارشنبه 24 شهریور 1400 19:21
    when the user goes to a new control it will run the code and dropdown if it's a combo box کمبو باکس سه قسمت دارد تکست باکس لیست باکس و دراپ داون زمانیکه کاربر به کنترل جدیدی میرود کد کار خواهد کرد و اگر کمبو باکس باشد DropDown میشود ( البته طبق گفته ی بالا در کنترل ها لوپ زده و گفته اگر ControlType کنترل acComboBox...
  • PreviousControl چهارشنبه 24 شهریور 1400 00:35
    Screen.PreviousControl.Name در کد زیر اگر کنترل تکست باکس یا کمبو باکس باشد و کنترل سورس آن خالی نباشد پراپرتی به False تنظیم میشود ( منظور پراپرتی Dirty ) ترتیب هم نزولی میشود. With Screen.PreviousControl If (.ControlType = acTextBox) or (.ControlType = acComboBox) Then If (.ControlSource <> vbnullstring) and...
  • استفاده از پراپرتی Tag کنترل ها سه‌شنبه 23 شهریور 1400 23:54
    در رویه زیر در رویداد Current فرم نوشته شده ، کنترل هایی که در خاصیت یا پراپرتی Tag آنها حرف R قید شده باشد روئت نشوند Private Sub Form_Current() Dim ctl As Control For Each ctl In Controls If ctl.Properties("Tag") = "R" Then ctl.Properties("Visible") = False Next ctl End Sub
  • ساخت باتن دریکی از پیج های تب کنترل سه‌شنبه 23 شهریور 1400 16:19
    البته این کار فقط در نمای دیزاین امکانپذیر است یعنی باز کردن فرم در این نما اگر فایل به accde تبدیل شود چون به دیزاین دسترسی نیست عملیات انجام نخواهدشد !!! در فرمی یک باتن تعبیه و کدهای زیر در آن نوشته شده قبلش یکسری Variable ها مثل frm باید تعریف شود سپس این کد فرمی بنام form2 را باز کرده و باتنی به تب با نام Page4...
  • رفتن به Tab مورد نظر با استفاده از باتن دوشنبه 22 شهریور 1400 14:39
    انتقال فوکس به تب مورد نظر : فرض کنید در پراپرتی شیت تب کنترل خاصیت Style را به None تغییر داده ( که کلا تب ها مشخص نشود ) و کامند باتنی خارج از تب کنترل ایجاد کرده اید ، زمان کلیک کردن روی باتن CmdOrder فوکس به اولین پیج کنترل TabCtl0 میرود. ( تنظیم Style تب براب عدم ظاهر شدن تب ها و ایجاد باتن بخاطر این است که چپ...
  • Detail_Print سه‌شنبه 16 شهریور 1400 21:29
    Private Sub Detail1_Print(Cancel As Integer, PrintCount As Integer) Dim lngMaxHeight As Long Dim i As Integer lngMaxHeight = Me.Itm0.Height For i = 1 To 3 If lngaMaxHeight < Me.Itm0.Height + Me("rptPREE" & i).Height Then lngMaxHeight = Me.Itm0.Height + Me("rptPREE" & i).Height End If...
  • نمایش کنترل در صفحه نمایش یا پرینت سه‌شنبه 16 شهریور 1400 20:57
    این پراپرتی فقط در قسمت هایی از فرم کاربرد دارد و عمل میکند دیتیل ، هدر و فوتر و اثرش روی تمام کنترل های روی فرم غیر از Page Break است .DisplayWhen=0 0 نمایش در حالت فرم ویو و زمانیکه پرینت میشود که دیفالت است. 1 در حالت فرم ویو پنهان است و فقط زمان چاپ مشاهده میشود. 2 در حالت فرم ویو نمایان شده ولی در چاپ مشاهده...
  • پراپرتی Format و استفاده در رویداد Change کنترل TextBox دوشنبه 15 شهریور 1400 16:56
    کد زیر که از فروم خارجی سال 2008 استخراج شده را تست و کاربردش در نظرات را قید نمائید ( فقط ورود اعداد در تکست باکس مجاز باشد ... Input Mask را تنظیم نمائید ) Private Sub Text1_Change() Text1 = Format(Text1, "#,###") Text1.SelStart = Len(Text1.Text) End Sub فرمت های مرسوم برای تایپ Number و Currency که می...
  • جدا کردن کاراکترها و نگاهی به پراپرتی TextBox.ControlSource چهارشنبه 10 شهریور 1400 20:19
    پراپرتی ControlSource یا به فیلدی از جدول یا کوئری باند میشود یا حاوی عبارتی است که در کنترل تکست باکس تایپ می نمائید ولی چنانچه Expression باشد دیتا ذخیره نمیشود مگر اینکه کنترل سورس به فیلدی از جدول یا کوئری متصل باشد که در صورت تغییر و از دست دادن فوکس دیتای جدید جایگزین خواهد شد. برای Reports این پراپرتی فقط در...
  • جدا کردن کاراکتر عددی از یک متن حاوی کاراکتر حرفی چهارشنبه 10 شهریور 1400 16:56
    در کد زیر توسط تابع Mid کاراکترها یک به یک در تابع Asc قرار داده شده ، چنانچه جواب تابع Asc غیر کد های اسکی 48 تا 57 ( کد اسکی اعداد ) باشد در NumericString ذخیره میشود . کدی که از فروم های خارجی استخراج شده Function NumericString(strInput As String) As String 'Returns a string containing only the numeric characters...
  • عدم رفتن به رکورد بعدی توسط کلید Tab در سینگل فرم و رفتار کلید Enter سه‌شنبه 9 شهریور 1400 23:09
    تنظیم خاصیت Cycle فرم به Current Record چون Enter هم تاثیر دارد می توانید در تنظیمات خود اکسس Next Field را انتخاب کنید ( Move After Enter قسمت Client Setting ) در هر صورت کلید هایی هم وجود دارد که می توانند به رکورد بعد پرش کنند و رفتن به رکورد بعد یعنی ذخیره رکوردی که در آن بودید تصویر زیر هم زمانیکه نمی خواهیم...
  • TabStop سه‌شنبه 9 شهریور 1400 22:53
    TextBox.TabStop برای مشخص شدن جابجایی فوکس به یک کنترل استفاده میشود و از نوع Boolean است ، Yes Or No اگر به No تنظیم شود یا 0 باشد انتقال فوکس به کنترل با فشردن کلید Tab میسر نخواهدشد. زمان ساختن کنترلی در فرم مایکروسافت اکسس بصورت خودکار موقعیتی را در Tab Order فرم اختصاص میدهد.هر کنترل جدید در آخر آن قرار می...
  • پراپرتی SelStart و SelLength سه‌شنبه 9 شهریور 1400 18:29
    SelLength : این پراپرتی تعداد کاراکترهای انتخابی در قسمت تکست باکس یک کمبو باکس را معین می نماید ، از نوع Integer و رنج آن از صفر تا تعداد کاراکترها است ( در قسمت تکست باکس کمبو !!! ) حتما فراموش نشود برای تنظیم یا برگشتی این پراپرتی کنترل باید فوکس داشته باشد پس در کدتون حتما متد SetFocus را بکار ببرید ( Onchange...
  • ComboBox.AddItem Method سه‌شنبه 9 شهریور 1400 17:39
    اضافه کردن آیتم جدید به لیست مقادیر داخل کنترل ComboBox مد نظر نوشتاری : expression . AddItem ( Item , Index ) در آرگومان اول ( Item ) رشته ای که می خواهید نمایش دهید را قرار می دهید و آرگومان دوم ( Index ) شماره ردیفی ( از صفر شروع میشود ) است که می خواهید رشته نمایش داده شود آرگومان دوم Optional یا انتخابیست و اگر...
  • ComboBox.Selected Property سه‌شنبه 9 شهریور 1400 17:24
    expression.Selected(lrow) از این پراپرتی زمانی استفاده میشود که بخواهید انتخابی از کمبو باکس داشته باشید و از صفر شروع می شود مثال زیر : انتخاب پنجمین مورد یا ( Row ) در لیست Me !Combobox.Selected( 4 ) = True استفاده از خاصیت Selected در ویژوال بیسیک برای تعیین اینکه آیتمی در کمبو باکس انتخاب شده باشد
  • Textbox.Text Property سه‌شنبه 9 شهریور 1400 17:11
    زمانیکه کنترل فوکس دارد پراپرتی یا خاصیت Text حاوی دیتای جاری در کنترل TextBox است ؛ خاصیت Value حاوی دیتایی است که آخرین بار ذخیره شده .. زمان انتقال فوکس به کنترل دیگر داده کنترل به روز رسانی یا Update ، و پراپرتی Value به مقدار یا Value جدید تنظیم می شود. تا زمانیکه کنترل دوباره فوکس نگیرد خاصیت Text در دسترس نیست...
  • تابع تبدیل عدد به حروف در اکسس دوشنبه 8 شهریور 1400 15:39
    قصد دارید عددی را به حروف فارسی یا انگلیسی برگردانید بنده بعنوان یک مبتدی و در این سطح به شما دوست اکسسی عزیز عرض میکنم بنده در ذهن خودم تصور کردم اول می بایست تبدیل اعداد در همان سه رقم اول یعنی یکان دهگان و صدگان را انجام دهم سپس یک تابع جداکننده اعداد سه رقم سه رقم ایجاد کنم و در نهایت در تابعی بگویم برای سه رقم...
  • ایجاد لینک جداول یکشنبه 7 شهریور 1400 19:01
    زمانیکه شما جداول را از فرم ها و کوئری و سایر آبجکتها جدا یا Split کرده باشید برای لینک زدن به جداول در دیتابیسی حاوی جداول که پسورد گذاشته اید از کد زیر استفاده نمائید. با OpenDatabase ، دیتابیس دارای پسورد را باز می کنید و سپس با TransferDatabase هم لینک به جداول دیتابیس حاوی جداول strLinkedTablesArray آرایه ای حاوی...
  • Fields.Count Property خاصیت کانت از کالکشن فیلدز یکشنبه 7 شهریور 1400 13:31
    بدلیل اینکه اعضاء یک مجموعه با صفر شروع می شوند باید همیشه کدی که لوپ زده میشود از صفر شروع شده و به پراپرتی Count منهای یک ختم شود.اگر تمایل داشته باشید که بین اعضاء یک مجموعه لوپ بزنید بدون بررسی پراپرتی Count می توانید از کامند یا دستور FOR EACH .... NEXT استفاده کنید. Fields یک کالکشن یا مجموعه ای از ذخایر...
  • acSysUpdateMeter شنبه 6 شهریور 1400 21:25
    With Rs If .Eof Then Exit Sub Else Intret=SysCmd(acSysCmdInitmeter,strmsg,100) End If Do Until .Eof If .PercentPosition<>0 Then Intret=SysCmd( acSysCmdUpdateMeter, .PercentPosition) End If .MoveNext Loop End With intRet =SysCmd(acSysCmdRemoveMeter) rstEmployees.Close varReturn =...
  • کاربرد Move و عملکرد EOF و BOF شنبه 6 شهریور 1400 20:49
    Recordset.Move اگر Move را برای انتقال به رکورد قبل از First Record استفاده کنید به شروع فایل میرود . چنانچه رکوردست حاوی رکوردنباشد و خاصیت BOF آن True باشد استفاده از این متد برای برگشت به عقب باعث ارور میشود. اگر Move را برای بعد از Last Record استفاده کنید نشانگر به انتهای فایل منتقل میشود چنانچه شامل هیچ رکوردی...
  • شمارش تعداد رکوردها در رکوردست شنبه 6 شهریور 1400 20:09
    Forms!Orders.RecordsetClone.MoveLast MsgBox "My form contains " _ & Forms!Orders.RecordsetClone.RecordCount _ & " records.", vbInformation, "Record Count" البته اول از MoveFirst استفاده کنید بعد MoveLast و در اینجا از پراپرتی RecordCount برای شمارش استفاده شده بکار ببر ید چنانچه...
  • شمارش تعداد رکوردهای یک فرم شنبه 6 شهریور 1400 19:57
    می توانید از قالب Dcount استفاده نمائید. Me.Text1 = DCount("[Pick a field]", Me.RecordSource)
  • تعیین و مشخص کردن بالاترین Row در Multiselection جمعه 5 شهریور 1400 20:20
    You can use the SelTop property to specify or determine which row (record) is topmost in the current selection rectangle in a table, query, or form datasheet, or which selected record is topmost in a continuous form با استفاده از خاصیت SelTop می توان بالاترین ردیف ( رکورد جاری ) را در یک مجموعه انتخابی مشخص کرد.این...
  • تعیین جمعه 5 شهریور 1400 20:13
    You can use the SelTop property to specify or determine which row (record) is topmost in the current selection rectangle in a table, query, or form datasheet, or which selected record is topmost in a continuous form
  • انتخاب تب دوم از تب کنترل یکشنبه 3 مرداد 1400 13:05
    collections in Access are Zero based form_formname.tabcontrol.pages(1).setfocus for second tab برای رفتن به تب دوم از عبارت بالا استفاده میشود ایندکس از صفر شروع میشود یعنی تب دوم ایندکس یک را گرفته نه دو
  • انتقال فوکس به کنترل خاصی در تب کنترل یکشنبه 3 مرداد 1400 12:53
    Private Sub YourTabbedControlName_Change() Select Case YourTabbedControlName Case 0 'First Page FirstPageButton.SetFocus Case 1 'Second page SecondPageButton.SetFocus Case 2 'Third page ThirdPageButton.SetFocus End Select End Sub در رویداد Change تب کنترل که به نام YourTabbedControlName است انتخاب هایی صورت گرفته با...
  • شمارش پبج جای موجود درشی تب کنترل یکشنبه 3 مرداد 1400 12:40
    Msgbox TabControl1.Pages.Count با عبارت بالا تعداد پیج های موجود در تب کنترل 1 نمایش داده میشود
  • تغییر مقدار پراپرتی کپشن در پیج کنترل تب یکشنبه 3 مرداد 1400 12:38
    TabControl1.Pages(0).Caption = "First Page" با عبارت بالا خاصیت کپشن پیج با ایندکس صفر در کنترل TabControl1 به First Page تنظیم شده