htkamal

تفضل اخي الكريم مع ضرورة التعديل كما هو موضح ادناه يرجى ملئ الفراغات اداناه و وضع الكود في حدث بعد التحديث x1= اسم العمود او الحقل في الجدول x2= اسم الجدول x3 = اسم مربع النص في النموذج If DLookup("[x1]", "[x2]", "[x1] = '" & [x3] & "' ;") <> [x3] Then MsgBox "هذا الصنف غير مسجل", vbMsgBoxRight + vbCritical, "تنبيه"  

تفضل اخي الكريم حيث ان tabale_name هو اسم الجدول الذي سيتم التعديل عليه و column1 اسم العمود او الحقل الذي به التاريخ في الجدول يجب عليك تعديل قيمة x1 كما هو موضح ادناه DoCmd.SetWarnings False Dim x1 x1 = [حقل التاريخ في النموذج] DoCmd.RunSQL "UPDATE [table_name] SET [column1] = '" & x1 & "' ;" DoCmd.SetWarnings True MsgBox "تم التعديل بنجاح", vbMsgBoxRight + vbOKOnly, "تأكيد"  

اخي الكريم سأشرح لك الموضوع بالتفصيل  اولاً / تم استدعاء اسم المستخدم 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] هنا قمنا بجلب اسم المستخدم من صفحة تسجيل الدخول و لنا كامل الحرية في التحكم بها في جميع النماذج و التقارير 

تفضل التعديل اخي الكريم Password (1).rar

تفضل التعديل اخي الكريم 11.accdb

تفضل هذا الكود اخي الكريم معد تعديل قيمة المتغيير 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  

ارفق المثال اخي الكريم لكي يتم التعديل عليه

تفضل طلبك اخي الكريم   اضغط هنا للتحميل

تفضل هذا المقترح اخي الكريم   اضغط هنا للتحميل

اسم النموذج خطأ او محذوف  هذا النموذج تم اضافته عند الفتح فقط عليك ازالة اسم النموذج من الصفحة الرئيسية او ارفق البرنامج ان لم يفلح الحل

تفضل التعديل اخي الكريم l1 (1).mdb

تفضل طلبك اخي الكريم تجميع عدد خانات.mdb

تفضل طلبك اخي الكريم l1 (1).mdb

Private Sub CmdUpdate_Click ()Me.RecordSource = "MyTable"Me.Requery End Sub يا اخوان وجدت هذا الكود و لكن للاسف ما نفع    المطلوب كود تغيير مصدر السجلات للنموذج الفرعي   Private Sub CmdUpdate_Click ()Me.RecordSource = "MyTable"Me.Requery End Sub

بناء على طلب احد الاعضاءالكرام برنامج للسف و الاقتراض للموظفين احببت ان يستفيد الجميع من هذه الفكرة مرفق لكم البرنامج آمل ان يحوز على رضائكم   نظام سلف الموظفين.rar