سامي الحداد

 المشكلة عندك في برنامج الوين رار.. حدث البرنامج وسيفتح معك  لفد جربت الملف من قبل الاستاذ  أبو خليل حفظة الله ورعاه

البرنامج يعمل بشكل ممتاز

تحياتي

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

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

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

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

تحياتي

za-EmployyeUP.accdb

حياك الله أخي محمد

الشكر لله عز وجل وللاساتذة والقائمين على هذا المنتدى الرائع الله يحفظهم .

بالتوفيق أخي الكريم 

تحياتي

6 ساعات مضت, محمد القدسي said:

 

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

تفضل اخي جرب ووافينا بالنتيجة

Shell "C:\Program Files\WinRAR\WinRAR.exe a -hp1 D:\bb\abolllll69.rar D:\bb\aboosama.accdb",vbHide

تفضل أخي الكريم كما طلبت ولكني لم اتمكن من معرفة طريقة عملك .

بالتوفيق

تحياتي

Dataselect.accdb

هل ممكن إرفاق القاعدة لمعرفة أين المشكلة ؟ 

تحياتي

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

تحياتي

Database5.accdb

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

محاولة إن شاءالله تفي بالمطلوب.

Combo.accdb

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

Private Sub Form_Load()
DoCmd.GoToRecord , , acLast
End Sub

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

تحياتي

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

تفضل اخي شوف المرفق.

Database2.accdb

أخي شوف الملف المرفق

هل هو المطلوب؟

My Menu.accdb

أحسنت وبارك الله فيك أستاذي الحبيب ابو خليل.

جزاك الله خيرا استاذي أبو خليل ورحم الله والديك.

أخي عبدالله 

قم بإزالة برنامج Dbpix من جذوره بواسطة اي برنامج غير الويندوز. أنا استخدمت برنامج your uninstall وهو جيد جدا لإزالة البرامج من الجذور وحتى من  الريجستري.

لا تعمل إعادة تشغيل عندما يطلب منك برنامج  Dbpix ذلك. انتظر حتى تكتمل إزالة الملفات كلها وايضا من الريجستري.  بعد ذلك يمكنك إعادة تشغيل الويندوز. 

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

زان شاءالله يعمل معك البرنامج. بالتوفيق أخي الكريم

في ٨‏/٥‏/٢٠٢٠ at 02:28, omarAbdalrazaq said:

السلام عليكم اخواني الاعزاء 

ارجو مساعدتي في التعرف على سبب المشكلة في VBA

وقد قمت برفع صورة للاخطاء

مع الشكر والتقدير

السلام عليكم اخواني.

حسب خبرتي المتواضعة هذا الكود تابع لبرنامج Dbpix 20. .

وهذا رابط الشركة.   http://www.ammara.com

أتمنى أن يكون فيه إفادة.