كود تعديل وحذف

[mohamedyousef]

السلام عليكم 

اساتذتي الكرام مرفق ملف عمل محتاج اضيف كود للتعديل وحذف على رقم الاذن وذلك بداخل فورم رقم 3 بحيث عندما يتم البحث وتظهر النتائج اريد ان اقوم بالتعديل على رقم الاذن وايضا لو اردت الغاء الاذن باكمله

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

 

حذف.xlsm

[عبدالله بشير عبدالله]

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

قم باظافة الكودين الى الفورم3 

Private Sub CommandButton4_Click()
    Dim sh1 As Worksheet, F As Range
    Set sh1 = Sheet1
    
    If Me.cl.Value = "" Then
        MsgBox "يرجى البحث عن إذن أولاً قبل التعديل", vbExclamation
        Exit Sub
    End If
    
    Set F = sh1.Range("d:d").Find(Me.cl.Value, , xlValues, xlWhole, , , False)
    
    If Not F Is Nothing Then
        sh1.Range("A" & F.Row).Value = Me.cust.Value
        sh1.Range("b" & F.Row).Value = Me.qu.Value
        sh1.Range("c" & F.Row).Value = Me.fq.Value
        sh1.Range("e" & F.Row).Value = Me.mq.Value
        sh1.Range("f" & F.Row).Value = Me.t1.Value
        sh1.Range("g" & F.Row).Value = Me.fk.Value
        sh1.Range("h" & F.Row).Value = Me.fm.Value
        
        
        MsgBox "تم تعديل بيانات الإذن رقم " & Me.cl.Value & " بنجاح", vbInformation
    Else
        MsgBox "لم يتم العثور على الإذن رقم " & Me.cl.Value, vbExclamation
    End If
End Sub

Private Sub CommandButton5_Click()
    Dim sh1 As Worksheet, F As Range
    Set sh1 = Sheet1
    
    If Me.cl.Value = "" Then
        MsgBox "يرجى البحث عن إذن أولاً قبل الحذف", vbExclamation
        Exit Sub
    End If
    
    If MsgBox("هل أنت متأكد من حذف الإذن رقم " & Me.cl.Value & "؟", vbYesNo + vbQuestion, "تأكيد الحذف") = vbYes Then
        Set F = sh1.Range("d:d").Find(Me.cl.Value, , xlValues, xlWhole, , , False)
        
        If Not F Is Nothing Then
            sh1.Rows(F.Row).Delete
            
            CommandButton3_Click
            
            MsgBox "تم حذف الإذن رقم " & Me.cl.Value & " بنجاح", vbInformation
        Else
            MsgBox "لم يتم العثور على الإذن رقم " & Me.cl.Value, vbExclamation
        End If
    End If
End Sub

اظافة زر تعديل وخذف للفورم.xlsm

 ارجو ان تكون  في هذه الاجابة فيها طلبك

تحياتي

تم تعديل منذ 1 ساعه بواسطه عبدالله بشير عبدالله

[mohamedyousef]

تمام استاذي الف شكر دايما حضرتك في الصعاب الاقيك هو ممكن كود التعديل والبحث اعمل لهم كلمة مرور على اساس شخص واحد فقط له الحق في الحذف او التعديل ممكن

[عبدالله بشير عبدالله]

اليك التعديل   كلمة المرور 1234

اظافة زر تعديل وخذف للفورم.xlsm

تم تعديل منذ 33 دقائق بواسطه عبدالله بشير عبدالله

[mohamedyousef]

الف شكر استاذ عبدالله تمام بارك الله في حضرتك