مساعدة في تخفيف كود

[ازهر عبد العزيز]

السلام عليكم

في النموذج الرئيسي ftest1 يوجد حقل مربع تحرير  غير منضم Amino_Acidu يحتوي كود 

Private Sub Amino_Acidu_AfterUpdate()
DoCmd.GoToControl "FTest2"
DoCmd.GoToRecord , , acNewRec
FTest2!Amino_Acid = Amino_Acidu
FTest2!Molecular_formulaT = FTest2!Molecular_formula
FTest2!Molecular_weightT = FTest2!Molecular_weight
FTest2!pKa_a_COOHT = FTest2!pKa_a_COOH
End Sub

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

Amino.accdb

[ابوخليل]

جرب كذا اخي ازهر

استخدام المتغيرات بدلا من اخذ القيمة من خلال النماذج وحقولها

اتمنى يحقق المطلوب

Amino2.rar

[ازهر عبد العزيز]

17 ساعات مضت, ابوخليل said:

اتمنى يحقق المطلوب

شكرا جزيلا