[تمت الاجابه]مساعدة فى تصحيح هذا الكود

مستر استرا كتب:

Private Sub Combo0_AfterUpdate()
DoCmd.SetWarnings False
DoCmd.RunSQL " insert into tbmokalfa (mainid,mokalfatxt) values ([forms]![kor].' " & codd & " ','" & Me.Combo0 & "')"
Me.Fmokalfa.Requery
End Sub

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

ملحوظة الحقل المراد تحديثة من النموذج هو حقل نص فهل يكتب هكذا

[forms]![kor].' " & codd & " '

جرب هذا

DoCmd.RunSQL " insert into tbmokalfa (mainid,mokalfatxt) values ( " & codd & " ," & Me.Combo0 & ")"
Me.Fmokalfa.Requery

أو هذا للقراءة من فورم آخر عير الفورم النشط

DoCmd.RunSQL " insert into tbmokalfa (mainid,mokalfatxt) values (" & [forms]![kor]![codd] & " ," & Me.Combo0 & "("

Me.Fmokalfa.Requery

تحياتي

الف شكر وجارى التجربة والرد

تمااااااااااااااام

واسمحلى اقيم الرد ++