تحديث من نموذج مستمر الي الجدول

[ابوصلاح]

السلام عليكم

مش عارف ليه التحديث وخصوصا من النموذج المستمر عامل مشكلة لدي انا مش عارف المشكلة في انا وفي هو

المهم لدي مرفق به البضاعة البضاعة التي تم بيعها اضع لها صواب بحث عن الضغط علي زر التحديث في الجدول frm_recepion 

طبعا تحديث مش الحاق لانه مثال مبسط لقاعدة البيانات يحدث السجل الاول فقط  

 

تحديث من النموذج الي الجدول1.rar

تم تعديل ديسمبر 10, 2019 بواسطه ابوصلاح

[essam rabea]

أ.ابوصلاح

هو انا فعلا مش قادر أفهم المطلوب بالضبط ولكن جرب المرفق عسى أن يفيد

أو فسر السؤال بصورة أوضح عشان زى مانت عارف بقى السن الكبير له حكم 😉

تحديث من النموذج الي الجدول1.zip

[ابوصلاح]

بمعنى النموذج الذي بالصورة تتحدث البيانات التي به في الجدول recepion 

[essam rabea]

هل جربت المرفق؟

[ابوصلاح]

ليس بعد لانني كنت علب الموبايل

تمت التجربية  طب عندما تريد تغير قيمة في النموذج وتضغط علي زر التحديث لا يعمل الكود

تم تعديل ديسمبر 10, 2019 بواسطه ابوصلاح

[essam rabea]

أ.ابوصلاح

لقد غيرت فى السعر وكذلك فى إسم الصنف وبالفعل تم التحديث فى جدول ( recepion ) ولكن لا تقم بالتغيير فى حقل ( id ) فهو حقل الربط بين الجدولين

[Ali Sadiq]

 

@essam rabeaاستاذي الفاضل

 

من بعد اذنك

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

هل هذا طلبك اخي الكريم

UP1.accdb

[ابوصلاح]

• عصام عبدالحكيم ربيع  
• Ali Sadiq
• بارك الله فيكما عمل ممتاز الكودان يعملان تماما 
• شكرا لكما 

[Ali Sadiq]

السلام عليكم

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

@essam rabea    والشكر موصول للاستاذ

بالتوفيق 

Dim Answer As Integer

                If Me.yes_no = True Then
                Answer = MsgBox("هل ترغب بترحيل البيانات المطلوبة ؟", vbQuestion + vbYesNo)
                If Answer = vbYes Then
                MsgBox "تم الترحيل بنجاح وسيتم حذف البيانات من الجدول الرئيسئ"
                Me.Requery
Else
                MsgBox "تم التراجع عن ترحيل البيانات "

Me.Undo
                End If
                        End If
    DoCmd.SetWarnings False
    DoCmd.RunSQL "INSERT INTO Recepion ( ID,Sanf, Price ) " & "SELECT ID,Sanf,Price " & " FROM Elasnaf " & _
    "WHERE yes_no = -1"
                
    DoCmd.RunSQL "DELETE * FROM Elasnaf WHERE  yes_no = -1"
    DoCmd.SetWarnings True
    Me.Requery