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

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

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

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

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

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

  • فیلتر در اکسس سه‌شنبه 6 مهر 1400 14:16
    در تصویر زیر سه Toggle Button در OptionGroup با نام Frame5 قرار گرفته و ولیوی آنهای به ترتیب 0 تا 2 است با کلیک روی اولین باتن ، تمام رکوردهایی که فیلد chk آنها تیک خورده یا نخورده در سابفرم آورده میشود Forms!Form1!Frame5=0 ، کلیک روی باتن دوم رکوردهایی که فیلد chk آنها غیر صفر است در سابفرم لیست میشود و باتن آخر هم...
  • ( Select Query ( Access برای مشاهده محتویات نیازمند واریز مبلغ مورد نظر است یکشنبه 4 مهر 1400 19:36
  • (Editing Record issues in Access / SQL (Write Conflict شنبه 3 مهر 1400 20:57
    زمان بردن جداول به Sql حتما چک کنید فیلدهایی که پرایمری کی نیست و نباید Null باشد پر شده باشد وگرنه خطا میدهد Int Bigint Is there a bit field in your table? i.e. ‘ 1 or 0 ‘ or ‘yes or no’? I’ve seen Access kick back those errors on linked tables with a bit field and no default value set. You might want to add a...
  • MultiSelection Microsoft Access جمعه 2 مهر 1400 19:16
    ComboBox.ItemData property (Access) : expression.ItemData (Index) پراپرتی ItemData داده در ستون باند شده برای ردیف مشخص شده در یک کمبو باکس را بر می گرداند. ایندکس از صفر شروع میشود با استفاده از مجموعه ItemSelected می توانید تعیین کنید که کدام ردیف یا ردیف ها در لیست باکس آن انتخاب شده باید پراپرتی MultiSelect لیست...
  • Recordset.AbsoluePosition جمعه 2 مهر 1400 13:27
    Sets or returns the relative record number of a Recordset object's current record. شماره رکورد مرتبط با رکورد جاری شئ رکورد ست را بر میگرداند و Zero Based است یعنی از صفر شروع میشود چون در فرم کانتینیوس نمی توان ردیف ترتیبی گذاشت برخلاف آبجکت گزارش در نتیجه برای شماره دادن به رکوردها از AbsolutePosition استفاده می...
  • Option Value پنج‌شنبه 1 مهر 1400 18:56
    یادداشت : پراپرتی OptionValue فقط به کنترل های زیر در یک Option Group اعمال میشود. check box option button toggle button با استفاده از برگه پراپرتی کنترل می توان این پراپرتی را مقدار داد. همینطور از طریق ماکرو یا Vba مگر اینکه بصورت دستی تنظیم کنید یا مقدار دهید. اولین کنترلی که در Option Group قرار میگیرد مقدار یک را...
  • تبدیل ساعت از فرمت 12 ساعته به 24 ساعت در ویندوز 8 پنج‌شنبه 1 مهر 1400 17:15
    البته گفته شده اگر زبان به United Kingdom تغییر پیدا کند (آنها فرمت 24 ساعته دارند مثل کشور ما ) ساعت با فرمت 24 ساعته نمایش داده میشود. Control Panel > Region > Tab : Formats > Date And Time Formats > Change To HH:SS
  • جمع ساعات در اکسس چهارشنبه 31 شهریور 1400 19:07
    برای جمع ساعات ذخیره شده در جدول اکسس می طلبد که از Vba استفاده کنید . یک تابع public بنویسید . نحوه کار بدین صورت است که اول می بایست تک به تک مقادیر h و m و s را بگیرید و با هم جمع بزنید اول از ثانیه شروع بکنید و به اضای هر 60 ثانیه یک عدد به دقیقه اضافه کنید و زمان جمع دقایق می بایست به اضای هر 60 دقیقه یک عدد به...
  • پاس دادن یا انتقال مقدار فیلدی از فرمی به فیلدی در فرم دیگر چهارشنبه 31 شهریور 1400 18:27
    I am writing VBA on Microsoft access Do anyone know how can i set a value of a form's field by using VBA? For example, I am writing the VBA code on form A and want to set value to a field in form B (because I haven't learnt how to pass value between forms) Or How can i write VBA to open a new form with value set to a...
  • ساختن دوباره Primary keys چهارشنبه 31 شهریور 1400 17:49
    زمانیکه در جدول سینگلی که فیلد AutoNumber دارد رکوردی را حذف میکنید دیگر شماره های پشت سر هم را ندارید و می بایست چاره ای بیاندیشید یک راه این است که جدول را در نمای دیزاین باز کنید فیلد AutoNumber را حذف کنید جدول را ببندید و Compact Database را از Option بزنید و دوباره فیلد را به جدول اضافه کنید. برای جداولی که بهم...
  • WNDPROC چهارشنبه 31 شهریور 1400 12:37
    متغیرهایی تعریف شده که زمان ارجاع به آن راحت باشید و مقادیری را به آن تخصیص بدهید با Private Type و مشخص کردن نام و دیتا تایپ آن. Private Type CUSTOM_MSGBOX lTimeout As Long lExitButton As Long lInterval As Long strPrompt As String End Type Public cm As CUSTOM_MSGBOX برای آفیس 32 بیت است نه 64 برای 64 باید Longptr شود...
  • روش انتقال متن فارسی به دکمه های اجرایی موجود در Msgbox سه‌شنبه 30 شهریور 1400 18:31
    اگر کسی کدی داره درباره این موضوع در نظرات کپی کنه تا دیگران هم استفاده کنند برای اینکار از توابع Windows استفاده شده و روش Hook کردن پنجره Msgbox و ارسال پیغام با SendMessageA است.برای ویندوز 32 بیت و 64 روش اظهار تابع فرق میکند. اگر در نظر سنجی شرکت کنید و موافقت خودتون را در نظرات اعلام کنید به زودی کد خط به خط در...
  • Shell Object دوشنبه 29 شهریور 1400 18:12
    windows/win32/shell/shell Private WithEvents Win As WebBrowser Sub SetWin() Dim WinShell 'As New Shell32.Shell Set WinShell = CreateObject("Shell.Application") Set Win = WinShell.Windows(1) End Sub Private Sub Win_CommandStateChange(ByVal Command As Long, ByVal Enable As Boolean) End Sub
  • WebBrowserControl ... ActiveX دوشنبه 29 شهریور 1400 11:26
    کد زیر دیالوگ باکسی برای گرفتن یک فایل باز می کند Private Sub lblBrowse_Click() 'declare file dialog with late binding -> Dim fDialog As Object , strPath As String Set fDialog = Application.FileDialog( 3 ) 'msoFilePicker 'set parameters -> Me .wbContent.ControlSource = "" 'initializing the file dialog...
  • Rich Text Control - Using HTML دوشنبه 29 شهریور 1400 10:49
    < a href = "http://www.stackoverflow.com" > http://www.stackoverflow.com </ a > < a href = "mailto:test@example.com" > mailto:test@example.com </ a > Support HTML in Rich Text Control : < div > , < font > , < strong > , < em > , < u > , < ol...
  • Loops - For Each یکشنبه 28 شهریور 1400 23:37
    Sub forEachExit() Dim element As Variant Dim animals(0 To 5) As String 'We have created an array that can hold 6 elements animals(0) = "Dog" animals(1) = "Cat" animals(4) = "Snake" animals(2) = "Bird" animals(3) = "Buffalo" 'Here we fill each element of the array...
  • Active Object یکشنبه 28 شهریور 1400 20:46
    Sub ActiveObjects() Dim frm As Form, ctl As Control ' Return Form object pointing to active form. Set frm = Screen.ActiveForm MsgBox frm.Name & " is the active form." ' Return Control object pointing to active control. Set ctl = Screen.ActiveControl MsgBox ctl.Name & " is the active control...
  • SendKeys StateMent یکشنبه 28 شهریور 1400 19:22
    The plus sign (+), caret (^), percent sign (%), tilde (~), and parentheses ( ) have special meanings to SendKeys. To specify one of these characters, enclose it within braces ({}). For example, to specify the plus sign, use {+}. Brackets ([ ]) have no special meaning to SendKeys, but you must enclose them in braces....
  • Remotly Click Command Button یکشنبه 28 شهریور 1400 14:39
    اجرای باتنی در سابفرم بدون کلیک روی آن Public Function New_Main () As Form Set New_Main = New Form_frmMain End Function Sub Test () Dim mm As Form Set mm = New_Main Debug . Print mm . Controls . Count With mm . Form ( "frmSub" ) Debug . Print . Controls . Count Debug . Print . Controls (...
  • Clear ClopBoard یکشنبه 28 شهریور 1400 14:26
    برای Windowse 64 Bit قبل از فانکشن PtrSafe قرار دهید و Long هم به LongPtr Private Declare Function OpenClipboard Lib "user32" ( ByVal hwnd As Long ) As Long Private Declare Function EmptyClipboard Lib "user32" () As Long Private Declare Function CloseClipboard Lib "user32" () As Long Sub...
  • CaptureWindow یکشنبه 28 شهریور 1400 14:09
    capcreatecapturewindowa hCap = capCreateCaptureWindow("Take a Camera Shot", WS_CHILD Or WS_VISIBLE, 0, 0, PicWebCam.Width, PicWebCam.Height, PicWebCam.hWnd, 0) If hCap <> 0 Then Call SendMessage(hCap, WM_CAP_DRIVER_CONNECT, 0, 0) Call SendMessage(hCap, WM_CAP_SET_PREVIEWRATE, 66, 0&) Call...
  • لوپ در تمام کنترل های یک تب و تغییر رنگ کنترل فعال یکشنبه 28 شهریور 1400 13:08
    فرم Single دارم با تب کنترل حاوی 15تب . تکست باکس و کمبوباکس های مختلفی در هر تب وجود دارد.فرم unbound است ( به جدولی وصل نیست ) . میخواهم از keypress در تب کنترل استفاده کنم تا در تمام کنترل های تمام تب ها حلقه ایجاد کند و رنگ پس زمینه را به سفید تغییر دهد روی تمام کنترل ها جزکنترل فعال ( فوکس گرفته ) که رنگ پس زمینه...
  • No Data In Report یکشنبه 28 شهریور 1400 11:35
    مثال زیر چگونگی کنسل کردن چاپ گزارشی را نشان میدهد زمانیکه داده ای وجود ندارد.جعبه پیامی کاربر را آگاه میسازد که چاپی که کنسل شده بود فقط نمایش داده میشود. The following example shows how to cancel printing a report when it has no data. A message box notifying the user that the printing has been canceled is also...
  • Form.MouseWheel Event یکشنبه 28 شهریور 1400 11:16
    آرگومان Count در رویداد MouseWheel اگر غلطک ماوس به سمت جلو بچرخد یا Roll شود مثبت است و اگر به عقب رول شود عدد Count منفی است کد زیر تابعی نوشته شده با نام DoMouseWheel که دو آرگومان تعریف کرده یکی گرفتن Form و دیگری lngCount که بین رکوردها جابجا میشود اگر lngCount منفی باشد به رکورد قبلی و اگر مثبت شد به رکورد بعدی...
  • Anchor Controls شنبه 27 شهریور 1400 13:17
    Have a look at how to anchor controls to the form so they can resize with the form.
  • Quotation marks within quotes جمعه 26 شهریور 1400 20:25
    "Orange " & """" & " Pear" You will get the following result: Orange " Pear
  • ساخت کلاس ماژول جمعه 26 شهریور 1400 19:12
    ایجاد 5 Label در فرم : Private click1 As New ClickLabel Private click2 As New ClickLabel Private click3 As New ClickLabel Private click4 As New ClickLabel Private click5 As New ClickLabel Private Sub Form_Load() Set click1.ClickLabel = Me.Label0 Set click2.ClickLabel = Me.Label1 Set click3.ClickLabel = Me.Label2 Set...
  • فراخوانی کامند باتن جمعه 26 شهریور 1400 18:54
    BUT FIRST YOU MUST change the clik procedure behind the command button from "Private Sub cmdButton_Click()" to "Public Sub cmdButton_Click()". تبدیل Private به Public و تامام
  • ساخت Navigation Bar با Command Button پنج‌شنبه 25 شهریور 1400 17:10
    انتقال باتن ها به موقعیت جدید و رو به پائین در فرم تصور کنید سه کامند باتن ساخته و زیر هم قرار داده اید و بعنوان Menu از آن استفاده می نمائید. پراپرتی Name باتن ها را به M0 تا M2 تغییر داده اید. حال در ذهن تصور کنید زمان کلیک کردن روی اولین باتن بنام M0 ، زیر آن به اندازه 3 برابر ارتفاع این باتن به سمت پائین انتقال...
  • Property Set statement پنج‌شنبه 25 شهریور 1400 12:27
    نام ، آرگومان ها و کدی که بدنه یک رویه پراپرتی را تشکیل میدهد ، اعلام می کند که یک مرجع را به یک شئ تنظیم می کند. نوشتار عبارت Property Set قسمت هایی را دارد : Optional : انتخابی است ، نشان میدهد که آرگومان می تواند یا نمی تواند توسط Caller تامین شود. Public : انتخابی است ، نشان میدهد که رویه Property Set قابل دسترسی...