سامي الحداد

يحفظك ربي اخي العزيز بالتوفيق

أخي الكريم فقط غير اسم المتغير Dim i As Long, k As Long الى اي اسم اخر مثلا Dim ixx As Long, K As Long وايضا غير هذا السطر For i = 1 To k For ixx =1 To K وايضا هذا السطر Next i Next ixx بالتوفيق

تفضل اخي الكريم جرب التعديل واخبرنا بالنتيجة test.rar

وعليكم السلام ورحمة الله وبركاته هل جربت هذا الكود Private Sub sheet_1_Exit(Cancel As Integer) Me.sheet_2.Value = Me.sheet_1.Value Me.Refresh End Sub مجرد فكره بالتوفيق

تقضل اخي الكريم ان شاءالله يكون هو المطلوب ليس عن طريق الاستعلام وانما بالكود بالتوفيق Database150 (2).accdb

من بعد اذن الاخ محمد البرناوي تقضل اخي مع العلم انا فقط عدلت على زر عند الضغط على . importmarks.accdb

تمت التجربة في اوفيس 2019 والبرنامج يعمل بدون اي مشاكل .

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

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

وعليكم السلام محاولة مني ان شاءالله يكون المطلوب تحياتي 1311.11.DATA12.rar

السلام عليكم أخي احمد بارك الله بك وشكرا على المعلومة ولكن اعتقد الاصح ان توضع بين قوسين اليس كذلك يعني هكذا Private Sub btnName_Click() MsgBox (Me!name) End Sub Private Sub btnNFrm_Click() MsgBox (Me.name) End Sub ان شاءالله ما اكون غلطان.. بارك الله بك أخي الكريم لما تقدمة لاخوانك في هذا الصرح الكبير تقبل تحياتي

جزاك الله خيرا أخي الكريم هل ممكن كلمة المرور للمستخدم user ولكم فائق التحية والاحترام

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

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

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

وعليكم السلام تفضل اخي جرب ووافينا بالنتيجة 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

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