مساعدة بفورم الترحيل

[abouelhassan]

الله ينور استاذى حبيبى استاذ جعفر

بس عا يز كمان التاريخ والمخزن والرقم يتم مسحهم

بارك الله فيك اخى الحبيب 

[jjafferr]

تفضل ،

ووضعت كود (في الواقع هو لأخي احمد 🙂 ) يوقف تجديد/تحديث الشاشة ، ويقوم بتصفية النموذج والحقول ، ثم يُفعل تجديد/تحديث الشاشة ، فلا ترى ما يحدث 🙂

    Me.Painting = False
        Me.DataEntry = False
        Me.DataEntry = True
    
        Me.Main_iDate = Null
        Me.Main_iBill_Number = Null
        Me.Main_iStore_Number = Null
    Me.Painting = True
    

 

جعفر

[abouelhassan]

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

حضرتك ربنا ما يحرمنى منك اغرقتنى والاستاذ ابو خليل بالجمايل

وساعدتنى وصممت لى البرنامج وربنا ما يحرمنى منك ابدااااااااااااااا

ربنا يحفظكم ويخليكم يارب ويديم الصحة والعافية عليكم يارب

[jjafferr]

🙂

حياك الله 🙂

[أبوبسمله]

جزاك الله خيرا معلمنا العزيز @jjafferr وبارك الله لنا فيك 💐

[أبوبسمله]

مرفق الملف بعد التعديل لمعلمى العزيز جعفر جزاه الله كل خير

واول مره ارى هذا الكود

 Me.Painting = False

فجزاه الله عنى كل خير

وتعديل بسيط فكود التكرار

Private Sub btnInsert_Click()
Dim intNum As Integer
Dim i As Integer
intNum = txtNum

    For i = 0 To intNum - 1
        DoCmd.SetWarnings False
            DoCmd.OpenQuery "qry_InsertIpage"
        DoCmd.SetWarnings True
    Next
    DoCmd.RunCommand acCmdSaveRecord
Me.Requery
Me.Filter = "iBill_Number ='" & Main_iBill_Number & "'"
Me.FilterOn = True
End Sub

 

DATA11(1).mdb

[jjafferr]

7 ساعات مضت, احمد الفلاحجي said:

واول مره ارى هذا الكود

 Me.Painting = False

ليه انت ما سمعتش عن الموضوع ده :

 

جعفر