كيف يتم اظهار بيانات من جدول في جدول اخر او من نموذج في نموذج اخر

MOOONMOOON كتب:

db1.rarالمطلوب هو بعد تعبئة الخانات في هذا الفورم forminfo والانتهاء من التعبية واقفال النموذج يتوجب على الموظف المختص بعمل التحاليل في الفورم الاخر والذي اسمه formbloodtrm فكل ماعلى الموظف هو كتابة رقم الوحدة في في فورم formbloodtrm فتظهر له مباشرة رقم الوحدة وفصيلة الدم ونوع الوحدة وكمية الوحدة وتاريخ السحب المسجلة مسبقا من موظف التسجيل

اخي الكريم استخدم هذا الكود لعملية استدعاء البيانات من النموذج السابق

Private Sub ßæÏ_ÇáãÇßíäå_BeforeUpdate(Cancel As Integer)

On Error Resume Next

[ÇÓã_ÇáãÇßíäå] = DLookup("[Name_Servo]", "Data_Servo", " On_Servo=[ßæÏ_ÇáãÇßíäå]")

If IsNull(DLookup("[On_Servo]", "Data_Servo", "[On_Servo]='" & [ßæÏ_ÇáãÇßíäå] & "'")) Then

MsgBox " ßæÏ_ÇáãÇßíäå åÐå ÛíÑ ÕÍíÍ ", vbCritical, " AlphaSkaySystem"

Cancel = -0

End If

End Sub