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

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

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

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

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

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

  • OpenTextFile Method چهارشنبه 20 فروردین 1399 13:33
    باز کردن تکست فایل و استفاده از قابلیت های خواندن نوشتن و اضافه کردن در آن ,object . OpenTextFile ( filename , iomode , create format :iomode argument ForReading=1 ForWriting=2 Open a file and write to the end of the 'file. You can't' read from this file ' ForAppending=8 :format argument TristateUseDefault=-2 'System...
  • TextStream چهارشنبه 20 فروردین 1399 13:12
    تسهیل دسترسی متوالی به فایل Methods of the TextStream Object Property Description Close Closes an open TextStream file. Read Reads a specified number of characters from a TextStream file and returns the resulting string. ReadAll Reads an entire TextStream file and returns the resulting string. ReadLine Reads an entire...
  • FileSystemObject سه‌شنبه 19 فروردین 1399 18:19
    ("Set fso=CreateObject("Scripting.FileSystemObject (Set fld = fso.GetFolder(strSourcePath For Each sfldr in fld.Subfolders Debug.Print sfldr.Name Next گرفتن فایل های داخل فولدر Set fls=fld.Files For Each f In fls Debug.Print f.Name Next Method Description CopyFile Used to copy an existing file. CopyFolder...
  • ایمپورت داده از اکسل رنج انتخاب شده به فیلدی در اکسس از طریق رکوردست سه‌شنبه 19 فروردین 1399 17:42
    ("Set xls=CreateObject("Excel.Application . . . . . . . Set Wbk=xls.Workbooks.Open ("Set xlsht=Wbk.WorkSheets("Sheet1 Dim db As Dao.DataBase Dim rst As Dao.RecordSet xlsht.Range("A2").Select ("Set rst=db.OpenRecordSet("Select * From Table1 rst.AddNew...
  • تولید شماره بصورت رندوم Generate Random Number سه‌شنبه 19 فروردین 1399 17:02
    در قرعه کشی می توان استفاده کرد عبارت زیر برای تولید عدد صحیح در محدوده یک تا صد :the expression to make the range 1..100 1 + Int( 100 * Rnd()) تولید عدد صحیح بصورت رندوم در یک محدوده خاص : The general expression to generate a random integer : in a particular range is intLower + Int( (intUpper - intLower + 1) * Rnd())...
  • قرعه کشی در اکسس سه‌شنبه 19 فروردین 1399 16:45
    ()Private Sub CmdClear_Click ""= Me.lstData.RowSource End Sub ()Private Sub Form_Timer ( Me.txtDigitOne = CInt(Rnd() * 9 ( Me.txtDigitTwo = CInt(Rnd() * 9 ( Me.txtDigitThree = CInt(Rnd() * 9 End Sub
  • پنهان کردن سکشنی در گزارش دوشنبه 18 فروردین 1399 19:52
    Private Sub GroupFooter0_Format(Cancel As Integer, FormatCount As Integer) ' note that this is linked to the Format event of the Footer0 If Me!MyCount > 1 Then GroupFooter0.Visible = True Else GroupFooter0.Visible= False End If End Sub
  • ERROR 3021 : No current record دوشنبه 18 فروردین 1399 18:44
    With frm.RecordsetClone Bookmark = frm.Bookmark. X = .AbsolutePosition + 1 End With
  • مرتب سازی رکوردهایی با مقدار عددی ذخیره شده در فیلد تکست یکشنبه 17 فروردین 1399 19:47
    در تب Home در گروه Sort & Filter روی Advanced و سپس در شورت کات منو روی Advanced Filter/Sort کلیک بنمائید عبارت زیر را در expression تایپ نمائید در اولین ستون و اولین ردیف . تابع IIf بررسی میکند که آیا مقدار فیلد Null است و اگر چنین باشد بعنوان صفر عمل می کند . اگر مقدار Null نباشد تابع IIf تابع Val را برای بدست...
  • mdlRownumbers Module یکشنبه 17 فروردین 1399 18:50
    Private lngRowNumber As Long Private colPrimaryKeys As VBA.Collection Public Function ResetRowNumber() As Boolean Set colPrimaryKeys = New VBA.Collection lngRowNumber = 0 ResetRowNumber = True End Function Public Function RowNumber(UniqueKeyVariant As Variant) As Long Dim lngTemp As Long On Error Resume Next lngTemp =...
  • تابع GetTickCount جمعه 15 فروردین 1399 16:35
    توابع windows/win32/kernel32/api/index.htm تعداد میلی ثانیه هایی که از زمان شروع کار سیستم باقی مانده اند ، را تا 49.7 روز بازیابی می کند. در سیستم 64 بیت Declare PtrSafe Function GetTickCount Lib "kernel32.dll" () As Long
  • بهم پیوستن دیتای ستون یا فیلد خاص در اکسس پنج‌شنبه 14 فروردین 1399 22:54
    در مثال زیر دیتاهایی در جدولی بنام Table1 رکورد شده و فیلد سوم هر گروه ( Line+Joint ) بصورت سورت id پشت سر هم به جدول Table2 ارسال و در آنجا ذخیره میشود با کوئری نمی توان اینکار را انجام داد در نتیجه مجبوریم از Recordset استفاده کنیم. 1-نوشتن ساختار Sql جهت سورت نمودن رکوردهای جدول Table1 آنهم به این علت که رکوردهای...
  • (Database.Execute method (DAO چهارشنبه 13 فروردین 1399 21:41
    اجرای Action Query یا Sql و سرعتش از Docmd.runsql بیشتر است و فقط روی Action Query ها قابل اجراست در غیر اینصورت ارور خواهد داد اکشن کوئری مثل اپند ، دیلیت یا کوئری آپدیت اگر با رکوردست کار می کنید و لوپ می زنید که کاری انجام شود در حجم زیادی از رکوردها برای سرعت انجام کار از این روش استفاده بنمائید و اگربعد از آن...
  • مرتب سازی اعداد در اکسس با استفاده از VBA دوشنبه 11 فروردین 1399 16:22
    ساده ترین روش مرتب نمودن اعداد بصورت صعودی البته وقتی سورس اعداد در جدول یا کوئری باشد میشود در Query Builder ، عملیات Sort را انجام داد و در لیست باکس بدون هیچ دردسری مرتب سازی را مشاهده نمود ولی هدف یادگیری زبان VBA است وگرنه نیازی به اینکاری که انجام دادیم نیست برای سورت یا مرتب سازی اعداد بصورت صعودی یا ASC از روش...
  • Split text In 3 Boxes یکشنبه 10 فروردین 1399 00:24
    مثالی در جدا کردن تکست ها با نشانه ی فاصله یا Delimiter از یک فروم خارجی جهت استفاده
  • Extract Number From Text یکشنبه 10 فروردین 1399 00:14
    استخراج عدد از تکست نمونه ای که در اینترنت در سایت خارجی یافت شده جهت استفاده اینجا یکم بهم ریختست Function GetNumber(ByVal pStr As String) As Long Dim intLen As Integer Dim n As Integer pStr = Trim(pStr) 'removes leading & trending spaces intLen = Len(pStr) 'stores original length n = 1 'consider this a counter...
  • Dynamic search filter جمعه 8 فروردین 1399 23:31
    استفاده از FilterOn و رویداد KeyUp برای فیلتر در FirstName یا LastName هر کدام بود فیلترشود در کد زیر که از سایت خارجی استخراج شده و در رویداد KeyUp استفاده شده نتیجه آن در شکل بعد از کد نمایان گردیده بطوریکه با فشردن هر کلید چنانچه در یکی از فیلدهای First یا Last بود دیتا گرید فیلتر میشود ، در شکل Tom تایپ شده و...
  • جدا کردن ارقام در VBA جمعه 8 فروردین 1399 21:50
    فرض کنید رشته x1y135 موجود است و میخواهید ارقام را از آن جدا کنید ( خروجی 1135 شود ) اولین کار زدن لوپ ( For.....Next ) در طول آن رشته است ( تابع Len ) و استفاده از تابع MID برای نمایش کاراکترو اینکه در همان کاراکتر مشخص کنید اگر رقم ( Digit ) بود در متغیری مثل s ذخیره شود %Dim i $Dim s (For i=1 To Len(txt (Select...
  • RC4 پنج‌شنبه 7 فروردین 1399 19:15
    Function fRunRC4(sMessage, strKey) As String Dim kLen, x, y, i, j, temp Dim s(256), k(256) 'Init keystream kLen = Len ( strKey ) For i = 0 To 255 s ( i ) = i k ( i ) = Asc ( Mid ( strKey , ( i Mod kLen ) + 1 , 1 )) Next j = 0 For i = 0 To 255 j = ( j + k ( i ) + s ( i )) Mod 255 temp = s ( i ) s ( i ) = s ( j ) s ( j...
  • آموزش VBA در اکسس پنج‌شنبه 7 فروردین 1399 13:25
    تاریخ اعمال ۶اسفند ۹۹ و تاریخ اعتبار قیمت ۳ ماه خصوصی ساعتی 250 گروهی ساعتی 200 درصورت درخواست در نظرات قید گردد اعتبار به پایان رسید لطفا از طریق کتاب های آموزشی اقدام نمائید و سعی کنید به VB6 یا VB.NET شیفت کنید ACCESS قابل اطمینان نیست.
  • CrossTab Query سه‌شنبه 5 فروردین 1399 13:31
  • شرح بارکد 128 به زبان ساده یکشنبه 3 فروردین 1399 19:45
    نوارهای عمودی مشکی در شکل زیر بعنوان Bar یاد شده و نوارسفید بعنوان Space این بارکد ۷ سکشن دارد ۱-منطقه فراخ Quiet Zone ۲-نماد شروع Start Symbol ۳-کد کردن داده Encode Data ۴-نماد بررسی یا چک سیمبل و الزامیست Check Symbol ۵-نماد پایان Stop Symbol ۱-منطقه فرخ Quiet Zone نماد بررسی یا چک سیمبل از جمع حاصلضربهای Value هر...
  • EditRecord Data Block شنبه 2 فروردین 1399 22:17
    editrecord-data-block
  • Data Macro : Before Change شنبه 2 فروردین 1399 22:05
  • SetLocalVar شنبه 2 فروردین 1399 21:08
    این اکشن یک متغیر موقت میسازد و آن را به یک مقدار مشخص تنظیم می نماید متغیرهایی که توسط این اکشن ساخته میشوند فقط در ماکرو میتوانند استفاده شوند . در غیر از ماکرو در Event ، فرم یا گزارش از اکشن SetTempVar استفاده بنمائید . زمانیکه متغیر موقت ساخته شدشما می توانید آنرا به یک Expression ارجاع بدهید. برای مثال اگر...
  • ImageProcess Object شنبه 2 فروردین 1399 16:40
    زنجیره فیلتر را مدیریت می کند. یک شی ImageProcess را می توان با استفاده از "WIA.ImageProcess" به عنوان ProgID در فراخوانی به CreatObject ایجاد کرد. مثال Image Resize Dim Thumb 'As ImageFile Dim Img 'As ImageFile Dim IP 'As ImageProcess "Img ="WIA.ImageFile "IP ="WIA.ImageProcess...
  • CommonDialog.ShowAcquireImage method شنبه 2 فروردین 1399 16:20
    یک یا چند کادر گفتگو را نمایش می دهد که به کاربر امکان می دهد تصویری از یک دستگاه سخت افزاری را بدست آورد CommonDialog object شامل تمام روشهایی است که یک رابط کاربر را نمایش می دهد. کنترل CommonDialog یک کنترل در زمان اجرا نامرئی است که می توانید با استفاده از "WIA.CommonDialog" به عنوان ProgID در فراخوانی...
  • ImageFile object شنبه 2 فروردین 1399 15:52
    Holds images transferred to your computer when you call Transfer or ShowTransfer . The ImageFile object is a container. It also supports image files through LoadFile. An ImageFile object can be created using WIA.ImageFile" as the ProgID in a call to CreateObject " Methods The ImageFile object has these...
  • فیلتر در فرم با ماکرو SetFilter شنبه 2 فروردین 1399 12:19
    ساخت باتن ( در نمای دیزاین ) ---> پراپرتی شیت ---> تب Event ---> کمبو باکس رویداد کلیک ---> Embedded Macro طبق مثال زیر وقتی در تکست باکس ۲ از فرم جاری که Room هست آیدی مشخصی را تایپ کنید و روی باتنی که ساخته اید کلیک کنید چنانچه در منبع موجودباشد در فرم نمایش داده خواهد شد . اگر این ماکرو ( که به فرم...
  • تعیین شماره رکورد در رکوردست جمعه 1 فروردین 1399 21:39
    از صفر شروع میشه یا Zero-Based پس برای اینکه نشان دهد رکورد اول است باید عدد یک را به آن پراپرتی اضافه نمود هنگامی که یک یا چند رکورد پیش از آن حذف می شود ، وضعیت یک رکورد تغییر می کند. همچنین هیچ تضمینی وجود ندارد که یک رکورد دارای موقعیت مطلق یکسانی باشد مثال زیر از خاصیت AbsolutePosition برای رهگیری ( دنبال کردن )...