اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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


zubair1sz

الردود الموصى بها

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
 

رابط هذا التعليق
شارك

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

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

المشكلة

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

رابط هذا التعليق
شارك

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

 

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

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

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

 

.

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

 

جعفر

  • Thanks 1
رابط هذا التعليق
شارك

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

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

يعتمد على مكتبة 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

رابط هذا التعليق
شارك

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

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

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

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

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

image.png.dde97a5b4cc6701e60175f6027b55a2f.png

 

جعفر

  • Like 1
رابط هذا التعليق
شارك

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

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

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

End If

 

رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information