عفرنس

شكر الله لك .. هذا ممتاز وهو المطلوب . لكن كيف لي إضافة MsgBox "رجاء ادخل اسم للبحث عنه", vbOKOnly, "خطأ في البحث" MsgBox "لا يوجد سجل بهذا الإسم : " & strSearch, , "غير موجود" MsgBox "تم ايجاد اسم : " & strSearch, , "مبروك" Me.cmdSearch.Caption = "اكمال البحث" رائع ..

مشاركة رائعة من مشارك أروع .. جزاك الله خيرا .. وهذا ملف الأخت زهرة .. مرفق za-EmployyeUP.rar

تمام ها اجرب ووافيك بالنتيجة ان شاء الله

تفضل CS_SeetNumberLabels (2).xlsx

@Barna @أحمد الفلاحجى هلّا أسعفتموني في هذه الكود

@Barnaأحسنت وضحت الفكرة . شكر الله لك

أخي عبدالعزيز @أبو إبراهيم الغامدي هكذا تظهر الرسالة

تسلم

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

شكرا لك على مشاركتك .. لكني أخي بلال اريد التعديل على الكود الموجود فقط ..

أخي عبد العزيز @أبو إبراهيم الغامدي شكر الله لك .. وجمل حالك .. سأحتفظ بكلا العملين ( ما تفضلت به وما تفضل به الأستاذ جعفر ) لكن لدي سؤال صغير ( فيما لو أردت استيراد أكثر من ملف دفعة واحدة هل هذا ممكن ؟؟ ) في الكود الحالي ؟؟ لأني جربت فلم ينجح .

ههههههههههههههههههه ما ودك رسل لي اثنين من الشباب ذولي يدرسوني ؟؟

أخي إبراهيم جزيت خيرا جربت المرفق مع تعديلاتك يعطيني هذا الخطأ

شكر الله لكم جميعا .. ما أجمل استفزاز العمالقة الكبار ..

السلام عليكم لدي كود البحث هذا وهو من عمل الأخت زهرة وجدته في أحد برامجها .. وهو يريد في خانة البحثكتابة الاسم كاملا الاول والثاني والثالث .... ما الذي يجب عمله من تغيير حتى نستطيع البحث بأي جزء من الاسم .. دمتم سالمين 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 "[StName] = '" & strSearch & "'" If .StName <> 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

بالتوفيق

جزاك الله خيرا أخي @jjafferr فيه مثل عندنا يقول : ( ما أبطى السيل إلا من كبره ) ومعناه انه ( ما تأخر السيل إلا من كثرته وغزارته ) أنا شاكر لك ومقدر .. لكن عندي سؤال : ( الشباب ما فزعوا معك ؟؟ ) هههههههه سأوافيك بالنتائج بإذن الله ..

@jjafferr شو أخبار صاحبنا .. إن شاء الله ما يكون عصب عليك😄 .

أخي الكريم نفذ الخطوات التالية : 1- أنشئ اختصار لبرنامجك ( كلك يمين * انشاء اختصار ) 2- اذهب إلى برنامجك بعد الاختصار ( كلك يمين * خصائص * تغيير الأيقونة ) واختر الأيقونة التي تريد . في حال أرت أيقونة غير التي موجودة في الويندوز اضغط على زر استعراض . وضع الأيقونة التي كنت حفظتها من موقع أيقونه وهذا رابط أيقونة ( https://icon-icons.com/ar/ ) اختر منه ما شئت . 4 - اضغط موافق بعد اختيار الأيقونة التي تريد .

تفضل أخي الكريم هذا الملف بحثت لك فوجدت هذا الملف انسخ الأكواد منه وضعها في ملفك .. AZ_mkdir.mdb

بالتوفيق

@jjafferr أخبار القيلولة ؟؟

قيلولة هنيئة . أستاذ @jjafferr في هذا الكود يستورد sheet واحد فقط وليس الجميع . @Barna

@jjafferr الموقع ينزله بهذه الطريقة ليس لي أي تدخل ..

الجواب أخي @Barna أحتاج هذا الملف بالذات لأغراض أخرى غير موجودة في الجدول .. طبعا تراني ما زلت أنتظر البخور @jjafferr