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

[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

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

تحياتي

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

[mohamedyousef]

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

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

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

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

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

[mohamedyousef]

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

[Foksh]

38 دقائق مضت, mohamedyousef said:

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

العضو الكريم

يجب الالتزام بقواعد المشاركة

وحيث أنه تكرر هذا التنبيه ، يجب أن يتم منح اختيار الإجابة بـ  لصاحب الإجابة ، وليس لصاحب الموضوع ..

تم نقل الإجابة الى صاحب الحل

شكراً لتعاونك 

[mohamedyousef]

ممكن حضرتك توضح لي كيفية منح الاخيار 

 

[Foksh]

12 دقائق مضت, mohamedyousef said:

ممكن حضرتك توضح لي كيفية منح الاخيار 

 

أخي الكريم ،، تحت كل إجابة يوجد هذا الزر  ، وأعلم أنك عن غير قصد تضغط على الزر بهدف أنه لصاحب الإجابة ، ولكن فكرة الزر هي تعزيز الثقة بين أعضاء المنتدى بتشجيعهم وشكرهم بطريقة ترفع من مستواهم التقييمي ( رغم أنه ليس مقياساً على خبرتهم بكل تأكيد ) . أيضاً كي يتم إعلام من يقرأ ويتابع أن هذا الموضوع قد تم حله ، ولله الحمد . لذا ودون إطالتي ..

مستقبلاً تحت كل إجابة في مواضيعك التي تنشرها ، ستجد الزر وعند اختياره ستجد أن المشاركة التي اخترتها تم إحاظتها بمربع أخضر ليدل على أن هذه المشاركة هي الحل الذي اخترته كصاحب الموضوع .

 

 

مقتبس من قواعد المنتدى :-

اقتباس

30. من الجميل أن تتبع الإجابة عن سؤالك بشكر لمن ساعدك، وبإخبار عن النتيجة، العديد يتابع الأسئلة، ويود أن يعرف عن النتيجة، فمن واجب السائل أن يشكر من حاول مساعداته بالنقر على زر الإعجاب، وأن يختار خيار أفضل إجابة  ليعرف الجميع أن موضوعه قد تم حله بطريقة مرضية.

31. على الجانب الآخر إذا لم يأتيك شكر على موضوع قدمته، فنرجو اعتبار كل قراءة من قراءات الموضوع باقة ورد وشكر لك من المشرفين والأعضاء، ونذكرك بأن الموضوع لا تقتصر فائدته علي من قرأوه في وقته فقط، ولكن تصل إلى كل من يبحث لاحقا في المنتدي وهم ان شاء الله أضعاف من يقرأه في وقته، ونسأل الله عز وجل أن يضاعف لك الجزاء عن كل من يستفيد منه.

 

[mohamedyousef]

حضرتك انا نفذت اللي حضرتك شرحتو لي لعلني اكون توصلت لمضمون التنبيه

شكرا على المعلومة