• الإعلانات

    • فيصل الحربي

      تسجيل عضوية جديدة في المنتدى   01/31/2016

      السلام عليكم ورحمة الله وبركاته  عزيزي العضو الجديد :  حاليا رسالة الإيميل لتأكيد صحة إيميلكم تذهب للبريد العشوائي ( جاري حل المشكلة )  فإذا لم تجد رسالة التحقق من إيميلكم في صندوق الوارد لديكم إتجه للبريد العشوائي ( JUNK)  وقم بتفعيل إشتراككم من هناك   

htkamal

اعضاء جدد
  • عدد المشاركات

    22
  • تاريخ الانضمام

  • تاريخ اخر زياره

السمعه بالموقع

6 عادي

1 متابع

عن htkamal

  • الرتبة
    عضو جديد

معلومات الملف الشخصي

  • الجنس ذكر

أحدث الزائرين لملفلك الشخصي

940 زياره للملف الشخصي
  1. تفضل اخي الكريم مع ضرورة التعديل كما هو موضح ادناه يرجى ملئ الفراغات اداناه و وضع الكود في حدث بعد التحديث x1= اسم العمود او الحقل في الجدول x2= اسم الجدول x3 = اسم مربع النص في النموذج If DLookup("[x1]", "[x2]", "[x1] = '" & [x3] & "' ;") <> [x3] Then MsgBox "هذا الصنف غير مسجل", vbMsgBoxRight + vbCritical, "تنبيه"  
  2. تفضل اخي الكريم حيث ان tabale_name هو اسم الجدول الذي سيتم التعديل عليه و column1 اسم العمود او الحقل الذي به التاريخ في الجدول يجب عليك تعديل قيمة x1 كما هو موضح ادناه DoCmd.SetWarnings False Dim x1 x1 = [حقل التاريخ في النموذج] DoCmd.RunSQL "UPDATE [table_name] SET [column1] = '" & x1 & "' ;" DoCmd.SetWarnings True MsgBox "تم التعديل بنجاح", vbMsgBoxRight + vbOKOnly, "تأكيد"  
  3. اخي الكريم سأشرح لك الموضوع بالتفصيل  اولاً / تم استدعاء اسم المستخدم UserName  من جدول PASS بناء على المدخلات في حقل n1 و حقل n2   DLookup("[UserName]", "[Pass]", "[UserName] = '" & [n1] & "' AND [Password]= '" & [n2] & "' ") اذا تحقق شرط التطابق اسم المستخدم في النموذج مع اسم المستخدم و كلمة المورر المدخل في النموذج   If DLookup("[UserName]", "[Pass]", "[UserName] = '" & [n1] & "' AND [Password]= '" & [n2] & "' ") = Me.n1 Then سيتم تنفيذ شرط فتح النموذج  و ارسال اسم المستخدم الى حقل التمسية رقم 3 وسيتم اغلاق نموذج الدخول DoCmd.OpenForm "welcome" [Forms]![welcome]![تسمية3].Caption = "اهلا وسهلا بك" & " : " & Me.n1 DoCmd.Close acForm, "pass"     لكن توجد طريقة سهلة جداً  اضف مربع نص في الصفحة الرئيسية welcome و اجعل مصدر عنصر التحكم هو  [Forms]![Pass]![n1] هنا قمنا بجلب اسم المستخدم من صفحة تسجيل الدخول و لنا كامل الحرية في التحكم بها في جميع النماذج و التقارير 
  4. تفضل التعديل اخي الكريم Password (1).rar
  5. تفضل التعديل اخي الكريم 11.accdb
  6. تفضل هذا الكود اخي الكريم معد تعديل قيمة المتغيير X   Dim x, x2 x = "Table Name" x2 = CurrentProject.Path & Me.Text6 & ".xls" Open CurrentProject.Path & Me.Text6 & ".xls" For Binary Access Write As #1 Close #1 DoCmd.TransferSpreadsheet acExport, 8, x2, x, True  
  7. إدراج كائن

    ارفق المثال اخي الكريم لكي يتم التعديل عليه
  8. تفضل طلبك اخي الكريم   اضغط هنا للتحميل
  9. تفضل هذا المقترح اخي الكريم   اضغط هنا للتحميل
  10. حل مشكله

    اسم النموذج خطأ او محذوف  هذا النموذج تم اضافته عند الفتح فقط عليك ازالة اسم النموذج من الصفحة الرئيسية او ارفق البرنامج ان لم يفلح الحل
  11. تفضل التعديل اخي الكريم l1 (1).mdb
  12. تفضل طلبك اخي الكريم l1 (1).mdb
  13. Private Sub CmdUpdate_Click ()Me.RecordSource = "MyTable"Me.Requery End Sub يا اخوان وجدت هذا الكود و لكن للاسف ما نفع    المطلوب كود تغيير مصدر السجلات للنموذج الفرعي   Private Sub CmdUpdate_Click ()Me.RecordSource = "MyTable"Me.Requery End Sub
  14. بناء على طلب احد الاعضاءالكرام برنامج للسف و الاقتراض للموظفين احببت ان يستفيد الجميع من هذه الفكرة مرفق لكم البرنامج آمل ان يحوز على رضائكم   نظام سلف الموظفين.rar