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

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

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

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

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

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

  • ساخت کوئری با CreateQueryDef جمعه 11 مرداد 1398 19:22
    Microsft DAO Object Dim db As Dao.DataBase Dim qd As QueryDef Set db=CurrentDb ("Set qd= db.CreateQueryDef( "Query1" ," SELECT * FROM tblrefud Microsoft Data Access Objects reference 10/17/2018 2 minutes to read Applies to : Access 2013, Office 2013 ComplexType Connection Connections Container...
  • آدرس دهی کنترل موجود در فرم یا سابفرم جمعه 11 مرداد 1398 19:05
    : Form Forms!Form1!Text1 ("Forms("Form1").Controls("Text1 : SubForm وقتی فقط به سابفرم اشاره میکنید و از آوردن پراپرتی Form. استفاده نکنید نتیجتا به کنترل ها دسترسی ندارید و خطا دریافت می کنید. If You Have Created Event In Subform Just Needs Write: Form_SubForm1.Form!Text1 If Not...
  • مدیریت رویدادهای کنترل در فرم خاص جمعه 11 مرداد 1398 16:16
    WithEvents Get بازگشت مقدار پراپرتی و WriteOnly است Set ذخیره مقدار پراپرتی و ReadOnly است Get property procedure that is used to return the value of the property. Set property procedure that is used to store the value of the property. در لود فرم Set mfrm=Me البته قبلش باید کلاس را تعریف کرد
  • HTML LIST جمعه 11 مرداد 1398 15:02
    Text : RichText
  • WebBrowserControl در اکسس ۲۰۱۳ ببعد ( نمایش صفحات HTML در این کنترل ) جمعه 11 مرداد 1398 14:03
    البته در خود این کنترل در اکسس که در ورژن های بالاتر وجود دارد میتوان آدرس وب را در Property Sheet در Control Source داخل " " با = قرار داد و احتیاجی به Navigate هم نیست در 2010 یا 2007 در ActiveX داخل نوار دیزاین و گروه کنترل ها میتوان WebBrowser را انتخاب کرد و در فرم گذاشت در اینصورت پراپرتی بنام...
  • MoveLayout در گزارش / ColumnSpacing پنج‌شنبه 10 مرداد 1398 23:09
  • اعتبارسنجی Validation Rule پنج‌شنبه 10 مرداد 1398 23:06
    ??? Len(AccountNumber)<8
  • وضعیت پیشروی به رکورد بعدی در گزارش پنج‌شنبه 10 مرداد 1398 21:05
    Event : OnFormat In Section (Public Sub ChangeNextRecord(r As Report r.NextRecord = False End Sub
  • Provider ... کانکشن در اکسس برای Activex Data Object پنج‌شنبه 10 مرداد 1398 17:51
    "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=D:\AccessFile.accdb" "Provider = Microsoft.ACE.OLEDB.12.0; Data Source = C:\myFolder\myAccessFile.mdb, Database Password = MyDbPassword" برای اکسس 2003 "Provider = Microsoft.JET.OLEDB.4.0; Data Source = C:\myFolder\myAccessFile.mdb;Jet OLEDB:...
  • چاپ شدن / نشدن سکشنی از ریپورت پنج‌شنبه 10 مرداد 1398 17:46
  • OpenSchema Method فرضا گرفتن نام جداول چهارشنبه 9 مرداد 1398 21:31
    SchemaEnum Constants and Constraint Columns Values Constant Value Description Constraint Columns adSchemaAsserts 0 Returns the assertions CONSTRAINT_CATALOG CONSTRAINT_SCHEMA CONSTRAINT_NAME adSchemaCatalogs 1 Returns the catalog information CATALOG_NAME adSchemaCharacterSets 2 Returns the defined character set in the...
  • ConnectionString در Access 2013 چهارشنبه 9 مرداد 1398 20:46
    To reference ADO from Microsoft Visual Basic In Visual Basic, from the Project menu, select References... . Select Microsoft ActiveX Data Objects x.x Library from the list ADO Recordset Object objRecordset.Open source,actconn,cursortyp,locktyp,opt CursorType Set objRecordset= objConnection. OpenSchema (adSchemaTables)...
  • موجودی انبارهای کالا در حین فروش چهارشنبه 9 مرداد 1398 19:00
    1;موجودی ;2;خرید;3; فروش ;4;برگشت از خرید;5; برگشت از فروش
  • باز کردن فولدر مشخص شده سه‌شنبه 8 مرداد 1398 23:06
    Shell.Application ساخت آبجکت بالا ("\\:Shell.Open("C. ثابت های فولدرهای خاص یا SpecialFolder Environment. Special Folder Enum Desktop 0 Cookies 33 DesktopDirectory 16 Favorites 6 Fonts 20 History 34 MyComputer 17 MyDocuments 5 MyMusic 13 MyPictures 39 MyVideos 14 ProgramFiles 38 ProgramFilesX86 42 Recent 8...
  • دسترسی به فولدرهای ویندوز ( ایجاد شی فولدر ) / کپی آیتم ( ها )به فولدر سه‌شنبه 8 مرداد 1398 21:48
    Shell.Application برای دسترسی به آیتم یا آیتم های فولدرهای خاص استفاده از متد شی Folder که Items هست متد CopyHere ... آیتم یا آیتم هایی را به فولدراضافه میکند ("CopyHere( "C:\AUTOEXEC.BAT. مثال : ثابت هگزا H14& یا دسیمال 20 ( حاصل 1 ×16+4) برای فولدر Fonts (NameSpace(&H14.
  • پراپرتی Filter در فرم و گزارش سه‌شنبه 8 مرداد 1398 21:04
  • باز کردن گزارش و پرینت سه‌شنبه 8 مرداد 1398 19:55
    Private Sub Command33_Click() DoCmd.OpenReport "repAwariaOtwarta", acViewPreview, , _ "[dbAwarieOtwarte].[ID] =" & Me![ID] End Sub DoCmd.PrintOut , , , , 1 در تصویر زیر آرگومان های متد پرینت بیان شده
  • ران کردن کوئری ها یا اجرای عبارات Sql ( با سرعت خوب ) سه‌شنبه 8 مرداد 1398 18:57
    مثل RunSql هشدار نمیدهد ولی سرعت خوبی دارد اگر dbFailOnError استفاده شود در صورت خطا طبق گفته ی داکیومنت در زیر Roll Back میشود . CurrentDB.Execute
  • تغییر سورس جدول لینکی سه‌شنبه 8 مرداد 1398 18:44
    Set tdef = New DAO . TableDef tdef . Name = strLinkedTableName tdef . Connect = strConnect tdef . SourceTableName = strSourceTableName
  • پراپرتیهای TableDef سه‌شنبه 8 مرداد 1398 18:34
    (TableDef Properties (DAO
  • ChooseColor سه‌شنبه 8 مرداد 1398 18:10
    Public Declare PtrSafe Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As String) As Long Public Enum CHOOSE_COLOR_FLAGS &CC_RGBINIT = &H1& CC_FULLOPEN = &H2 &CC_PREVENTFULLOPEN = &H4...
  • توابع API سه‌شنبه 8 مرداد 1398 17:53
    #If Win64 Then 'Win64 = True, Win32 = False, Win16 = False Private Declare PtrSafe Sub apiCopyMemory Lib "Kernel32" Alias "RtlMoveMemory" (MyDest As Any, MySource As Any, ByVal MySize As Long) Private Declare PtrSafe Sub apiExitProcess Lib "Kernel32" Alias "ExitProcess" (ByVal...
  • ساخت شی TabelDef ( جدول در اکسس ) سه‌شنبه 8 مرداد 1398 15:52
    ایجاد شی در حافظه ی موقت Set tdfRoyalties= dbsCurrent.CreateTableDef("Royalties") ایجاد کانکشن =tdfRoyalties.Connect " ODBC;DATABASE=pubs;DSN=Publishers" تنظیم منبع شی ایجادشده " tdfRoyalties.SourceTableName ="roysched اضافه کردن جدول از دیتابیس دیگربه دیتابیس جاری...
  • تخصیص متریال به قطعه ی تولیدی با توجه به درخواست مشتری و نمایش کسری متریال قطعه دوشنبه 7 مرداد 1398 21:32
    ساخت جدول مشخصات مشتری با نام Customer_info CustomerID CustomerCD CustomerTel CustomerAddress ساخت جدول متریال یا متریال های مورد نیاز قطعه ی تولیدی با نام Pro_Requirement Pro_Itm_CD کد قطعه فرضا 120 Pro_Itm_Mat متریال قطعه فرضا کد 120 از ترکیب یا اسمبلی چهار متریال A-D حاصل میشود. ساخت جدول قطعه شامل کد و شرح آن فرضا...
  • Erase در آرایه دوشنبه 7 مرداد 1398 20:07
    تنظیم هر عنصربه صفر یا به "" منظور ( طول رشته به صفر ) یا آزاد کردن فضای اشغال شده ) Dim DynamicArray() As Integer ' Dynamic array. Erase DynamicArray ' Free memory used by array.
  • آرایه در VBA ( مثال فوق العاده ساده ) دوشنبه 7 مرداد 1398 19:59
  • بستن پنجره ( API ) یکشنبه 6 مرداد 1398 22:10
    WM_CLOSE=&H10 &SendMessageA hwnd,WM_CLOSE,0,0
  • ویندوزمسیج( ScrollBar ) حرکت اسکرول در واحد Unit یکشنبه 6 مرداد 1398 21:11
    SendMessageA HandleWindow,WindowseMessage,Wparam(ScrollBar Constants),lparam:Null
  • ایجاد گالری در فرم اکسس یکشنبه 6 مرداد 1398 16:10
    Access Attachment Gallery MultipleImage img() array : Store Image name Redim Preserve : Store Image Name In Array Through Loop In Image Folder Using Dir ( image.Tag ( Store Img Number Loop In Image Control And Set Picture Property To Specified Path And Image Name First Imaging Then Executing ImageControl: Image0 Till...
  • رویداد Delete در فرم شنبه 5 مرداد 1398 19:18