حذف السجل من رقم الي رقم

[النجاشي]

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

احبتي الكرام

عندي نموذج بها حقلين حذف من فاتوره رقم  الي فاتوره رقم 

المطلوب عندما ادخل مثلا من فاتوره رقم L00002 الي فاتوره رقم L00004 واضغط زر الحذف يحذف السجلات المذكوره فقط 

حسب الارقام المدخله  يحذف 

ان شاء الله تكون وصلت الفكره 

تحياتي احبتي

 

حذف من الي.mdb

تم تعديل مايو 25, 2018 بواسطه ابو زاهر

[عبدالله كاظم]

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

اتفضل جرب هذا الكود في زر أمر

    Dim i As Long, i2 As Long
    Dim x As String, x2 As String
    Dim ftNo As String
    
    x = Replace(Me.N1, "L", "")
    x2 = Replace(Me.N2, "L", "")
    
    i = CLng(x)
    i2 = CLng(x2)
    
    Do Until i = i2 + 1
        Debug.Print i
        ftNo = "L" & Format(i, "00000")
        If DCount("[Rjmfatwra]", "AfwtIar_arwd", "[Rjmfatwra]='" & ftNo & "'") <> 0 Then
            CurrentDb.Execute "DELETE * FROM AfwtIar_arwd WHERE ((([Rjmfatwra])='" & ftNo & "'));"
        End If
        i = i + 1
    Loop
    
    Me.N1 = Null
    Me.N2 = Null

 

[النجاشي]

37 دقائق مضت, عبدالله كاظم said:

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

اتفضل جرب هذا الكود في زر أمر

    Dim i As Long, i2 As Long
    Dim x As String, x2 As String
    Dim ftNo As String
    
    x = Replace(Me.N1, "L", "")
    x2 = Replace(Me.N2, "L", "")
    
    i = CLng(x)
    i2 = CLng(x2)
    
    Do Until i = i2 + 1
        Debug.Print i
        ftNo = "L" & Format(i, "00000")
        If DCount("[Rjmfatwra]", "AfwtIar_arwd", "[Rjmfatwra]='" & ftNo & "'") <> 0 Then
            CurrentDb.Execute "DELETE * FROM AfwtIar_arwd WHERE ((([Rjmfatwra])='" & ftNo & "'));"
        End If
        i = i + 1
    Loop
    
    Me.N1 = Null
    Me.N2 = Null

 

بارك الله فيك استاذي الكريم

الله يعطيك العافيه نعم هو المطلوب

شكرا اليك

[عبدالله كاظم]

الحمدلله

والعفو اخوي