إلغاء الحفظ التلقائي في النموذج الفرعي

[رعد داود]

•‏‏‏•❥ًً❀(•«﷽»•)❀❥ •‏‏•‏‏‏ 

لو كان عندي نموذج فرعي من نوع ورقة بيانات ... أريد أن ألغي الحفظ التلقائي منه .. لم أتوصل الى حل .. برجاء المساعدة .. النموذج الأب  من جدول اسمه bills

والفرعي من جدول bills2 ،، وبينهما علاقة 

[ابو ياسين المشولي]

منذ ساعه, رعد داود said:

•‏‏‏•❥ًً❀(•«﷽»•)❀❥ •‏‏•‏‏‏ 

لو كان عندي نموذج فرعي من نوع ورقة بيانات ... أريد أن ألغي الحفظ التلقائي منه .. لم أتوصل الى حل .. برجاء المساعدة .. النموذج الأب  من جدول اسمه bills

والفرعي من جدول bills2 ،، وبينهما علاقة 

اخي العزيز ارفق مثال

 

[ابو ياسين المشولي]

اخي الفاضل وجدت لك شبه للبرنامج

ممكن تستفيد منه انا اظنه هو طلبك بالضبط

Accounts_2008 (1).rar

[Amr Ashraf]

12 ساعات مضت, رعد داود said:

أريد أن ألغي الحفظ التلقائي منه

السلام عليكم

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

[رعد داود]

11 ساعات مضت, ابو ياسين المشولي said:

اخي العزيز ارفق مثال

 

واليك المثال  ... النموذج  الرئيس هو  snadat  والفرعي  sub_erad  و  sub_sarf

سندات.rar

23 دقائق مضت, Amr Ashraf said:

السلام عليكم

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

النماذج  تابعة  لجداول  عندي  ورفعت  البرنامج  بمشاركة  أعلاه

[ابو ياسين المشولي]

شوف المرفق

سندات.rar

[رعد داود]

27 دقائق مضت, ابو ياسين المشولي said:

شوف المرفق

سندات.rar

احسنت  اخي  ابو ياسين  .... هل  من  الممكن  التنبيه  عند  عدم  ادخال مثلا"  هل  ترغب بالغاء  السند  أم  تواصل  بسند اخر

[ابو ياسين المشولي]

If Me.T1 <> T2 Then
MsgBox ("لايمكنك الحفظ !! القيد غير متوازن")
Me.Undo
Else
If MsgBox(" هــل  تـريـد  الحفظ والاستمرار  " & vbCrLf & "", vbYesNo, "           تنبية      ") = vbYes Then

DoCmd.Save
On Error GoTo BCC
Dim Q As Recordset
Set Q = CurrentDb.OpenRecordset("SELECT * from Bills where mz = false;")
While Not Q.EOF
Q.Edit
Q!MZ = True
Q.Update
Q.MoveNext
Wend
DoCmd.GoToRecord , , acNewRec
no.SetFocus
ACC:
Exit Sub
BCC:
Resume ACC

End If
End If

 

تم تعديل فبراير 4, 2018 بواسطه ابو ياسين المشولي