Jump to content
أوفيسنا

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

Expert
  • Content Count

    1,421
  • Joined

  • Days Won

    24

محمد أبوعبدالله last won the day on September 18

محمد أبوعبدالله had the most liked content!

Community Reputation

962 Excellent

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

  • Rank
    مُحب الله ورسوله
  • Birthday 01/01/1974

Profile Information

  • Gender (Ar)
    ذكر
  • Job Title
    مهندس
  • Location
    مصر
  • Interests
    حب الله ورسوله صلى الله عليه وسلم

Recent Profile Visitors

1,861 profile views
  1. ضع اول الكود on errot goto Err: وفي نهاية الكود Err: exit sub تحياتي
  2. جرب بهذا الشكل 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 تحياتي
  3. وعليكم السلام وحمة الله وبركاته ضع في الاستعلام في حقل التاريخ المعيار التالي between forms!frm1!A and forms!frm1!B وفي نموذج frm1 اكتب التاريخ الذي تريد تحياتي
  4. وعليكم السلام ورحمة الله وبركاته اجعل الحقل مطلوب مع عدم التكرار تحياتي
  5. جزاك الله خيرا استاذنا الفاضل تحياتي
  6. ضع اول الكود on error resume next تحياتي
  7. وعليكم السلام ورحمة الله وبركاته تفضل اخي الكريم تحياتي
  8. وعليكم السلام ورحمة الله وبركاته يمكنك استخدام التنسيق الشرطي وجعل لون الخط لون الخلفية حتى لا تظهر قيمة الحقل تحياتي
  9. وعليكم السلام ورحمة الله وبركاته مرحبا اخي الكريم برجاء زيارة هذا الموضوع الزاخر بالمناقشات وارجو من الله ان يفيدك تحياتي
  10. مرحبا اخي الكريم يمكنك استخدام الكود التالي DoCmd.RunCommand acCmdPageSetup وانصحك بزيارة هذا الموضوع الاكثر من هام والذي سيفيدك باذن الله تحياتي
  11. هنا المشكلة فانت تضع الكود في حدث عند التغيير cobname_Change وانت عند اختيارك بالاسهم سيتم تغيير القيمة الموجودة في مربع النص ولكن يمكنك الاختيار بزر الفارة بدون مشاكل ان شاء الله او وضع الكود في حدث cobname_BeforeUpdate ولكنك ستكتب ثم تضغط انتر حتى تظهر النتائج ثم الاختيار بالاسهم بعد ذلك تحياتي
  12. جزاك الله خيرا استاذنا الفاضل من بعد اذن استاذي خسين تفضل اخي الكريم 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 "تأكد من اتصالك بال
  13. وعليكم السلام ورحمة الله وبركاته غير مسار حقظ التقرير من 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
  14. تفضل اخي الكريم 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 تحياتي
×
×
  • Create New...