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

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

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

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

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

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

  • ویژگی ColumnHidden جهت پنهان کردن ستون در نمای دیتا شیت یکشنبه 28 آذر 1400 19:44
    textbox.columnhidden اگر ویژگی هیدن در فیلد مورد نظر وجود نداشت با کد زیر می توان این ویژگی ( ColumnHidden ) را اضافه کرد البته پراپرتی یونیک است و اگر دوباره اضافه شود خطا نمایان خواهدشد. expression .CreateProperty( Name , Type , Value , DDL ) Field.CreateProperty("ColumnHidden",dbLong,True) You manipulate...
  • متد Add برای اضافه کردن شروط قالب به مجموعه FormatConditions یکشنبه 28 آذر 1400 13:28
    CONDITIONAL FORMATTING ( VBA ) FormatConditions.Add Method : با استفاده از متد Add می توان یک فرمت شرطی بعنوان شئ FormatCondition به مجموعه FormatConditions یک کنترل کمبو یا تکست باکس اضافه نمود. expression . Add ( Type , Operator , Formula1 , Formula2 ) آرگومان Type در متد بالا : AcFormatConditionType : acDataBar...
  • TempVars یا تعریف متغیر و استفاده در سایر فرم ها پنج‌شنبه 25 آذر 1400 14:25
    Tempvar متغیری است که می تواند در Vba مورد استفاده قرار گیرد. مجموعه TempVars که متدهای Add و Delete دادد تا 255 شی Tempvar را می تواند ذخیره کند. اگر آنرا حذف نکنید در حافظه تا بسته شدن دیتابیس باقی می ماند . بهترین پیشنهاد حذف متغیرهاست وقتی که کارتان به اتمام رسیده. برای ارجاع به شی Tempvar در یک مجموعه با شماره...
  • دسترسی به تمام اشیاء دردیتابیس اکسس ( جداول ، کوئری ها ) یا ( فرم و گزارشات ) پنج‌شنبه 25 آذر 1400 14:09
    CurrentData دارای خصوصیات یا ویژگیهای زیر است ، مورد استفاده : فرضا بخواهید لیست جداول را بگیرید یا در جداول و کوئری ها لوپ بزنید برای جستجو. برای دسترسی به مجموعه های زیر و خصوصیات هر کدام Properties AllDatabaseDiagrams AllFunctions AllQueries AllStoredProcedures AllTables AllViews برای دسترسی به فرم ها و گزارشات از...
  • ساخت کوئری در وی بی ای با CreateQueryDef پنج‌شنبه 25 آذر 1400 13:56
    CreateQueryDef در فضای کاری مایکروسافت اکسس اگر چیزی غیر از رشته با طول صفر ("") برای نام شئ فراهم کنید زمان ساخت QueryDef نتیجه این میشود که شئ QueryDef بصورت اتوماتیک به مجموعه QueryDefs اضافه میشود اگر شی مشخص شده ( کوئری ایجاد شده ) قبلا عضو مجموعه QueryDefs باشد ، با خطا مواجه خواهید شد. شما می توانید...
  • گرفتن موقعیت کرسر ماوس در داخل یا بیرون فرم جمعه 19 آذر 1400 14:02
    برای 32 بیت : Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long Private Type POINTAPI x As Long y As Long End Type Dim a As POINTAPI از رویداد OnTimer استفاده میشود تا در هر لحظه تغییر مختصات ماوس در Screen گرفته شود. GetCursorPos a Label1.Caption="X:" & a.x &...
  • پراپرتی UsedRange در اکسل سه‌شنبه 11 آبان 1400 23:32
    در Vba ویژگی UsedRange محدوده ای از WorkSheet که داده در آن قرار دارد را ارائه می کند و از اولین سلول در WorkSheet جایی که مقداری است شروع شده و تا آخرین سلولی که مقدار وجود دارد ختم می شود. In VBA, the UsedRange property represents the range in a worksheet that has data in it. The usedrange starts from the first cell...
  • روش حذف ردیف های خالی در اکسل سه‌شنبه 11 آبان 1400 23:01
    در تصویر اول با توابع If و CountA صورت گرفته ، طبق فرمول اگر در رنج A2 تا D2 کانت سلول برابر صفر بود کلمه Blank و یک بود Not blank در ستون E قید گردد.البته بعد از نوشتن فرمول در سلول E2 حتما کنترل و اینتر را بزنید تا عمل بنماید. در تصویر دوم کالمن A را انتخاب کرده ، دکمه Ctrl بهمراه G را گرفته و از پنجره بازشو Special...
  • ایجادردیف در اکسل با مقدار "insert "در سلول در رنج تعیین شده سه‌شنبه 11 آبان 1400 16:42
    فرض کنید در سل خاصی مقداری را وارد می کنید و می خواهید بعد از مقدار دادن یک ردیف جدید ایجاد گردد. در کد زیر اگر insert در سلول b2 تا b20 وارد شود یک ردیف جدید ایجاد می گردد. Sub InsertRowswithSpecificValue ( ) Dim cell As Range For Each cell In Range ( "b2:b20" ) If cell . Value = "insert" Then...
  • Create TextFile چهارشنبه 21 مهر 1400 16:08
    VBA Code: Sub Ger_sinal ( ) Dim sinal ( ) As integer ReDim sinal ( 3 ) 'Test values sinal ( 0 ) = - 22306 sinal ( 1 ) = 5836 sinal ( 2 ) = 0 sinal ( 3 ) = 23326 'Creates a file and puts the values in it Dim n_arq As Integer Dim path As String path = "C:\Users\DELL\Desktop\App\WAVs\Sinal_VBA.wav" Set fs =...
  • آبجکت Adodb.Stream برای لود کردن فایل در فیلد باینری چهارشنبه 21 مهر 1400 00:03
    راه های زیادی برای لود کردن فایل به bytearray وجود دارد .که میتوان از آبجکت ADODB.Stream استفاده نمود. Dim db As DAO.Database Dim rst As DAO.Recordset Set db = CurrentDb Set rst = db.OpenRecordset( "dbo_WATER_FILES" , dbOpenDynaset, dbSeeChanges) rst.Edit Dim strm As Object Set strm = CreateObject(...
  • Whatsapp Message دوشنبه 19 مهر 1400 12:56
    How to send Whatsapp messages without saving the number Use AddressBar : IE.navigate "whatsapp://send?phone=5511912341234&text=something" '
  • Whatsapp Message دوشنبه 19 مهر 1400 12:56
    برای ارسال فایل حتما باید به یک درگاه باصطلاح خودشون امن وارد بشوید که خب پولیه و مجانی نیست !!! whatsapp/send-file gateway-endpoints برای ارسال فایل البته پرداخت ماهیانه ارسال پیام از طریق web ، فقط از روی کامپیوتر و اسکن کیو آر کد توسط گوشی How to send Whatsapp messages without saving the number How to send Whatsapp...
  • کاربرد چند تابع API در فرم جمعه 16 مهر 1400 14:24
    در رویداد Open فرم Child : hParent = FormParent.hwnd hChild = FormChild.hwnd SetParent hChild, hParent SetWindowPos hChild, hParent, 163, 44, 725, 437, &H4 Private Type Rect Left,Top,Right,Bottom As Long End Type در رویداد Resize فرم Child : Dim mainRECT As RECT hParent = FormParent.hwnd hChild = FormChild.hwnd...
  • انتخاب رنگ استفاده از ChooseColor پنج‌شنبه 15 مهر 1400 17:09
    ChooseColor : ms646912(v=vs.85) DLL : Comdlg32.dll LIB is Required If Use 64 bit windowse , before Function use PtrSafe در لینک زیر نحوه استفاده و فراخوانی دیالوگ باکس ها مثل رنگ ، فونت ، پرینت بیان شده و می توانید به نحو احسنت و دلخواه فیض ببرید DLL آنهم در بالا گفته شده حتما در فراخوانی باید از LIB استفاده شود مثل...
  • متد Docmd.RunCommand پنج‌شنبه 15 مهر 1400 14:28
    انتقال کرسر به رکورد بعدی DoCmd.RunCommand acCmdRecordsGoToNext acCmdCut acCmdUndo acCmdCopy acCmdPase acCmdZoom150 acCmdWindowHide acCmdSelectReord ' SingleForm acCmdSelectForm acCmdSelectReport کاربرد مثال زیر برای به حداکثر یا به حداقل رساندن سایز پنجره اکسس یا برگشت به وضعیت قبلی است. Sub WinSize(strSize As...
  • تغییر Cursor در کنترل چهارشنبه 14 مهر 1400 19:43
    CommandButton.CursorOnHover property تغییرشکل Cursor زمانیکه نشانگر روی باتن نگه داشته میشود و دو مقدار دارد صفر دیفالت و یک HyperlinkHand بصورت دست نشان داده میشود. ازتابع API هم می توان استفاده کرد در MouseMove کنترل استفاده کرد و در MouseMove دیتیل هم برابر مقدار قبلیش تعیین کرد LoadCursor loadcursora...
  • Ribbon چهارشنبه 14 مهر 1400 00:05
    tabs "TabHomeAccess" tabs ribbon backstage : button & Tab "FileSaveAsCurrentFileFormat" "FileOpen" visible="false" "FileCloseDatabase" "TabInfo" "FileSave" "TabPrint" "TabHelp" "ApplicationOptionsDialog"...
  • Windows management instrumentations سه‌شنبه 13 مهر 1400 15:01
    "winmgmts:" win32-networkadapterconfiguration IPENABLED دارد که دیتا تایپ آن BOOLEAN است و میشود IPADDRESS های فعال که دیتا تایپ String دارد و باید بعد از استفاده از متد ExecutedQuery آبجکت WMI در آن لوپ زده شود. Set objQuery = objWMI.ExecQuery("Select * from Win32_NetworkAdapterConfiguration Where...
  • اضافه کردن All به کمبو باکس دوشنبه 12 مهر 1400 23:33
    Sub GetComboBoxList() Dim strList, strSQL As String strList = "<All>;" With cboState With CurrentDb.OpenRecordset(.RowSource) Do Until .EOF strList = strList & !State & ";" .MoveNext Loop End With .RowSourceType = "Value List" .RowSource = strList End With End Sub در کد بالا...
  • CurrentDb.Properties شنبه 10 مهر 1400 18:15
    Name Connect Transactions Updatable CollatingOrder QueryTimeout Version RecordsAffected ReplicaID DesignMasterID Connection ANSIQuery Mode Themed Form Controls AccessVersion Build ProjVer StartUpForm StartUpShowDBWindow StartUpShowStatusBar AllowShortcutMenus AllowFullMenus AllowBuiltInToolbars AllowToolbarChanges...
  • محدود کردن تعداد رکورد در فرم کانتینیوس جمعه 9 مهر 1400 20:16
    :Oncurrent Me.AllowAdditions = (Me.Recordset.RecordCount <20) تا زمانیکه پراپرتی RecordCount در آبجکت رکوردست برابر 19 است پراپرتی AllowAdditions فرم True است و شما اجازه اضافه کردن به آن را دارید درصورتیکه تعداد رکوردها بیست شد پراپرتی به False تنظیم و از اضافه کردن جلوگیری خواهد نمود.
  • Report Properties رکورد خالی جمعه 9 مهر 1400 17:07
    در گزارش برای ایجاد ردیف دو نوع Running Sum وجود دارد یکی OverAll بصورت کلی و دیگری OverGroup جمع در هر گروه و اگر مقدار گروه عوض شد دوباره از یک شروع میشود You can create a text box with a running sum over group and control source of =1 . Name the text box txtGrpRunSum . The text box does not need to be visible....
  • ImageProcess Object ( تغییرات روی تصویر ) پنج‌شنبه 8 مهر 1400 19:05
    پست زیر درباره مواردی که می توان روی Image انجام داد مثل تغییر سایز ( Scale ) یا Rotation و Resolusion ImageProcess : مدیریت زنجیره ی Filter . آبجکت ImageProcess می تواند با استفاده از WIA.ImageProcess ساخته شود. ImageProcess.FilterInfos Property : مجموعه ای از تمام فیلترهای موجود را فراخوانی میکند . هر عکسی شامل...
  • Label Behind The Button پنج‌شنبه 8 مهر 1400 09:31
    در رویداد MouseDown کنترل ..... cmdClose Me.cmdClose.BackStyle = 0 'transparent در رویداد MouseUp کنترل ...... cmdClose Me.cmdClose.BackStyle = 1 'Normal .
  • کامند باتن Rectangle و MouseMove پنج‌شنبه 8 مهر 1400 00:00
  • تغییر رنگ حروف تک به تک بصورت رندوم فقط در لیبل چهارشنبه 7 مهر 1400 23:48
  • مثالی از رویداد تایمر فرم چهارشنبه 7 مهر 1400 23:37
    فرض کنید باتنی دارید که بعد از تایپ حروفی در تکست باکس کار فیلتر یا جستجو را انجام داده و در صورت یافتن یا ... پیامی را در لیبلی که Visible نیست نمایان میکند و مدت معینی با TimeInterval لیبل به حالت چشمک زن در می آید و بعد از فوکس کردن به تکست باکس دوباره لیبل Hide میشود. در رویداد کلیک باتن TimeInterval را تنظیم کنید...
  • تغییر کالر و سایز فونت هر حرف در لیبل چهارشنبه 7 مهر 1400 23:20
  • حرکت رشته از راست به چت کاراکتر به کاراکتر در لیبل چهارشنبه 7 مهر 1400 20:49