د.كاف يار

تفضل اخي الكريم empoyee - Copie (1).accdb

تفضل DATA2000.mdb.zip

لا يحتاج الى جداول مرتبطة ولكن بالإمكان استيراد البيانات للجداول و كذلك تستطيع الاضافة و الحذف لكني لم اجرب استخدام ADO

صحيح تفضل التعديل DATA200013.zip

اقترح عليك استبدال اسلوب الإدخال و استدعاء البيانات بالطريقة التالية اي الاتصال بقاعدة البيانات عند الحاجة لها و اغلاقها بعد جلب البيانات Dim openSQL As ADODB.Connection Dim rs As New ADODB.Recordset Dim ID As Integer ID = TextID Dim MyName As String MyName = TextIDMyName Set openSQL = New ADODB.Connection openSQL.Open "Provider=SQLOLEDB;Data Source=عنوان قاعدة البيانات" Set rs = openSQL.Execute("UPDATE [Plans1] SET [Subject]='" & MyName & "' where [NO]='" & MyName & "' ") MsgBox "تحديث البيانات بنجاح", vbInformation + vbMsgBoxRight, "تأكيد" openSQL.Close

استخدم الكود التالي [اسم مربع التحرير و السرد].RowSource = "SELECT [أسم العمود] FROM [اسم الجدول]" كذلك توجد طريقة اخرى With [اسم مربع التحرير و السرد] .RowSource = "SELECT * FROM [اسم الجدول] " .ColumnCount = 2 ' عمود العرض .BoundColumn = 1 ' عمود القيمة End With

تفضل التعديل DATA200013.zip

[Forms]![FormsNmae]![Text1] ضع في مصدر الحقل هذه العبارة بعد التعديل عليها اسم النموذج اسم الحقل

تفضل هذا التعديل سيتم حذف المكرر سيتم الاحتفاظ بالاسم الذي لا يحمل رقم dub_names.accdb

هذه مشاركة مع اخي @kha9009lid تفضل dub_names.zip

صحيح تفضل التعديل ارفاق الصور.zip

ضغه في حدث بعد التحديث قبل البدء نفذي التالي - قم بإزالة مصدر السجلات - قم بإزالة مصدر عنصر التحكم لكل عنصر مرفق لك مثال لذلك استدعاء بيانات المنتج.zip

مربوط اخي الكريم اختر مثلا منخزن 1 الى مخزن 3

نعم يوجد استعلام عليك نقله كما في الصورة ادناه

نعم استعمل الكود التالي On Error Resume Next ' افراغ الحقول قبل الاستعلام [Text1]=Null [Text2]=Null [Text3]=Null ' جلب البيانات Dim rs As DAO.Recordset Set rs = CurrentDb.OpenRecordset("اسم جدول المنتجات هنا") If Not rs.BOF And Not rs.EOF Then rs.MoveFirst While (Not rs.EOF) [Text1]=rs.Fields("الباركود") [Text2]=rs.Fields("اسم المنتج") [Text3]=rs.Fields("السعر") rs.MoveNext Wend End If rs.Close Set rs = Nothing

تفضل التعديل اخي الكريم DATA1401.zip

اذا ما هي طريقتك في جلب بيانات المنتج ؟ هل النموذج مرتبط مباشرة بالجدول ؟

اخي الكريم استخدم معادلة اخي @محمد أبوعبدالله استخدمها في الاستعلام و ستعطي النتيجة لجميع السجلات

العفو اخي الكريم اتشرف بخدمتك في اي وقت

اذا كان النموذج مرتبط مباشرة بالجدول استخدم التالي DoCmd.GoToRecord , , acNewRec لكن اذا لم يكن مرتبط بجدول استخدم التالي قبل استدعاء البيانات [اسم عنصر التحكم أو مربع النص]=Null

تفضل هذا التعديل DATA200012.rar

فعلا صحيح تفضل هذا التعديل DATA200011.zip

طيب تمام جرب هذا التعديل DATA200010.rar

تفضل هذا التعديل DATA20009.zip

تفضل التعديل الترقيات.zip