تثبيت بيانات حقل عند الادخال ..... مساعده

وعليكم السلام اخي :)

انا اضفت حقل جديد على النموذج ، واسميته Temp_invoice ، وجعلت وضعيته مخفي:

وهذا الكود على "حدث الحالي" للنموذج:

Private Sub Form_Current()

    If Me.NewRecord Then
        Me.Invoice = Me.Temp_Invoice
    Else
        If Len(Me.Invoice & "") <> 0 Then
            Me.Temp_Invoice = Me.Invoice
        End If
    End If
    
End Sub

جعفر

229.مثال1.accdb.zip

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

السلام عليكم

هناك مشكله

يضيف سجل فارغ في اخر الجدول يحمل فقط رقم الفاتوره وهذا يأثر على التسلسل والتقرير لدي

هل من حل جاز الله كل الخير

تفضل اخي :)

تم تغيير الكود السابق الى الكود الحالي:

Private Sub Form_Current()

    If Len(Me.Invoice & "") <> 0 Then
        Me.Temp_Invoice = Me.Invoice
    End If
    
End Sub

Private Sub text_AfterUpdate()

    If Len(Me.text & "") <> 0 And Len(Me.Invoice & "") = 0 Then
        Me.Invoice = Me.Temp_Invoice
    End If
    
End Sub

الآن ، عندما تدخل اي معلومة في الحقل text فان رقم الفاتورة سيظهر ، وليس قبلها :)

جعفر

229.مثال1.accdb.zip

اخي واستاذي جعفر المحترم

الف شكر لك وجعله الله في ميزان حسناتك  وبارك الله فيك على جهودك  وزادك علما