ترحيل حقلين الكميه المطلوبه والسعر من النموذج للجدولa_tlbia_Hr

[النجاشي]

السلام عليكم احبتي

المطلوب ترحيل قيمه الحقل الكميه المطلوبه والمجموع من النموذج  من زر ترحيل الطلبيه الي جدولa_tlbia_Hr

تحياتي اليكم

ترحيل الطلبيه.rar

[jjafferr]

وعليكم السلام اخوي ابو زاهر

 

تفضل:

هذا استعلام تحديث الحقلين في الجدول a_tlbia_Hr ، وبمعيار الفاتورة ورقم الصنف

.

وهذا كود حدث نقر زر التحديث:

Private Sub cmd_update_a_tlbia_Hr_Click()

    DoCmd.SetWarnings False
        DoCmd.OpenQuery "qry_Update_Alkmiah_mjmo"
    DoCmd.SetWarnings True
End Sub

.

 

جعفر

947.ترحيل الطلبيه.accdb.zip

[حربي العنزي]

استاذي الفاضل ابو زاهر السلام عليكم ورحمة الله وبركاته وكل عام وانتم بالف خير 

استاذي الفاضل جعفر ربي يخليك يارب وكل اعم وانتم بألف خير 

اذا مكن رفع البرنامج بصيغة 2003 طبعا من بعد اذن صاحب الموضوع الاستاذ الفاضل ابو زاهر واكون ممنون لك يا طيب 

[النجاشي]

4 ساعات مضت, حربي العنزي said:

استاذي الفاضل ابو زاهر السلام عليكم ورحمة الله وبركاته وكل عام وانتم بالف خير 

استاذي الفاضل جعفر ربي يخليك يارب وكل اعم وانتم بألف خير 

اذا مكن رفع البرنامج بصيغة 2003 طبعا من بعد اذن صاحب الموضوع الاستاذ الفاضل ابو زاهر واكون ممنون لك يا طيب 

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

وانت بالف خير 

أن شاء الله ارفعه لك ما يغلا عليك بس حاليا عندي مشكلة بالمتصفح ما بقدر ادخل من الكمبيوتر اول ما يصلح ابشر او يحولها لك اي احد من الاخوان

تحياتي اليك

[jjafferr]

تفضل اخوي حربي

نسخة من برنامج ابو زاهر بصيغة 2003

 

جعفر

947.ترحيل الطلبيه.mdb.zip

[حربي العنزي]

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

[النجاشي]

استاذي جعفر @jjafferr

يحدث حقل واحد ولم يحدث كل السجلات

انظر الي الصوره

[jjafferr]

2 ساعات مضت, حربي العنزي said:

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

حياك الله اخوي حربي

 

1 ساعه مضت, ابو زاهر said:

يحدث حقل واحد ولم يحدث كل السجلات

نعم ، هذا خطأ من جانبي ، فقد قرأت ملاحظتك في النموذج بطريقة غير صحيحة

 

1. احذف استعلام التحديث ،

2. استعمل هذا الكود على زر التحديث:

Private Sub cmd_update_a_tlbia_Hr_Click()

    Dim rstS As DAO.Recordset
    Dim rstD As DAO.Recordset
    
    Set rstS = Me.TB.Form.RecordsetClone
    Set rstD = CurrentDb.OpenRecordset("Select * From a_tlbia_Hr")
    
    rstS.MoveLast: rstS.MoveFirst
    RCs = rstS.RecordCount
    
    Me.TB.SetFocus
    DoCmd.GoToRecord , , acFirst
    
    For i = 1 To RCs
     
        criti = "[ID_Sanf]='" & Me.TB!ID_Sanf & "'"
        criti = criti & " And"
        criti = criti & " [Rjmfatwra]='" & Me.TB!Rjmfatwra & "'"
        rstD.FindFirst criti
        'rstD.FindFirst "[ID_Sanf]='" & Me.TB!ID_Sanf & "' And [Rjmfatwra]='" & me.TB!Rjmfatwra & "'"
        
        If rstD.NoMatch = False Then
        
            rstD.Edit
                rstD!Alkmiah_mtob = Me.TB!Alkmiah_mtob
                rstD!mjmo = Me.TB!mjmo
            rstD.Update
        
        End If
        
        DoCmd.GoToRecord , , acNext
    Next i
    
    DoCmd.GoToRecord , , acFirst
    
    rstS.Close: Set rstS = Nothing
    rstD.Close: Set rstD = Nothing
    
End Sub

 

جعفر

[النجاشي]

غلبت معي السموحه  استاذي @jjafferr وضعت الكود ولم يحدث معي ياليت تعمله على مثالي 

[jjafferr]

تفضل

947.ترحيل الطلبيه.accdb.zip

[النجاشي]

قبله على راسك استاذ@jjafferr الله يعطيك العافيه استاذي الكريم

اشكرك كثير كم بحثت عن هذا الموضوع للحقول غير منتظمه ولم اجد

والاجمل في الموضوع انك عملته بشرط رقم الفاتوره الذي  لم اذكرها في الموضوع

الف الف شكر اليك عمل جميل ربنا يعطيك الصحه والعافيه وكل من تعز

تحياتي

 

[jjafferr]