كيف أمنع حفظ التلقائي في نموذج فاتورة بيع

[zubair1sz]

السلام عليكم ورحمة الله وبركاته

 

أخواني

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

تجربة.rar

[عبد اللطيف سلوم]

1 ساعه مضت, zubair1sz said:

السلام عليكم ورحمة الله وبركاته

 

أخواني

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

تجربة.rar 180.65 \u0643\u064a\u0644\u0648 \u0628\u0627\u064a\u062a · 2 downloads

ضع زر امر

وضع هذا الكود في حدث عند النقر 

If MsgBox("هل تريد حفظ الإدخال الحالي", vbYesNo, "حفظ السجل") = vbNo Then
        DoCmd.CancelEvent
        Me.Undo
        Me.txtName.SetFocus
Else
        DoCmd.GoToRecord , , acNext
End If
 

[zubair1sz]

لن ينجح هذا الامر

أنا أريد في نموذج الرئيسي وفرعي

المشكلة

عندما اسجل بيانات في نموذج الرئيسي ثم انتقل نموذج الفرعي تلقائيا يحفظ من دون ما اعطي امر حفظ وانا لا اريد بهذا

[jjafferr]

السلام عليكم 🙂

 

الطريقة الوحيدة اللي اعرفها هي عمل نموذج غير منظم ،

وجميع الحقول في النموذج تكون غير منظمة ،

اليك هذا الرابط الذي مفروض ان يفيدك ، وبه رابط لمرفق تستطيع انزاله

 

.

بس يحتاج تشرب قهوة ثقيلة تعدل مزاجك قبل ان تقرأ الرابط 🙂

 

جعفر

[ابوآمنة]

لإثراء الموضوع سأرفق لك

برنامج الخليل المحاسبي 

يعتمد على مكتبة ADO  

في نموذج تكويد الأصناف يحتوي على جدولين جدول التصنيفات "TblCategories" وجدول الاصناف "tblSanf" في نموذج واحد 

وكل جدول له وظيفة معينة 

والطريقة كالتالي : 

تضع هذا الكود في رأس النموذج ويمكن استدعاء أكثر من جدول في نموذج واحد

Dim Xdb As DAO.Database
Dim Xrs As DAO.Recordset
Dim XrsItems As DAO.Recordset

 

ولإضافة سجلات جديدة في الجدول الأول "tblSanf"

Private Sub InsertItemR()
    With XrsItems
        .AddNew
        .Fields(0) = Me.txtItemCode
        .Fields(1) = Me.txtItemName
        .Fields(2) = Me.cboCat
'        .Fields(3) = Me.cboUnit1
'        .Fields(4) = Me.cboUnit2
'        .Fields(5) = Me.txtUnitValue
        .Fields(3) = Me.txtPurPrice
        .Fields(6) = Me.txtSalePriceG
        .Fields(5) = Me.txtSalePriceNG
        .Fields(4) = Me.txtSalePriceM
        .Fields(7) = Me.txtNotes
        .Fields(8) = Me.cboWh
        .Fields(10) = Me.txtbarcode
        .Fields(11) = Me.txtbar
  '      .Fields(15) = Me.txtIDtems
        .Update
    End With
End Sub

وللتعديل في سجلات الجدول الأول "tblSanf"

Private Sub UpdateItemR()
    With XrsItems
        .Edit
        .Fields(0) = Me.txtItemCode
        .Fields(1) = Me.txtItemName
        .Fields(2) = Me.cboCat
'        .Fields(3) = Me.cboUnit1
'        .Fields(4) = Me.cboUnit2
'        .Fields(5) = Me.txtUnitValue
        .Fields(3) = Me.txtPurPrice
        .Fields(6) = Me.txtSalePriceG
        .Fields(5) = Me.txtSalePriceNG
        .Fields(4) = Me.txtSalePriceM
        .Fields(7) = Me.txtNotes
        .Fields(8) = Me.cboWh
        .Fields(10) = Me.txtbarcode
        .Fields(11) = Me.txtbar
  '      .Fields(15) = Me.txtIDtems
        .Update
    End With
End Sub

ولإضافة السجلات في الجدول الثاني "TblCategories"

Private Sub InsertR()
    With Xrs
        .AddNew
        .Fields(0) = Me.txtId
        .Fields(1) = Me.txtName
        If IsNull(Me.cboParent) Then
            .Fields(2) = 0
        Else
            .Fields(2) = Me.cboParent
        End If
        .Update
    End With
End Sub

وللتعديل في الجدول الثاني "TblCategories"

Private Sub UpdateR()
    With Xrs
        .Edit
        .Fields(0) = Me.txtId
        .Fields(1) = Me.txtName
        If IsNull(Me.cboParent) Then
            .Fields(2) = 0
        Else
            .Fields(2) = Me.cboParent
        End If
        .Update
    End With
End Sub

 

وتضع هذا الكود في حدث عند التحميل

Private Sub Form_Load()

    Set Xdb = CurrentDb
    
    Set Xrs = Xdb.OpenRecordset("select * from TblCategories")
    Set XrsItems = Xdb.OpenRecordset("select * from tblSanf")

End Sub

وتتأكد من إضافة المكتبة الخاصة ADO

هذه الطريقة من الأستاذ محمد أجول وهذه قناته في اليوتيوب يشرح هذه التقنية اعتقد في درس رقم 32 أو 33

 

 

‏‏BuySal19_v09.rar

[jjafferr]

8 ساعات مضت, ابوآمنة said:

برنامج الخليل المحاسبي 

يعتمد على مكتبة ADO 

يمكن عمل Recordset بإستعمال اي من المكتبتين ADO او DAO ،

ولكنك هنا استعملت مكتبة DAO 🙂

 

جعفر

[ابوآمنة]

شكراً للتصحيح أستاذي جعفر 

ومنكم نستفيد .

[ahmed246]

اخي تختار قبل التحديث في النموذج وتكتب الكود التالي

If MsgBox("هل انت متأكد من حفظ هذه البيانات", vbYesNo, "رسالة تنبيه") = vbYes Then
MsgBox " تم الحفظ بنجاخ", vbInformation, "انتهاء من الحفظ"
Else
DoCmd.RunCommand acCmdUndo

MsgBox " تم الغاء حفظ البيانات", vbInformation, "الغاء حفظ"

End If