محمد أبوعبدالله

وضعت فقط تنسيق / Format للوقت فقط لنفس الكود الخاص بك تحياتي

ضع اول الكود on errot goto Err: وفي نهاية الكود Err: exit sub تحياتي

جرب بهذا الشكل If Format(Now(), "hh:mm:ss AM/PM") >= #12:00:00 AM# Or Format(Now(), "hh:mm:ss AM/PM") <= #7:00:00 AM# Then Me.Sdate = Date - 1 Else Me.Sdate = Date End If تحياتي

وعليكم السلام وحمة الله وبركاته ضع في الاستعلام في حقل التاريخ المعيار التالي between forms!frm1!A and forms!frm1!B وفي نموذج frm1 اكتب التاريخ الذي تريد تحياتي

وعليكم السلام ورحمة الله وبركاته اجعل الحقل مطلوب مع عدم التكرار تحياتي

جزاك الله خيرا استاذنا الفاضل تحياتي

ضع اول الكود on error resume next تحياتي

وعليكم السلام ورحمة الله وبركاته تفضل اخي الكريم تحياتي

وعليكم السلام ورحمة الله وبركاته يمكنك استخدام التنسيق الشرطي وجعل لون الخط لون الخلفية حتى لا تظهر قيمة الحقل تحياتي

وعليكم السلام ورحمة الله وبركاته مرحبا اخي الكريم برجاء زيارة هذا الموضوع الزاخر بالمناقشات وارجو من الله ان يفيدك تحياتي

مرحبا اخي الكريم يمكنك استخدام الكود التالي DoCmd.RunCommand acCmdPageSetup وانصحك بزيارة هذا الموضوع الاكثر من هام والذي سيفيدك باذن الله تحياتي

هنا المشكلة فانت تضع الكود في حدث عند التغيير cobname_Change وانت عند اختيارك بالاسهم سيتم تغيير القيمة الموجودة في مربع النص ولكن يمكنك الاختيار بزر الفارة بدون مشاكل ان شاء الله او وضع الكود في حدث cobname_BeforeUpdate ولكنك ستكتب ثم تضغط انتر حتى تظهر النتائج ثم الاختيار بالاسهم بعد ذلك تحياتي

جزاك الله خيرا استاذنا الفاضل من بعد اذن استاذي خسين تفضل اخي الكريم Option Compare Database Option Explicit Private Declare Function InternetGetConnectedState Lib "wininet.dll" (ByRef dwflags As Long, ByVal dwReserved As Long) As Long Private Sub أمر0_Click() If InternetGetConnectedState(0&, 0&) Then labal1.Caption = Translate(labal1.Caption, "ar", "en") labal2.Caption = Translate(labal2.Caption, "ar", "en") labal13.Caption = Translate(labal13.Caption, "ar", "en") Me.أمر19.Visible = True Else MsgBox "تأكد من اتصالك بال

وعليكم السلام ورحمة الله وبركاته غير مسار حقظ التقرير من GetWinTemp الى CurrentProject.Path من PDF_Name_Path = GetWinTemp & "\ImitatePDFPrintingLikeInOracleButFromMsAccess.pdf" الى PDF_Name_Path = CurrentProject.Path & "\ImitatePDFPrintingLikeInOracleButFromMsAccess.pdf" تحياتي او قم بتعريف المتغير GetWinTemp اولا Public Function GetWinTemp() As String GetWinTemp = Environ("Temp") End Function

تفضل اخي الكريم Dim Xid As Integer Xid = Nz(DMax("[Id]", "tbl_name"), 0) + 1 mySQL = "INSERT INTO tbl_name (id,student_name) Values ('" & Xid & "', '" & Me.xxx & "');" CurrentDb.Execute mySQL Me.student.Requery مدرسه جديد.rar تحياتي