تعديل كود البحث والاستبدال

[Khalid Jnb]

 

السلام عليكم هل ممكن  ام غير ممكن تغيير كود زر البحث والاستبدال الموجود بالملف المرفق ويظهر عدد السجلات التي سوف يتم استبدالها او التراجع او الموافقه على الاستبدال
ارجوا الرد

وشكرا لكم

test.accdb

[Shivan Rekany]

في ٢٨‏/٩‏/٢٠١٨ at 16:54, خالد سيسكو said:

السلام عليكم هل ممكن  ام غير ممكن تغيير كود زر البحث والاستبدال الموجود بالملف المرفق ويظهر عدد السجلات التي سوف يتم استبدالها او التراجع او الموافقه على الاستبدال

وعليكم السلام ورحمة الله وبركاته
نعم و هذا مختصر العمل
اعمل 2 كومبوبوكس او مربع النص
احد منها لكي نبحث عنه و الاخر لاستبدال 
واعمل مربع نصي اخر لكي يظهر لك عدد الكلمات الموجودة وسيتم استبدالها بواسطة دالة ديكوانت\

[Khalid Jnb]

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

وشكرا لك

[Shivan Rekany]

20 ساعات مضت, خالد سيسكو said:

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

اتفضل استخدمت هذه المجموعة
 

Private Sub Form_Load()
    Me.Helbijartin = Null
    Me.Form.Repaint
    Me.Helbijartin.RowSource = "SELECT table1." & "[" & Me.Heqil & "]" & "FROM table1;"
End Sub

Private Sub Helbijartin_AfterUpdate()
On Error Resume Next
    Me.Eded = DCount("*", "Table1", "[" & Me.Heqil & "]=" & Me.Helbijartin)
    Me.Eded = DCount("*", "Table1", "[" & Me.Heqil & "]='" & Me.Helbijartin & "'")
End Sub

Private Sub Heqil_AfterUpdate()
    Me.Helbijartin = Null
    Me.Eded = Null
    Me.Form.Repaint
    Me.Helbijartin.RowSource = "SELECT table1." & "[" & Me.Heqil & "]" & "FROM table1;"
End Sub

Private Sub RpleceAll_Click()
    If IsNull(Me.Heqil) = True Then
        MsgBox "اختر الحقل المراد استبدال فيه اولا"
        Me.Heqil.SetFocus
    ElseIf IsNull(Me.Helbijartin) = True Then
        MsgBox "قم باختيار الکلمة او الرقم المراد استبداله"
        Me.Helbijartin.SetFocus
    ElseIf IsNull(Me.GohorinBo) = True Then
        MsgBox "قم بكتابة كلمة او رقم الاستبدال به"
        Me.GohorinBo.SetFocus
    Else
        DoCmd.SetWarnings False
        DoCmd.RunSQL ("UPDATE table1 SET table1." & "[" & Me.Heqil & "]" & "= [Forms]![form]![GohorinBo] WHERE (((table1." & "[" & Me.Heqil & "]" & ")=[Forms]![form]![Helbijartin]))")
        DoCmd.SetWarnings True
        MsgBox "تم استبدال" & "(" & Me.Eded & ")" & "سجلات " & vbCrLf & vbCrLf & vbCrLf & _
                         " من " & " ( " & Me.Helbijartin & " ) " & " الى " & " ( " & Me.GohorinBo & " ) " & "بنجاح ", vbOKOnly + vbMsgBoxRtlReading, "تم"
        Me.Helbijartin = Null
        Me.GohorinBo = Null
        Me.Eded = Null
        Me.Form.Repaint
    End If
End Sub

واليك المرفق بعد تعديل

 

test.accdb

[Khalid Jnb]

شكرا لك اخي الكريم شفان

بارك الله فيك