اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

سامي الحداد

الخبراء
  • Posts

    294
  • تاريخ الانضمام

  • تاريخ اخر زياره

  • Days Won

    1

كل منشورات العضو سامي الحداد

  1. المشكلة عندك في برنامج الوين رار.. حدث البرنامج وسيفتح معك لفد جربت الملف من قبل الاستاذ أبو خليل حفظة الله ورعاه البرنامج يعمل بشكل ممتاز تحياتي
  2. 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
  3. وعليكم السلام تفضل أخي الكريم ... شوف التعديل هل هذا هو المطلوب. جرب ووافينا بالنتيجة . تحياتي za-EmployyeUP.accdb
  4. حياك الله أخي محمد الشكر لله عز وجل وللاساتذة والقائمين على هذا المنتدى الرائع الله يحفظهم . بالتوفيق أخي الكريم تحياتي
  5. وعليكم السلام تفضل اخي جرب ووافينا بالنتيجة Shell "C:\Program Files\WinRAR\WinRAR.exe a -hp1 D:\bb\abolllll69.rar D:\bb\aboosama.accdb",vbHide
  6. تفضل أخي الكريم كما طلبت ولكني لم اتمكن من معرفة طريقة عملك . بالتوفيق تحياتي Dataselect.accdb
  7. هل ممكن إرفاق القاعدة لمعرفة أين المشكلة ؟ تحياتي
  8. وعليكم السلام محاولة إن شاءالله تفي بالمطلوب. Combo.accdb
  9. وعليكم السلام Private Sub Form_Load() DoCmd.GoToRecord , , acLast End Sub جرب ووافينا اذا كان هذا هو المطلوب تحياتي
  10. وعليكم السلام تفضل اخي شوف المرفق. Database2.accdb
  11. جزاك الله خيرا استاذي أبو خليل ورحم الله والديك.
  12. أخي عبدالله قم بإزالة برنامج Dbpix من جذوره بواسطة اي برنامج غير الويندوز. أنا استخدمت برنامج your uninstall وهو جيد جدا لإزالة البرامج من الجذور وحتى من الريجستري. لا تعمل إعادة تشغيل عندما يطلب منك برنامج Dbpix ذلك. انتظر حتى تكتمل إزالة الملفات كلها وايضا من الريجستري. بعد ذلك يمكنك إعادة تشغيل الويندوز. ومن ثم إعادة تنصيب البرنامج كما تفضل الإخوة الكرام في المشاركات السابقة ضروري ان تستخدم نفس النسخة التي تفضلت الأخت أم عهود بطرحها. تأكد من رقم النسخة واستخدم الرقم الخاص بتلك النسخة. ضروري جدآ. زان شاءالله يعمل معك البرنامج. بالتوفيق أخي الكريم
  13. السلام عليكم اخواني. حسب خبرتي المتواضعة هذا الكود تابع لبرنامج Dbpix 20. . وهذا رابط الشركة. http://www.ammara.com أتمنى أن يكون فيه إفادة.
×
×
  • اضف...

Important Information