تو این بخش میخوام نکاتی رو که خودم روز مره و هنگام برنامه نویسی بهشون برخورد میکنم رو بنویسم
این بخش از آموزش اصلی سایت جداست
تغییر شکل آیکن ماوس
برای تغییر شکل آیکن ماوس از این دستور استفاده می شود:
Screen.MousePointer = 0
تغییر به شکل ساعت شنی
Screen.MousePointer = 11


Setting De******ion
0 (Default) The shape is determined by Microsoft Access حالت عادی
1 Normal Select (Arrow)
3 Text Select (I-Beam)
7 Vertical Resize (Size N, S)
9 Horizontal Resize (Size E, W)
11 Busy (Hourglass) ساعت شنی
--------------------------------------------------------------------------------------
.
فارسی کردن کیبرد در هنگام ورود اطلاعات
فکر می کنم با کمک این تابع API خواسته دوستمون برآورده بشه . البته اینطور که من متوجه شدم ایشون در نظر دارن که کاربر کلاً با زبان فارسی ثبت اطلاعات انجام بده .
این کد رو به رخداد On Open فرم استارت آپ برنامه اضافه کنید بنابراین وقتی برنامه باز بشه زبان سیستم شما به فارسی تبدیل میشه و در خلال کار با برنامه اگر زبان دستی تغییر داده نشه تا انتها فارسی باقی خواهد بود حتی در زمان ورود داده درخواستی از سمت Query .


Private Declare Function ActivateKeyboardLayout Lib "user32" (ByVal HKL As Long, ByVal flags As Long) As Long
Private Sub Form_Load()
Call ActivateKeyboardLayout(1, 1)

End Sub
-------------------------------------------------------------------------------------
غیر فعال کردن پیغام های خطا یا آپدیت کوئری

DoCmd.SetWarnings False...DoCmd.SetWarnings True------------------------------------------------------------------------------------خودکار پر شدن ادامه کمبو باکس
من یک کمبو باکس رو به یه جدول وصل کردم و می خواهم ببینم می توانم این کمبو رو به گونه ای تغییر دهم که با وارد کردن ابتدای یک آیتم بصورت اتومات بقیه موارد پر شود سپاسگزارم
کد:
comboBox1.AutoCompleteSource = AutoCompleteSource.ListItems;
comboBox1.AutoCompleteMode = AutoCompleteMode.Append;
------------------------------------------------------------------------------------
جهت دادن خروجی اکسل :
با دو دستور می توانید این کار را انجام بدهید.
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, "TableName", "C:\Eee.xls"

DoCmd.OutputTo acOutputTable, "ObjectName", acFormatXLS, "C:\EEEEE.xls"
روش دوم بهتره ، چون می تونید هم کووری و هم جدول و هم ریپورت و غیره ارسال کنید
برای اطلاعات بیشتر کلمه Output را در قسمت برنامه نویسی انتخاب کنید و دکمه F1 را بزنید تا Help مربوط به همه موارد را ببینید.
در صورتی که مسیر داده نشود ، خود برنامه از شما سوال خواهد کرد.
این مثال در مورد خروجی یک گزارش است:

Private Sub Command37_Click()
On Error GoTo Err_Command37_Click

Dim stDocName As String

stDocName = "rpt_Wage"
DoCmd.OutputTo acReport, stDocName, acFormatXLS

Exit_Command37_Click:
Exit Sub

Err_Command37_Click:
MsgBox Err.De******ion
Resume Exit_Command37_Click

End Sub
در مثال زیر خروجی از یک جدول را بررسی کرده ایم:
Private Sub Command37_Click()
On Error GoTo Err_Command37_Click

Dim stDocName As String

stDocName = "tbl__LCSS_Part"
DoCmd.OutputTo acOutputTable, stDocName, acFormatXLS

Exit_Command37_Click:
Exit Sub

Err_Command37_Click:
MsgBox Err.De******ion
Resume Exit_Command37_Click

End Sub

-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-نکات روزانه و کوچک


اگر در لیست باکس اطلاعات خالی باشد ، موقع تبدیل به تکست باکس مقدار نول را میدهد.
اگر مقدار عددی روی Double تنظیم نشود ، آنگاه مقادیر اعشاری را ذخیره نمیکند.
اخطار: این یک موضوع قدیمی است
به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.