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

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


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

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

احبتي الكرام

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

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

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

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

تحياتي احبتي

 

حذف من الي.mdb

تم تعديل بواسطه ابو زاهر
رابط هذا التعليق
شارك

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

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

    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

 

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

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

 

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

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

شكرا اليك

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

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



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

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

Important Information