الربط بين نمذجين

اليك ما طلبت

Database.rar

جزاك الله خيرا يا أبا يوسف لاستجابتك وجعله في موازين حسناتك ولكن ما طلبته ليس نموذجا فرعيا

داخل نموذج رئيسي انما نموذجان منفصلان جزاك الله خيرا.

mrxandx كتب:

هل من الممكن الربط بين النموذجين المرفقين في المثال على الا يكون الربط على هيئة نموذج فرعي داخل النموذج الرئيسي جزاكم الله الف خيرDatabase.rar

اليس هذا ما طلبته اخى ؟؟؟؟؟؟؟

عموما وضح ما تريد

جزاك الله خيرا ابا رهف طلبي واضح جدا ولو قرأته جيدا لوجدت هذه العبارة (على الا يكون الربط على هيئة نموذج فرعي داخل النموذج الرئيسي ) ولكن على هيئة نموذجين منفصلين

مع الشكر والامتنان

اعتذر اليك اخى

فعلا الخطأ عندى

و لكن انت لم توضح كيف تريد ان يكون الربط

لك الشكر والتقدير ابا يوسف وكلنا خطاؤون اما بالنسبة لكيفية الربط فهو من واحد الى متعدد اي ان لكل نزيل عدد من الشقق

وهو ايضا موضح في العلاقات اي من tblCustoms.custID الى tblFlats.custID مرفق مثال

Database.rar

تفضل اخى

لا اعرف ما حاجتك الى كل تلك الاكواد الموجودة بالنموذجين

اليك ما تريد

Private Sub Command35_Click()
If Me.NewRecord Then DoCmd.RunCommand acCmdSaveRecord
If Not Me.NewRecord Then
DoCmd.OpenForm "FlatsFrm", , , "[CustID] = " & Me.[CustID], , , Me.[CustID]
End If
End Sub

Private Sub Form_Open(Cancel As Integer)
If Len(Me.OpenArgs) > 0 Then
Me.CustID.DefaultValue = Me.OpenArgs
Me.FlatID.DefaultValue = Nz(DMax("FlatID", "TblFlats"), 0) + 1
End If
End Sub

Database.rar

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