تعديل كود بحث

[Ahmed_J]

السلام عليكم

ملف للاستاذة زهرة فيه كود بحث عن كامل الاسم 

اريد التعديل على الكود ليصبح البحث باول حرف فقط من الاسم

وشكرا لكم

za-EmployyeUP.accdb

[سامي الحداد]

وعليكم السلام 

تفضل أخي الكريم ... شوف التعديل هل هذا هو المطلوب.

جرب ووافينا بالنتيجة .

تحياتي

za-EmployyeUP.accdb

[Ahmed_J]

السلام عليكم

شكرا لك استاذي العزيز وبارك الله فيك

لكن ؟ كيف يتم التنقل بين السجلات في حالة وجود اكثر من اسم متشابة  (الانتقال للسجل التالي)

اعتقد من الافضل ان يوضع في زر امر  وتمكين خاصية اكمال البحث

وشكرا لك

 

تم تعديل أكتوبر 10, 2020 بواسطه Ahmed_J

[rey360]

بالاستعانة بملف الاخ سامي الحداد 

za-EmployyeUP (1).accdb

[ahmed sherif]

انا عاجز عن الشكر يا استاذ محمد جزاك الله كل خير وجعله فى ميزان حسناتك ان شاء الله ادرس الكود جيدا حيث انه اول كود اتعلمة فى الاكسيس لأننى اريج تنفبذ مهمة صعبة جدا ايضا داخل النموذج و بنسبة تتعدى 95 % محتاجة كود vba انا سعبد جدا بمعرفة حضرتك

[ahmed sherif]

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

Private Sub ffind_KeyUp(KeyCode As Integer, Shift As Integer)

        If KeyCode = 32 Then
        Me.ffind.Value = Me.ffind.Text & Chr$(32)
        Me.ffind.SelStart = Len(ffind.Text)
        
End If
End Sub

[rey360]

7 دقائق مضت, ahmed sherif said:

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

Private Sub ffind_KeyUp(KeyCode As Integer, Shift As Integer)

        If KeyCode = 32 Then
        Me.ffind.Value = Me.ffind.Text & Chr$(32)
        Me.ffind.SelStart = Len(ffind.Text)
        
End If
End Sub

ahmed sherif  
أولا الكود ليس أنا من قامة بكتابته بحيث نزعته في الملف الذي الارفقته لك لأننا لسنا بحاجة اليه

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

 

[Ahmed_J]

السلام عليكم

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

وشكرا لكم

Dim strSearch As String
Dim rs As Object
Set rs = Me.RecordsetClone

   
   If IsNull(Me![txtSearch]) Or (Me![txtSearch]) = "" Then
          MsgBox "رجاء ادخل اسم للبحث عنه", vbOKOnly, "خطأ في البحث"
          Me![txtSearch].SetFocus
   Exit Sub
   End If
   strSearch = Me![txtSearch]
  
   With rs
  .FindNext "[EmpName] = '" & strSearch & "'"
   
   If .EmpName <> strSearch Then
          MsgBox "لا يوجد سجل بهذا الإسم :  " & strSearch, , "غير موجود"
          Me.txtSearch = ""
          Me![txtSearch].SetFocus
   ElseIf .NoMatch Then
          MsgBox "آخر سجل في البحث عن :  " & strSearch, , "آخر سجل"
          Me.cmdSearch.Caption = "بحث"
          Me.txtSearch = ""
          Me![txtSearch].SetFocus
          Me.cmdSearch.ForeColor = RGB(0, 0, 255)
  DoCmd.GoToRecord , , acFirst
   Else
   Me.Bookmark = .Bookmark
          MsgBox "تم ايجاد اسم :  " & strSearch, , "مبروك"
          Me.cmdSearch.Caption = "اكمال البحث"
          Me.cmdSearch.ForeColor = RGB(255, 0, 0)
   End If
   End With

rs.Close
Set rs = Nothing

 

تم تعديل أكتوبر 13, 2020 بواسطه Ahmed_J

[سامي الحداد]

Private Sub cmdSearch_Click()
Dim strSearch As String
Dim rs As Object
Set rs = Me.RecordsetClone

   
   If IsNull(Me![txtSearch]) Or (Me![txtSearch]) = "" Then
          MsgBox "رجاء ادخل اسم للبحث عنه", vbOKOnly, "خطأ في البحث"
          Me![txtSearch].SetFocus
   Exit Sub
   End If
   strSearch = Me![txtSearch]
  
   With rs
'  .FindNext "[EmpName] = '" & strSearch & "'"
   .FindNext "[EmpName] like '*" & strSearch & "*'"
   If Not .EmpName Like "*" & strSearch & "*" Then
'   If .EmpName <> strSearch Then
          MsgBox "لا يوجد سجل بهذا الإسم :  " & strSearch, , "غير موجود"
          Me.txtSearch = ""
          Me![txtSearch].SetFocus
   ElseIf .NoMatch Then
          MsgBox "آخر سجل في البحث عن :  " & strSearch, , "آخر سجل"
          Me.cmdSearch.Caption = "بحث"
          Me.txtSearch = ""
          Me![txtSearch].SetFocus
          Me.cmdSearch.ForeColor = RGB(0, 0, 255)
  DoCmd.GoToRecord , , acFirst
   Else
   Me.Bookmark = .Bookmark
          MsgBox "تم ايجاد اسم :  " & strSearch, , "مبروك"
          Me.cmdSearch.Caption = "اكمال البحث"
          Me.cmdSearch.ForeColor = RGB(255, 0, 0)
   End If
   End With

rs.Close
Set rs = Nothing
End Sub

تفضل اخي الكريم

هذا التعديل على نفس الكود.  واليك الملف بعد التعديل

وافينا بالنتيجة

تحياتي

za-EmployyeUP.accdb

[Ahmed_J]

السلام عليكم

شكرا لك استاذي العزيز @سامي الحداد

بارك الله فيك

التعديل يبحث باي حرف من الاسم  ويجد الاسماء مثل (محمد  او احمد)

اريد ان يبحث باول حرف من الاسم فقط (م او أ ) لان لدي ملف باللغة الانكليزية  ومحتاجه جدا

وشكرا لك

 

 

[Ahmed_J]

UP

[husamwahab]

السلام عليكم

مشاركة مع اساتذتي الاعزاء

بدل السطرين

.FindNext "[EmpName] like '*" & strSearch & "*'"
If Not .EmpName Like "*" & strSearch & "*" Then

بالتالي

.FindNext "[EmpName] like '" & strSearch & "*'"
   If Not .EmpName Like strSearch & "*" Then

 

[Ahmed_J]

السلام عليكم

بارك الله فيك استاذنا العزيز

وجعله في ميزان حسناتك

 

[husamwahab]

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