-
#32770
پنجشنبه 9 دی 1400 23:40
DO h=FindWindow("#32770","Choose file") DOEvents Loop Until h editbox=FindWindowEx(x,0&,"ComboBoxEx32",VbNullString). SendMessage by string handle windows msg:WM_SETTEXT 0& maybe ByVal Text برای Hook کردن پنجره : در Form_Load Public Function WindowProc(ByVal hwnd As Long, _ ByVal...
-
عبارت Put و Get در VBA
پنجشنبه 9 دی 1400 18:40
Writes data from a variable to a disk file. نوشتن داده از یک متغیر یه یک فایل نوشتاری عبارت Put : Put [ # ] filenumber , [ recnumber ], varname طبق نوشتار بالا این عبارت سه قسمت دارد که شماره فایل ( 1 تا 255 ) و نام متغیر ضروری هستند و فقط شماره رکورد Optional یا می تواند خالی رها شود. دیتا نوشته شده با Put معمولا با...
-
برقراری تماس از طریق مودم GSM با دستورات AT COMMAND یا فایل HYPER TERMINAL و حتی ارسال پیام ( به فرمت PDU )
پنجشنبه 9 دی 1400 13:55
-
SubClass A Window
یکشنبه 5 دی 1400 16:48
برای ساب کلاس کردن پنجره در 32 بیت : Constants used with Windows APIs Private Const GWL_WNDPROC = -4 Private mHwnd As LongPtr Public mOldWndProc As LongPtr Private Sub Comman4_Click() mHwnd = FindWindowA(vbNullString, Me.Caption) SetHook End Sub Private Sub Form1_Close() RemoveHook End Sub Private Sub SetHook()...
-
دستورات AT در ارسال پیام به دستگاه
یکشنبه 5 دی 1400 12:48
مجموعه ای ارزنده از دستورات ارتباطی گرد آوری شده از سایت ها Communications A tool to provide a visual means to send and receive data through serial ports terminal_online_installer.exe serial-port-terminal1.software hyperterminal.software Split then Conant Concatenated_SMS issues-with-concatenated-sms-pdu...
-
کد نویسی در اکسس
یکشنبه 5 دی 1400 11:44
کد نویسی در اکسس با دریافت مبلغ مربوطه فقط کدهای اکسسی نه script نویسی ، پروژه پذیرفته نمی شود و فقط در حد رفع مشکل. لطفا زیر همین پست مشکل در کد نویسی جهت رفع قرار داده شود شاید سایر دوستان نیز در رفع آن کمک بنمایند. لطفا نظرسنجی فراموش نشود.
-
متن آهنگ قهرمان
شنبه 4 دی 1400 20:48
There's a hero If you look inside your heart You don't have to be afraid Of what you are There's an answer If you reach into your soul And the sorrow that you know Will melt away And then a hero comes along With the strength to carry on And you cast your fears aside And you know you can survive So when you feel like...
-
قیرپاشی مزار روح الله زم
شنبه 4 دی 1400 19:42
یا بسیجی ها بودند یا عناصر خودفروخته جهت تفرقه افکنی ریاست محترم سازمان بهشت زهرا (ع) جناب آقای غضنفری با سلام احتراماً از اقدامِ بهجا و دستور خردمندانه جنابعالی در پاکسازی آلودگیهای ناشی از قیرپاشیِ عوامل ناشناخته! بر سنگ مزار زندهیاد روحالله زم سپاسگزاری میگردد. امید است برخورد شایستهٔ جنابعالی با این پدیده...
-
رویداد NotInList کنترل کمبو باکس و رویداد Onchange
شنبه 4 دی 1400 14:04
این رویداد زمانی رخ می دهد که کاربر مقداری در قسمت تکست باکس کمبو باکس وارد نماید و آن در لیست کمبو باکس نباشد. The NotInList event occurs when the user enters a value in the text box portion of comb box that isn't in the combo box list. رویداد NotInList زمانی اتفاق می افتد که کاربر مقداری را در قسمت تکست باکس...
-
دستور Insert into یا کوئری اپند با استفاده از عبارات Sql در موتور پایگاه داده اکسس
شنبه 4 دی 1400 12:32
شکل نوشتاری بدین صورت است : Insert Into TableName ( Fields ,,,n) Values (Number,'Text') داخل Values نمی توان از Select Query استفاده کرد همانطور که اشاره شد بعد از insert into نام جدول درج میگردد حتما Space رعایت شود بعد داخل پرانتز نام فیلدهای جدول قید میگردد اگر چند فیلد باشد با جداکننده -> , از هم جدا می شوند و...
-
فریبا نادری
شنبه 4 دی 1400 11:27
-
ویژگی DisplayControl برای نمایش کنترل Yes/No در حالت چک باکس یا کمبو باکس
جمعه 3 دی 1400 23:20
فیلد با تایپ Yes/No ایجاد کرده اید و می خواهید بصورت چک باکس ( acCheckBox ) یا کمبو باکس ( acComboBox ) نمایش داده شود، لذا از این ویژگی مربوطه در نمای دیزای استفاده می کنید . CurrentDb TableDefs Fields Properties access.accontroltype در نمای دیزاین جدول در فیلدها حتی با دیتا تایپ Attachment ، پراپرتی بنام Caption...
-
نوشتن کلاس ماژول
جمعه 3 دی 1400 13:49
Private varPropertyName As Variant Property Get PropertyName() As Variant If IsObject(varPropertyName) Then Set PropertyName = varPropertyName Else PropertyName = varPropertyName End If End Property Property Set PropertyName(rData As Variant) Set varPropertyName = rData End Property در زیر کلاس ماژول clsStudent تعریف...
-
فیلد تکست در اکسس دسکتاپ و محدودیت های کاراکتری و تعداد آبجکت در اکسس
پنجشنبه 2 دی 1400 16:38
Long Text In .accdb files, the Long Text field works the same as the Memo field of old. That is, it can store up to about a gigabyte of text, even though controls on forms and reports can only display the first 64,000 characters. You can set Long Text fields to display Rich Text, which includes formatting like bold...
-
خواندن (از) یا نوشتن (در) فایل تکست با آبجکت ADO STREAM یا vbscript
پنجشنبه 2 دی 1400 14:40
CreateObject : ADODB.STREAM With AdoStream .Charset="UTF-8" .Type=2 'text .Open .WriteText "xcfg" .SaveToFile "D:\C.txt",2 Str=.ReadText End With AdoStream.Close Set AdoStream=Nothing .LoadFromFile FileName طریقه دیگر نوشتن یا خواندن یا اضافه کردن به فایل تکست : Create Object :...
-
لیست فیلدها در فیلد Attachment
چهارشنبه 1 دی 1400 22:45
بعلت حجیم شدن دیتابیس از بکار بردن فیلد Attachment پرهیز کنید. برای باز شدن فایلی چه اکسل چه اکسس چه عکس از FollowHyperLink استفاده کنید Application.FollowHyperLink "مسیرو نام فایل" Fields List : کالمن FileData در فیلدی با دیتا تایپ Attachment ( مثل تصویر زیر فیلد با نام image که Child است و Parent ، جدول )...
-
Run time error یا خطای حین اجرا در اکسس ( نکات محدودیتی اکسس )
چهارشنبه 1 دی 1400 17:54
خطاهای زیادی وجود دارد ولی متداول ترینش ذکر شده و بسیار است در صورت تجربه خطاهای دیگر با ذکر مثال و رفعش در زیر مطلب نظر کامنت بگذارید. Error 7961 یعنی ماژول نوشته شده در دیتابیس موجود نیست اکسس کارایی که برنامه برای جایی نوشتن و حالا یا پولشو ندادن یا بیرونش کردن معمولا این کارها رو انجام میدن پس اگه برنامه می نویسید...
-
تبدیل پیکسل به پونیت و پوینت به اینج
چهارشنبه 1 دی 1400 15:01
1 PX = 0.75 PT 12 PX = 9 PT یک پوینت برابر یک هفتاد و دوم اینچ است اگر با توابعی مختصات Screen را بدست آوردید ( به پیکسل ) به pt تبدیل و برای تبدیل به اینچ از روش زیر استفاده کنید. One point is equal to 1/72 of an inch Note that all dimensions retrieved by GetSystemMetrics are in pixels. GetSystemMetrics nIndex ' Lib...
-
ایجاد سایه در رنگ theme در ویژگی BackColor ( کنترل Image )
چهارشنبه 1 دی 1400 12:36
Image Control : The BackShade property contains a numeric expression that can be used to darken the theme color in the BackColor property. The default value of the BackShade property is 100, which is neutral, and does not change the theme color. ویژگی BackShade حاوی عبارت عددی که می تواند برای تیره کردن رنگ تم در...
-
Teigger در Sql
سهشنبه 30 آذر 1400 22:03
Create Trigger [dbo].[Trg_Update] On [dbo].[myTable] After Update As Begin Update myTable Set ModifyDateTime = GETDATE() Where myTable.id = (Select d.id from deleted d) End ساخت تریگری که بعد از ویرایش فیلد ModifyDateTime پر می شود البته با شرط id After Update Trigger در SQL یک رویه ذخیره شده در جدول پایگاه داده است...
-
اصلاح دیزاین جدول در اکسس یا اصلاح فیلد تایپ
سهشنبه 30 آذر 1400 11:50
ALTER TABLE : Modifies the design of a table after it has been created with the CREATE TABLE statement. دیزاین یک جدول ایجاد شده با CREATE TABLE را تغییر می دهد . ALTER COLUMN نیز برای اصلاح دیتا تایپ فیلد استفاده می شود. ( در نمای SQL ) ALTER TABLE table {ADD {COLUMN field type [( size )] [NOT NULL] [CONSTRAINT index...
-
تغییر نام آبجکت ها در اکسس ( جدول ، کوئری ، فرم و ... )
سهشنبه 30 آذر 1400 10:30
لینک زیر داکیومنت آفیس برای تغییر نام آبجکت ها در دیتابیس اکسس CopyObject هم برای کپی کردن. office/vba/api/access.docmd.rename expression . Rename ( NewName , ObjectType , OldName ) سه آرگومان دارد اولی نام جدید دومی نام آبجکت با پیشوند ac مثل acForm یا acTable و سومی نام قدیمی شئ مورد نظر کپی آبجکت مورد نظر از یک...
-
SetOption جهت تنظیم مقادیر options در دیالوگ باکس Access Options مثل تغییر رفتن به رکورد دیگر یا خاموش کردن پیام های کوئری اپند
دوشنبه 29 آذر 1400 22:45
اگر چک باکس باشد از True و False استفاده می شود Selection Behavior یا رفتار انتخاب در چک باکس Application.SetOption "Selection Behavior" , 1 آیتم زیر انتقال بعد از زدن اینتر اگر مقدار آرگومان دوم یک باشد وقتی در فیلد جدول اینتر بزنید به فیلد بعدی می رود بستگی به tab order دارد ولی اگر 2 باشد بعد از زدن اینتر...
-
تریگر در اکسس ( ماکروهایی که اتومات اجرا می شوند )
دوشنبه 29 آذر 1400 22:33
Data Macro آپدیت فیلد اتومات در جدول after-insert-macro-event Macro Action : The SetLocalVar action creates a temporary variable and set it to a specific value. ایجاد متغیر موقت و تنظیم به مقدار مشخص در Vba به TempVars مراجعه شود
-
Store Procedure در SQL
دوشنبه 29 آذر 1400 19:48
پروسیجور یا دستورالعمل ذخیره شده در Sql که می توان در هر جا مورد استفاده قرار داد. در زیر پروسیجور SelectAllCustomers با پارامترهایی تعریف شده CREATE PROCEDURE SelectAllCustomers @City nvarchar(30), @PostalCode nvarchar(10) AS SELECT * FROM Customers WHERE City = @City AND PostalCode = @PostalCode GO; نحوه فراخوانی :...
-
نامگذاری پادشاهان طاغوتی در تهران
دوشنبه 29 آذر 1400 14:45
www.khabaronline.ir/amp/1584248/ سخنگوی شورای شهر تهران ادامه داد: ما در جمهوری اسلامی سیاست های رسمی داریم و انقلاب اسلامی سال 57، ضدیت با سلطنت 2500 ساله شاهنشاهی بود. یعنی ما غیر از پادشاهی حضرت داوود و حضرت سلیمان، هیچ پادشاهی دیگری را به رسمیت نمی شناسیم. این در حالی است که خیابان انوشیروان چند کوچه پایین تر از...
-
نماز برای نابودی برنامه هسته ای ☺
دوشنبه 29 آذر 1400 09:48
khabaronline یک خاخام یهودی در اظهاراتی عجیب و ضد ایرانی گفت: برای نابودی برنامه هستهای ایران دعا کنید و نماز بخوانید! منبع: کاوش مدیا
-
گرفتن عبارت Sql مربوط به کوئری یا تغییر آن و تعداد فیلدها و نام فیلد کوئری
یکشنبه 28 آذر 1400 23:29
ویژگی SQL حاوی عبارت یا دستور SQL است که نحوه انتخاب ، گروه بندی و ترتیب رکوردها را هنگام اجرای کوئری تعیین می کند. می توان از کوئری برای انتخاب رکوردهایی برای گنجاندن در شئ رکوردست استفاده کرد.همچنین می توان اکشن کوئری ها را برای اصلاح بدون ارجاع به رکوردها تعریف کرد. نوشتار SQL مورد استفاده در یک کوئری باید با SQL...
-
مطلبی در مورد تنظیم بعضی خواص در فرم
یکشنبه 28 آذر 1400 21:28
دوستان دستکاری بعضی از خاصیت ها در پنجره پراپرتی شیت فرم اکسس فقط در نمای دیزاین امکانپذیر است و نمی توانید مستقیم از فرم در حال نمایش آنها را تغییر دهید پس اگر دیتابیس را بصورت accde در آورید بهیچ عنوان کد vba شما کارائی نخواهد داشت از طرفی اگر به accde تبدیل نشود امکان هک کردن بسیار بالاست. لطفا در نظر سنجی شرکت...
-
چک کردن باز بودن فرم بصورت Form Dialog و شفافیت یا کدورت پنجره
یکشنبه 28 آذر 1400 20:11
استفاده از تابع ویندوزی GetwindowLongA win32/api/winuser/getwindowlonga win32/winmsg/extended-window-styles GWL_EXSTYLE =-20 WS_EX_DLGMODALFRAME =&H1 GetWindowLongA hWnd,nIndex(GWL_EXSTYLE) LIB "USER32" برای TransParent یا شفاف کردن دیالوگ باکس می توانید از مطلب در لینک زیر که کاملا گویا است بهره ببرید....