كل الانشطه

"Verified user can get a £200 off Shein Coupon code using the code ((“W33K7”)). This Shein £200 Off code is specifically for new and existing customers both and can be redeemed to receive a £200 discount on your purchase. Our exclusive Shein Coupon code offers a flat £200 off your purchase, plus an additional 30% discount on top of that. You can slash prices by up to £200 as a new Shein customer using code ((“W33K7”)). Existing users can enjoy £200 off their next haul with this code. But that’s not all! With our Shein Coupon codes for 2026, you can get up to 90% discount on select items and clearance sales. Whether you’re a new customer or an existing shopper, our Shein codes provide extra discounts tailored just for you. Save up to 30% with these current Shein Coupons [""^""W33K7 ""^""] for March 2026. The latest Shein Coupon codes at here. New users at Shein receive a £200 discount on orders over £200 Use the code ((“W33K7”)) during checkout to get Shein Coupon £200 Off For New Users. You can save £200 Off your first order with the coupon code available for a limited time only. Shein 90% Off promo code ((“W33K7”)) will save you £200 on your order. To get a discount, click on the item to purchase and enter the code. Yes, Shein offers £200 Off coupon code “W33K7” for first time users. You can get a £200 bonus plus £200 Off any purchase at Shein with the £200 Coupon Bundle at Shein if you sign up with the referral code ((“W33K7”)) and make a first purchase of £200 or more. Free Shein codes £200 off — ((“W33K7”)) Shein Coupon £200 off — ((“W33K7”)) Shein Coupon 70% off — ((“W33K7”)) Shein Memorial Day Sale £200 off — ((“W33K7”)) Shein Coupon code today — ((“W33K7”)) Shein free gift code — [""^""W33K7""^""](Without inviting friends or family member) Shein Coupon code for Canada - £200 Off— ((“W33K7”)) Shein Coupon code Australia - £200 Off— ((“W33K7”)) Shein Coupon code New Zealand - £200 Off — ((“W33K7”)) Shein Coupon code Japan - £200 Off — ((“W33K7”)) Shein Coupon code Mexico - £200 Off — ((“W33K7”)) Shein Coupon code Chile - £200 Off — ((“W33K7”)) Shein Coupon code Peru - £200 Off — ((“W33K7”)) Shein Coupon code Colombia - £200 Off — ((“W33K7”)) Shein Coupon code Malaysia - £200 Off — ((“W33K7”)) Shein Coupon code Philippines - £200 Off — ((“W33K7”)) Shein Coupon code South Korea - £200 Off — ((“W33K7”)) Redeem Free Shein Coupon Code [""^""W33K7""^""] for first-time users Get a £200 discount on your Shein order with the promo code ""W33K7"". You can get a discount by clicking on the item to purchase and entering this Shein Coupon code £200 off ((“W33K7”)). Shein New User Coupon ((“W33K7)): Up To £200 OFF For First-Time Users Our Shein first-time user coupon codes are designed just for new customers, offering the biggest discounts and the best deals currently available on Shein. To maximize your savings, download the Shein app and apply our Shein new user coupon during checkout. Shein Coupon Codes For Existing Users ((“W33K7”)): £200 Price Slash Have you been shopping on Shein for a while? Our Shein Coupon for existing customers is here to reward you for your continued support, offering incredible discounts on your favorite products. Shein Coupon For £200 Off ((“W33K7”)): Get A Flat £200 Discount On Order Value Get ready to save big with our incredible Shein Coupon for £200 off! Our amazing Shein £200 off coupon code will give you a flat £200 discount on your order value, making your shopping experience even more rewarding. Shein Coupon Code For £200 Off ((“W33K7”)): For Both New And Existing Customers Our incredible Shein Coupon code for £200 off is here to help you save big on your purchases. Whether you’re a new user or an existing customer, our £200 off code for Shein will give you an additional discount! Shein Coupon Bundle ((“W33K7”)): Flat £200 Off + Up To £200 Discount Get ready for an unbelievable deal with our Shein Coupon bundle for 2026! Our Shein Coupon bundles will give you a flat £200 discount and an additional £200 off on top of it. Free Shein Coupons ((“W33K7”)): Unlock Unlimited Savings! Get ready to unlock a world of savings with our free Shein Coupons! We’ve got you covered with a wide range of Shein Coupon code options that will help you maximize your shopping experience. 70% off Shein Coupons, Promo Codes + 25% Cash Back ((“W33K7”)) Redeem Shein Coupon Code ((“W33K7”)) Shein Coupon £200 OFF ((“W33K7”)) Shein Coupon £200 OFF FOR EXISTING CUSTOMERS ((“W33K7”)) Shein Coupon £200 OFF FIRST ORDER ((“W33K7”)) Shein Coupon £200 OFF REDDIT ((“W33K7”)) Shein Coupon £200 OFF FOR EXISTING CUSTOMERS REDDIT ((“W33K7”)) Shein £200 OFF CODE ((“W33K7”)) Shein 70 OFF COUPON 2026 ((“W33K7”)) DOMINOS 70 RS OFF COUPON CODE ((“W33K7”)) WHAT IS A COUPON RATE ((“W33K7”)) Shein £200 OFF FOR EXISTING CUSTOMERS ((“W33K7”)) Shein £200 OFF FIRST ORDER ((“W33K7”)) Shein £200 OFF FREE SHIPPING ((“W33K7”)) You can get an exclusive £200 off discount on your Shein purchase with the code *[W33K7] Or [W33K7]*.This code is specially designed for new customers and offers a significant price cut on your shopping. Make your first purchase on Shein more rewarding by using this code to get £200 off instantly. *Shein Coupon Code For £200 Off [W33K7] Or [W33K7]:* Get A Flat £200 Discount On Order Value Get ready to save big with our incredible Shein Coupon for £200 off! Our coupon code will give you a flat £200 discount on your order value, making your shopping experience even more rewarding. *Exclusive Shein Discount Code [W33K7] Or [W33K7]:* Flat £200 OFF for New and Existing Customers Using our Shein promo code you can get A£ 200 off your order and 70% off using our Shein promo code *[W33K7] Or [W33K7]*. As a new Shein customer, you can save up to £200 using this promo code. For returning users, our Shein promo code offers a £200 price slash on your next shopping spree. This is our way of saying thank you for shopping with us! *Best Shein Deals and Coupons [W33K7] Or [W33K7]:* During 2026, Shein Coupon codes offer discounts of up to 90% on select items, making it possible for both new and existing users to get incredible deals. From £200 off deals to 30% discounts, our Shein promo codes make shopping more affordable than ever. *Shein Coupon Code For 200€% Off [W33K7] Or [W33K7]:* For Both New And Existing Customers Free Shein £200 Off Code — *[W33K7] Or [W33K7]* Shein Coupon 70% off — *[W33K7] Or [W33K7]* Shein Memorial Day Sale - £200 Off — *[W33K7] Or [W33K7]* Shein Free Gift Code — *[W33K7] Or [W33K7]* Shein £500 Off Code — *[W33K7 ] Or [W33K7]* Best Shein £200 Off Code — *[W33K7 ] Or [W33K7]* Shein Coupon Code first order — *[W33K7] Or [W33K7]* Shein Coupon Code for New user — *[W33K7] Or [W33K7]* Shein Coupon Code A£200 off — *[W33K7] Or [W33K7]* Shein Coupon Code £50 off — *[W33K7] Or [W33K7]* Shein Coupon Code £200 off — *[W33K7] Or [W33K7]* Shein Promo Code 2026 — *[W33K7] Or [W33K7]* Shein Coupon Code £200 off — *[W33K7] Or [W33K7]* Shein Coupon Code £90 off — *[W33K7] Or [W33K7]* Shein Sign up Bonus Code — *[W33K7] Or [W33K7]* Shein Coupon Code C£120 off — *[W33K7] Or [W33K7]* Our exclusive Shein Coupon code allows you to take a flat £200 off your purchase with an added 30% discount on top. As a new Shein shopper, you can save up to £200 using code *[W33K7] Or [W33K7]*. Returning customers can also enjoy a £200 discount on their next purchases with this code. *Shein Coupon Code for Your Country Sign-up Bonus* Shein £200 Off Code Canada *[W33K7] Or [W33K7]* - 70% off Shein £200 Off Code Australia *[W33K7] Or [W33K7]* - 70% off Shein £200 Off Code New Zealand *[W33K7] Or [W33K7]* - 70% off Shein £200 Off Code Japan *[W33K7] Or [W33K7]* - 70% off Shein £200 Off Code Mexico *[W33K7] Or [W33K7]* - 70% off Shein £200 Off Code Chile *[W33K7] Or [W33K7]* - 70% off Shein £200 Off Code Peru *[W33K7] Or [W33K7]* - 70% off Shein £200 Off Code Colombia *[W33K7] Or [W33K7]* - 70% off Shein £200 Off Code Malaysia *[W33K7] Or [W33K7]* - 70% off Shein £200 Off Code Philippines *[W33K7] Or [W33K7]* - 70% off Shein £200 Off Code South Korea *[W33K7] Or [W33K7]* - 70% off Shein £200 Off Code USA *[W33K7] Or [W33K7]* - 70% off Shein £200 Off Code Pakistan *[W33K7] Or [W33K7]* - 70% off Shein £200 Off Code Finland *[W33K7] Or [W33K7]* - 70% off Shein £200 Off Code Saudi Arabia *[W33K7] Or [W33K7]* - 70% off Shein £200 Off Code Qatar *[W33K7] Or [W33K7]* - 70% off Shein £200 Off Code France *[W33K7] Or [W33K7]* - 70% off Shein £200 Off Code Germany *[W33K7] Or [W33K7]* - 70% off Shein £200 Off Code Netherlands *[W33K7] Or [W33K7]* - 70% off Shein £200 Off Code Israel *[W33K7] Or [W33K7]* - 70% off Get a £200 discount on your Shein order with the promo code *[W33K7] Or [W33K7]. You can get a discount by clicking on the item to purchase and entering this Shein Coupon code £200 off *[W33K7] Or [W33K7]**. *Shein Coupon Code [W33K7] Or [W33K7]:* Get Up To 90% OFF In March 2026 Are you looking for the best Shein Coupon codes to get amazing discounts? Our Shein Coupons are perfect for getting those extra savings you crave. We regularly test our coupon codes for Shein to ensure they work flawlessly, giving you a guaranteed discount every time. *Shein New User Coupon [W33K7] Or [W33K7]:* Up To £200 OFF For First-Time Users Our Shein first-time user coupon codes are designed just for new customers, offering the biggest discounts and the best deals currently available on Shein. To maximize your savings, download the Shein app and apply our Shein new user coupon during checkout. FAQs of Shein £200 Off Coupon Q: Can I use the Shein £200 off coupon more than once? Ans: The Shein £200 off coupon is typically for one-time use per account. However, you March be able to use it on multiple orders if specified in the terms and conditions. Always check the current offer details for the most accurate information. Q: Does the Shein £200 off coupon work for international orders? Ans: Yes, our Shein £200 off coupon code [W33K7] is valid for orders in 68 countries worldwide, including the USA, Canada, and many European nations. Be sure to check if your country is included before placing an order. Q: Can I combine the Shein £200 off coupon with other promotions? Ans: While the £200 off coupon usually can't be combined with other promo codes, it can often be used in conjunction with ongoing sales or discounts on the Shein platform. This allows you to maximize your savings on your purchase. Q: Is there a minimum purchase amount required to use the Shein £200 off coupon? Ans: Our Shein coupon code [W33K7] for £200 off typically doesn't have a minimum purchase requirement. However, it's always best to check the current terms and conditions of the offer to be sure. Q: What should I do if the Shein £200 off coupon code doesn't work? Ans: If you're having trouble with the coupon code, first ensure you've entered it correctly. If issues persist, try clearing your browser cache or using a different device. If the problem continues, contact Shein customer support for assistance" "Verified user can get a £200 off Shein Coupon code using the code ((“W33K7”)). This Shein £200 Off code is specifically for new and existing customers both and can be redeemed to receive a £200 discount on your purchase. Our exclusive Shein Coupon code offers a flat £200 off your purchase, plus an additional 30% discount on top of that. You can slash prices by up to £200 as a new Shein customer using code ((“W33K7”)). Existing users can enjoy £200 off their next haul with this code. But that’s not all! With our Shein Coupon codes for 2026, you can get up to 90% discount on select items and clearance sales. Whether you’re a new customer or an existing shopper, our Shein codes provide extra discounts tailored just for you. Save up to 30% with these current Shein Coupons [""^""W33K7 ""^""] for March 2026. The latest Shein Coupon codes at here. New users at Shein receive a £200 discount on orders over £200 Use the code ((“W33K7”)) during checkout to get Shein Coupon £200 Off For New Users. You can save £200 Off your first order with the coupon code available for a limited time only. Shein 90% Off promo code ((“W33K7”)) will save you £200 on your order. To get a discount, click on the item to purchase and enter the code. Yes, Shein offers £200 Off coupon code “W33K7” for first time users. You can get a £200 bonus plus £200 Off any purchase at Shein with the £200 Coupon Bundle at Shein if you sign up with the referral code ((“W33K7”)) and make a first purchase of £200 or more. Free Shein codes £200 off — ((“W33K7”)) Shein Coupon £200 off — ((“W33K7”)) Shein Coupon 70% off — ((“W33K7”)) Shein Memorial Day Sale £200 off — ((“W33K7”)) Shein Coupon code today — ((“W33K7”)) Shein free gift code — [""^""W33K7""^""](Without inviting friends or family member) Shein Coupon code for Canada - £200 Off— ((“W33K7”)) Shein Coupon code Australia - £200 Off— ((“W33K7”)) Shein Coupon code New Zealand - £200 Off — ((“W33K7”)) Shein Coupon code Japan - £200 Off — ((“W33K7”)) Shein Coupon code Mexico - £200 Off — ((“W33K7”)) Shein Coupon code Chile - £200 Off — ((“W33K7”)) Shein Coupon code Peru - £200 Off — ((“W33K7”)) Shein Coupon code Colombia - £200 Off — ((“W33K7”)) Shein Coupon code Malaysia - £200 Off — ((“W33K7”)) Shein Coupon code Philippines - £200 Off — ((“W33K7”)) Shein Coupon code South Korea - £200 Off — ((“W33K7”)) Redeem Free Shein Coupon Code [""^""W33K7""^""] for first-time users Get a £200 discount on your Shein order with the promo code ""W33K7"". You can get a discount by clicking on the item to purchase and entering this Shein Coupon code £200 off ((“W33K7”)). Shein New User Coupon ((“W33K7)): Up To £200 OFF For First-Time Users Our Shein first-time user coupon codes are designed just for new customers, offering the biggest discounts and the best deals currently available on Shein. To maximize your savings, download the Shein app and apply our Shein new user coupon during checkout. Shein Coupon Codes For Existing Users ((“W33K7”)): £200 Price Slash Have you been shopping on Shein for a while? Our Shein Coupon for existing customers is here to reward you for your continued support, offering incredible discounts on your favorite products. Shein Coupon For £200 Off ((“W33K7”)): Get A Flat £200 Discount On Order Value Get ready to save big with our incredible Shein Coupon for £200 off! Our amazing Shein £200 off coupon code will give you a flat £200 discount on your order value, making your shopping experience even more rewarding. Shein Coupon Code For £200 Off ((“W33K7”)): For Both New And Existing Customers Our incredible Shein Coupon code for £200 off is here to help you save big on your purchases. Whether you’re a new user or an existing customer, our £200 off code for Shein will give you an additional discount! Shein Coupon Bundle ((“W33K7”)): Flat £200 Off + Up To £200 Discount Get ready for an unbelievable deal with our Shein Coupon bundle for 2026! Our Shein Coupon bundles will give you a flat £200 discount and an additional £200 off on top of it. Free Shein Coupons ((“W33K7”)): Unlock Unlimited Savings! Get ready to unlock a world of savings with our free Shein Coupons! We’ve got you covered with a wide range of Shein Coupon code options that will help you maximize your shopping experience. 70% off Shein Coupons, Promo Codes + 25% Cash Back ((“W33K7”)) Redeem Shein Coupon Code ((“W33K7”)) Shein Coupon £200 OFF ((“W33K7”)) Shein Coupon £200 OFF FOR EXISTING CUSTOMERS ((“W33K7”)) Shein Coupon £200 OFF FIRST ORDER ((“W33K7”)) Shein Coupon £200 OFF REDDIT ((“W33K7”)) Shein Coupon £200 OFF FOR EXISTING CUSTOMERS REDDIT ((“W33K7”)) Shein £200 OFF CODE ((“W33K7”)) Shein 70 OFF COUPON 2026 ((“W33K7”)) DOMINOS 70 RS OFF COUPON CODE ((“W33K7”)) WHAT IS A COUPON RATE ((“W33K7”)) Shein £200 OFF FOR EXISTING CUSTOMERS ((“W33K7”)) Shein £200 OFF FIRST ORDER ((“W33K7”)) Shein £200 OFF FREE SHIPPING ((“W33K7”)) You can get an exclusive £200 off discount on your Shein purchase with the code *[W33K7] Or [W33K7]*.This code is specially designed for new customers and offers a significant price cut on your shopping. Make your first purchase on Shein more rewarding by using this code to get £200 off instantly. *Shein Coupon Code For £200 Off [W33K7] Or [W33K7]:* Get A Flat £200 Discount On Order Value Get ready to save big with our incredible Shein Coupon for £200 off! Our coupon code will give you a flat £200 discount on your order value, making your shopping experience even more rewarding. *Exclusive Shein Discount Code [W33K7] Or [W33K7]:* Flat £200 OFF for New and Existing Customers Using our Shein promo code you can get A£ 200 off your order and 70% off using our Shein promo code *[W33K7] Or [W33K7]*. As a new Shein customer, you can save up to £200 using this promo code. For returning users, our Shein promo code offers a £200 price slash on your next shopping spree. This is our way of saying thank you for shopping with us! *Best Shein Deals and Coupons [W33K7] Or [W33K7]:* During 2026, Shein Coupon codes offer discounts of up to 90% on select items, making it possible for both new and existing users to get incredible deals. From £200 off deals to 30% discounts, our Shein promo codes make shopping more affordable than ever. *Shein Coupon Code For 200€% Off [W33K7] Or [W33K7]:* For Both New And Existing Customers Free Shein £200 Off Code — *[W33K7] Or [W33K7]* Shein Coupon 70% off — *[W33K7] Or [W33K7]* Shein Memorial Day Sale - £200 Off — *[W33K7] Or [W33K7]* Shein Free Gift Code — *[W33K7] Or [W33K7]* Shein £500 Off Code — *[W33K7 ] Or [W33K7]* Best Shein £200 Off Code — *[W33K7 ] Or [W33K7]* Shein Coupon Code first order — *[W33K7] Or [W33K7]* Shein Coupon Code for New user — *[W33K7] Or [W33K7]* Shein Coupon Code A£200 off — *[W33K7] Or [W33K7]* Shein Coupon Code £50 off — *[W33K7] Or [W33K7]* Shein Coupon Code £200 off — *[W33K7] Or [W33K7]* Shein Promo Code 2026 — *[W33K7] Or [W33K7]* Shein Coupon Code £200 off — *[W33K7] Or [W33K7]* Shein Coupon Code £90 off — *[W33K7] Or [W33K7]* Shein Sign up Bonus Code — *[W33K7] Or [W33K7]* Shein Coupon Code C£120 off — *[W33K7] Or [W33K7]* Our exclusive Shein Coupon code allows you to take a flat £200 off your purchase with an added 30% discount on top. As a new Shein shopper, you can save up to £200 using code *[W33K7] Or [W33K7]*. Returning customers can also enjoy a £200 discount on their next purchases with this code. *Shein Coupon Code for Your Country Sign-up Bonus* Shein £200 Off Code Canada *[W33K7] Or [W33K7]* - 70% off Shein £200 Off Code Australia *[W33K7] Or [W33K7]* - 70% off Shein £200 Off Code New Zealand *[W33K7] Or [W33K7]* - 70% off Shein £200 Off Code Japan *[W33K7] Or [W33K7]* - 70% off Shein £200 Off Code Mexico *[W33K7] Or [W33K7]* - 70% off Shein £200 Off Code Chile *[W33K7] Or [W33K7]* - 70% off Shein £200 Off Code Peru *[W33K7] Or [W33K7]* - 70% off Shein £200 Off Code Colombia *[W33K7] Or [W33K7]* - 70% off Shein £200 Off Code Malaysia *[W33K7] Or [W33K7]* - 70% off Shein £200 Off Code Philippines *[W33K7] Or [W33K7]* - 70% off Shein £200 Off Code South Korea *[W33K7] Or [W33K7]* - 70% off Shein £200 Off Code USA *[W33K7] Or [W33K7]* - 70% off Shein £200 Off Code Pakistan *[W33K7] Or [W33K7]* - 70% off Shein £200 Off Code Finland *[W33K7] Or [W33K7]* - 70% off Shein £200 Off Code Saudi Arabia *[W33K7] Or [W33K7]* - 70% off Shein £200 Off Code Qatar *[W33K7] Or [W33K7]* - 70% off Shein £200 Off Code France *[W33K7] Or [W33K7]* - 70% off Shein £200 Off Code Germany *[W33K7] Or [W33K7]* - 70% off Shein £200 Off Code Netherlands *[W33K7] Or [W33K7]* - 70% off Shein £200 Off Code Israel *[W33K7] Or [W33K7]* - 70% off Get a £200 discount on your Shein order with the promo code *[W33K7] Or [W33K7]. You can get a discount by clicking on the item to purchase and entering this Shein Coupon code £200 off *[W33K7] Or [W33K7]**. *Shein Coupon Code [W33K7] Or [W33K7]:* Get Up To 90% OFF In March 2026 Are you looking for the best Shein Coupon codes to get amazing discounts? Our Shein Coupons are perfect for getting those extra savings you crave. We regularly test our coupon codes for Shein to ensure they work flawlessly, giving you a guaranteed discount every time. *Shein New User Coupon [W33K7] Or [W33K7]:* Up To £200 OFF For First-Time Users Our Shein first-time user coupon codes are designed just for new customers, offering the biggest discounts and the best deals currently available on Shein. To maximize your savings, download the Shein app and apply our Shein new user coupon during checkout. FAQs of Shein £200 Off Coupon Q: Can I use the Shein £200 off coupon more than once? Ans: The Shein £200 off coupon is typically for one-time use per account. However, you March be able to use it on multiple orders if specified in the terms and conditions. Always check the current offer details for the most accurate information. Q: Does the Shein £200 off coupon work for international orders? Ans: Yes, our Shein £200 off coupon code [W33K7] is valid for orders in 68 countries worldwide, including the USA, Canada, and many European nations. Be sure to check if your country is included before placing an order. Q: Can I combine the Shein £200 off coupon with other promotions? Ans: While the £200 off coupon usually can't be combined with other promo codes, it can often be used in conjunction with ongoing sales or discounts on the Shein platform. This allows you to maximize your savings on your purchase. Q: Is there a minimum purchase amount required to use the Shein £200 off coupon? Ans: Our Shein coupon code [W33K7] for £200 off typically doesn't have a minimum purchase requirement. However, it's always best to check the current terms and conditions of the offer to be sure. Q: What should I do if the Shein £200 off coupon code doesn't work? Ans: If you're having trouble with the coupon code, first ensure you've entered it correctly. If issues persist, try clearing your browser cache or using a different device. If the problem continues, contact Shein customer support for assistance"

تمام أخى الفاضل Foksh شكراً لك .. هذا ما أريده تماماً وتم التعديل بسهولة لدمج 3 كائنات فى زر أمر واحد ( زر استيراد الجدول ) للتجربة تكون بمراعاة الأرقام الظاهرة على الصورة Test1.mdb

تفضل أخي الكريم ، التعديل الي طلبته .. Private Sub btnLocateFile_Click() On Error GoTo Err_btnLocateFile_Click Dim fd As Object Dim fileName As String Dim defaultFolder As String defaultFolder = "D:\Access_Teacher\" If Dir(defaultFolder, vbDirectory) = "" Then MkDir defaultFolder End If Set fd = Application.FileDialog(1) With fd .Title = "اختر ملف الإكسل" .Filters.Clear .Filters.Add "Excel Files", "*.xls; *.xlsx" .InitialFileName = defaultFolder If .Show = -1 Then If .SelectedItems.Count > 0 Then fileName = .SelectedItems(1) Me.txtImportFile = fileName End If End If End With Exit_btnLocateFile_Click: Exit Sub Err_btnLocateFile_Click: MsgBox Err.Description, vbCritical + vbMsgBoxRight, "خطأ" Resume Exit_btnLocateFile_Click End Sub

كما فهمت: Private Sub أمر0_Click() Dim msgRes As VbMsgBoxResult Const msg = "ماذا تريد ان تفعل Yes فتح نموذج NO فتح تقرير Cancel تراجع " msgRes = MsgBox(msg & vbCrLf & "" & vbCrLf & "الحمدلله", vbYesNoCancel + vbCritical + vbMsgBoxRight + vbMsgBoxRtlReading, "الله المستعان") '--- طريقة أولى ---- If msgRes = vbYes Then DoCmd.OpenForm "22" ElseIf msgRes = vbNo Then DoCmd.OpenReport "33", acViewPreview ElseIf msgRes = vbCancel Then Exit Sub End If '--- طريقة أخرى ---- 'Select Case msgRes ' Case vbYes ' DoCmd.OpenForm "22" ' Case vbNo ' DoCmd.OpenReport "33", acViewPreview ' Case vbCancel ' Exit Sub 'End Select '--------------- '... End Sub

شكرا لك جزاك الله خير ورحم الله والديك ... جاري التجربة 🌹

تمام ، تم الانتهاء من الشق الأول 👍 الثاني حال وصولي الى الكمبيوتر إن شاء الله ، لأنني خرجت من العمل

الخبير المبدع الذى اتابع كل اعمالة واتعلم منها خالص الشكر لسرعة الاستجابة وإضافة Select Case للبرنامج شكرررررررررا

شكرا يا معلمى الفاضل كثر خيرك ساجرب واوافيك بالنتيجة سؤال هل لو تم تحويل النموذج إلى نموذج مفرد بدل من النماذج المستمرة يثاثر البرنامج ام لا

تم تحديث الأداة مع إضافة هذا الخيار

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

ليس لدي أوفيس 2003 ، ولكن جرب هذا التعديل لزر التصدير .. Private Sub cm_ToExcel_Click() On Error GoTo Err_cm_ToExcel_Click Dim stDocName As String Dim filePath As String Dim defaultFolder As String Dim Q As Integer Dim fd As Object stDocName = "tbl_Teacher" & [Year_name] defaultFolder = "D:\Access_Teacher\" Q = DCount("*", "tbl_Teacher") If Q > 0 Then If Dir(defaultFolder, vbDirectory) = "" Then MkDir defaultFolder End If Set fd = Application.FileDialog(2) With fd .Title = "اختر مكان حفظ ملف الإكسل" .InitialFileName = defaultFolder & stDocName & ".xls" If .Show = -1 Then filePath = .SelectedItems(1) If LCase(Right(filePath, 4)) <> ".xls" Then filePath = filePath & ".xls" End If DoCmd.TransferSpreadsheet acExport, 8, "tbl_Teacher", filePath, False MsgBox "تم استخراج ملف الإكسل بنجاح وحفظه في:" & vbCrLf & vbCrLf & _ filePath, vbInformation + vbMsgBoxRight, "" End If End With Else MsgBox "لا يوجد سجلات لتصديرها", vbOKOnly + vbMsgBoxRight, "" End If Exit_cm_ToExcel_Click: Exit Sub Err_cm_ToExcel_Click: MsgBox Err.Description, vbCritical + vbMsgBoxRight, "خطأ" Resume Exit_cm_ToExcel_Click End Sub قمت بتعديل الزر بحيث يعتمد اسم المسار الذي حددته لنا ، وإنشاء المجلد نفسه في المسار إذا لم يكن موجوداً ..

مقدر انشغالكم اساتذتي واخواني الاعزاء. لكن تم الحل. تكرموا باغلاق المزضوع

السلام عليكم Yamen-.zip

هذا لأنك أدخلت السجل بدون أن تدخل التاريخ قمت أنا بإضافة سجل جديد بالرقم 110001 وعندما رجعت للجدول وجدت أن حقل التاريخ فارغ قمت بإدخال تاريخ اليوم ثم قمت بفتح النموذج وأضفت سجل وحددت الرقم 2 فقط فتم تعديله إلى 110002 آلياً كما بالصورة لا تنسى بأن الكود يقوم بإستخراج أحدث تاريخ ثم إستخراج آخر رقم تم إدخاله في هذا التاريخ ليتم الإعتماد عليه أي أنه يعتمد على التاريخ أولاً ثم على أخر رقم في هذا التاريخ لمعالجة المشكلة قمت بتعديل النموذج ليتم تعيين تاريخ اليوم لأي سجل جديد جربه الان وتأكد من النتائج Lab.rar

عذراً إخوانى للعودة لنفس الموضوع قد يكون الموضوع أسهل إذا أرفقت مثال عملى المطلوب أن يكون مربع حوار التصدير ( الحفظ ) مثل المربع الناتج من الضغط على النقاط الثلاث ( الفتح ) للتسهيل : ليكن فولدر الحفظ الإفتراضى (مع إمكانية الاختيار ) هو D:\Access_Teacher عند إستيراد الجدول (داخل مربع الحوار ) هنا لا داعى لوجود مربع اختيار التسمية والضغط على النقاط الثلاث بالنموذج ولكن الفتح والاختيار من أى مكان على الهارد متاح مع وجود فولدر الحفظ الافتراضى داخل الديالوج Test.mdb

الخبير الفاضل foksh الذى لايبخل بعلمة علي احد اشكرك علي اهتمامك ولكني وجدت نمودج فى منتدانا الغالى من إبداع الخبير الفاضل منتصر الانسى لتوليد الرسالة بسهولة والكود مصمم بقاعدة if هذا هو اصرارى علي استخدام قاعدة If لان النموذج تم تصميمة بقاعدة If تستطيع الاطلاع علي النموذج الخاص بعمل كود الرسالة من إبداعات منتصر الانسي

الخبير الفاضل شكرا لابداعك المتجددة لي طلب بسيط ممكن لو تكرمت تستبدل قاعدة If بقاعدة Select Case حتى نتمكن من عمل امر لكل زر فى الرسالة مثلا لو حددنا ٣ ازرار نعم ولا وإلغاء الامر نعم فتح نموذج محدد لا لفتح تقرير محدد الغاء الأمر لغلق الرسالة لانى قمت بتجربة هذا الموضوع نعم يفتح النموذج تمام لا يفتح التقرير تمام الغاء الأمر حاولت بكل الطرق Undo Exit Sub لكنة يكرر الأمر السابق وهو فتح التقرير لذلك ارجوك تحويل قاعدة If إل cselect case لك خالص الشكر

بعد تجربة المرفق ، والتمعن فيه ، مشكلتك أخي الكريم في الجزء :- ElseIf vbNo Then السبب طبعاً أنه لا يفحص نتيجة رد الرسالة الكلي ، بل يعتبر vbNo قيمة ثابتة . وبالتالي يدخل إليه دائماً إذا لم تكن النتيجة vbYes . لذا فالأفضل من وجهة نظري ، والأصح هو استخدام Select Case في حالتك هذه . خلاف ذلك قد نضطر لاستخدام الرسالة مرتين في الجملة الشرطية ، وهذا سيكرر الرسالة مرتين داخل نفس الحدث . لذا جرب الفكرة التالية :- Private Sub أمر0_Click() Select Case MsgBox("ماذا تريد ان تفعل Yes فتح نموذج NO فتح تقرير Cancel تراجع" & vbCrLf & vbCrLf & "الحمدلله", _ vbYesNoCancel + vbCritical + vbMsgBoxRight + vbMsgBoxRtlReading, _ "الله المستعان") Case vbYes DoCmd.OpenForm "22" Case vbNo DoCmd.OpenReport "33", acViewPreview Case vbCancel Exit Sub End Select End Sub

شكراً أخى Moosak على مشاركتك بنقل ما تفضلت به للمشروع لم يتغير شئ الكود الوحيد الذى يعمل بلا مشاكل هو كود أخى ابو البشر وإن كان فى حاجة لبعض الإضافات لكنه هو الصحيح بلا أى مشكلة عندى

قمت بمسح السطر واعطى الاتى انظر الصورة

الخبير المبدع شكرا على ابداعك بس حضرتك انا كنت عاوز تعطيل فقط على الكود وهو بنفس الشكل بدون متغيرات كنت كيبت الكلام دة قبل كدة مفيش اى تعديل علي الكود المرسل بدون إضافة Dim result as بدون متغيرات لان الرسالة دى بيتم توليدها من برنامج وجدتي علي الموقع ولا أستطيع التعديل علية انا بكتب عنوان الرسالة ومستواها وعدد الازرار وهو بينتج الكود اريد التعديل علي الكود كما هو هل هذا ممكن البرنامج موجود فى هذا الرابط

تفض د @jo_2010 المرفق بعد التعديل . ووافني بالرد . JO.rar

فقط اوقف السطر أو امسحه لأني نسيته . ' Me.NO_Esal = Me.NEW

تفضل استاذ بلال المرفق . ووافني بالرد . Bilal_Yamen-Last-2.rar

أرى الحل أنك تستغني عن المكتبات تماما بتعريف المتغيرات كـ Object .. رجعت لنفس الأداة وكتبت له : والنتيجة : Private Sub cm_ToExcel_Click() ' تعلن عن المتغيرات المطلوبة Dim stDocName As String Dim Q As Integer Dim objFileDialog As Object ' كائن مربع حوار الملفات (يتم تعريفه كـ Object لعدم استخدام المكتبات) Dim varFilePath As Variant ' المسار الكامل للملف الذي سيتم حفظه (يتم تعريفه كـ Variant لاستقبال قيمة من مربع الحوار) Dim fso As Object ' كائن نظام الملفات للتحقق من وجود محرك الأقراص (يتم تعريفه كـ Object لعدم استخدام المكتبات) Dim drv As Object ' كائن محرك الأقراص (يتم تعريفه كـ Object لعدم استخدام المكتبات) Dim blnDriveEExists As Boolean ' علامة منطقية للتحقق مما إذا كان محرك الأقراص E موجودًا وجاهزًا Dim strDefaultPath As String ' المسار الافتراضي الذي سيتم عرضه في مربع الحوار ' تعيين معالج الأخطاء للانتقال إلى تسمية Err_cm_ToExcel_Click في حالة حدوث خطأ On Error GoTo Err_cm_ToExcel_Click ' بناء اسم المستند بناءً على اسم الجدول وقيمة حقل [Year_name] stDocName = "tbl_Teacher" & [Year_name] ' حساب عدد السجلات في جدول tbl_Teacher Q = DCount("*", "tbl_Teacher") ' التحقق مما إذا كانت هناك سجلات (أكثر من صفر) لتصديرها If Q > 0 Then ' -------------------------------------------------------------------- ' الجزء الخاص بالتحقق من وجود محرك الأقراص E وتعيين المسار الافتراضي ' -------------------------------------------------------------------- ' إنشاء كائن FileSystemObject بدون استخدام مكتبات (Late Binding) ' هذا يسمح بالتحقق من محركات الأقراص دون الحاجة إلى إضافة مرجع لمكتبة Microsoft Scripting Runtime Set fso = CreateObject("Scripting.FileSystemObject") blnDriveEExists = False ' تهيئة العلامة إلى False ' التكرار عبر جميع محركات الأقراص المتاحة للتحقق من وجود محرك الأقراص E For Each drv In fso.Drives If drv.DriveLetter = "E" Then ' إذا كان حرف محرك الأقراص هو "E" If drv.IsReady Then ' والتأكد من أن محرك الأقراص جاهز للاستخدام (ليس فارغًا أو غير متصل) blnDriveEExists = True ' تعيين العلامة إلى True Exit For ' الخروج من الحلقة بمجرد العثور على محرك الأقراص E الجاهز End If End If Next drv ' تعيين المسار الافتراضي لمربع الحوار بناءً على نتيجة التحقق If blnDriveEExists Then strDefaultPath = "E:\" ' إذا كان E موجودًا وجاهزًا، استخدمه كمسار افتراضي Else ' إذا لم يكن E موجودًا أو جاهزًا، استخدم مسار المشروع الحالي كمسار افتراضي strDefaultPath = CurrentProject.Path End If ' تحرير كائنات نظام الملفات لتحرير الذاكرة Set fso = Nothing Set drv = Nothing ' -------------------------------------------------------------------- ' الجزء الخاص بعرض مربع حوار حفظ الملف للسماح للمستخدم باختيار الموقع ' -------------------------------------------------------------------- ' إنشاء كائن مربع حوار الملفات (Application.FileDialog) بدون استخدام مكتبات (Late Binding) ' 2 يمثل msoFileDialogSaveAs (قيمة ثابتة لمربع حوار حفظ باسم) Set objFileDialog = Application.FileDialog(2) ' تهيئة خصائص مربع الحوار With objFileDialog .Title = "اختر مكان حفظ ملف الإكسل" ' تعيين العنوان الذي يظهر في أعلى مربع الحوار .InitialFileName = stDocName & ".xls" ' تعيين الاسم الافتراضي للملف الذي سيتم حفظه .InitialFolder = strDefaultPath ' تعيين المجلد الافتراضي الذي سيتم فتحه عند ظهور مربع الحوار .ButtonName = "حفظ" ' تعيين النص الذي يظهر على زر الحفظ في مربع الحوار .Filters.Clear ' مسح أي فلاتر ملفات موجودة مسبقًا .Filters.Add "ملفات إكسل (*.xls)", "*.xls" ' إضافة فلتر لملفات الإكسل القديمة (Excel 97-2003) .Filters.Add "جميع الملفات (*.*)", "*.*" ' إضافة فلتر لجميع أنواع الملفات .FilterIndex = 1 ' تعيين الفلتر الأول (ملفات إكسل) كفلتر افتراضي ' عرض مربع الحوار والتحقق مما إذا كان المستخدم قد ضغط على زر "حفظ" If .Show = -1 Then ' -1 يعني أن المستخدم ضغط على زر "حفظ" (OK) ' الحصول على المسار الكامل للملف المحدد من قبل المستخدم varFilePath = .SelectedItems(1) ' تصدير البيانات من جدول tbl_Teacher إلى ملف الإكسل بالمسار الذي اختاره المستخدم ' 0 يمثل acExport (قيمة ثابتة لعملية التصدير) ' 8 يمثل acSpreadsheetTypeExcel97 (قيمة ثابتة لنوع ملف الإكسل Excel 97-2003) DoCmd.TransferSpreadsheet 0, 8, "tbl_Teacher", varFilePath, False ' عرض رسالة نجاح للمستخدم تتضمن المسار الذي تم الحفظ فيه MsgBox ("تم استخراج ملف أكسل لبيانات الموظفيـن وحفظه في: " & Chr(13) & Chr(13) & varFilePath), vbOKOnly + vbMsgBoxRight, "تنبيه" Else ' إذا ألغى المستخدم عملية الحفظ (ضغط على Cancel) MsgBox "تم إلغاء عملية حفظ ملف الإكسل.", vbInformation + vbMsgBoxRight, "تنبيه" End If End With ' تحرير كائن مربع حوار الملفات لتحرير الذاكرة Set objFileDialog = Nothing Else ' عرض رسالة إذا لم تكن هناك سجلات في الجدول لتصديرها MsgBox ("لا يوجد سجلات لتصديرها "), vbOKOnly + vbMsgBoxRight, "تنبيه" End If Exit_cm_ToExcel_Click: ' نقطة الخروج العادية من الإجراء Exit Sub Err_cm_ToExcel_Click: ' معالج الأخطاء: عرض وصف الخطأ الذي حدث MsgBox Err.Description, vbCritical, "خطأ" ' استئناف التنفيذ عند نقطة الخروج العادية من الإجراء Resume Exit_cm_ToExcel_Click End Sub