hollow_man قام بنشر نوفمبر 9, 2018 مشاركة قام بنشر نوفمبر 9, 2018 السلام عليكم ورحمه الله وبركاته لدي قاعدة بيانات بها أكثر من قائمه منسدلة وتحتوي علي بيانات لا يمكن أضافة او تعديل عليها limit to list ويوجد مربع نصي عند ضغط زر ينشىء جمله من جميع بيانات القوائم المنسدله : والعكس عند الضغط على زر يفرغ جميع محتويات المربع الى النصى إلى القوائم المنسدلة باستخدام mid السؤال هنا عند كتابه اى كلام فى المربع النصي وتفريغه على القوائم يمكن ان تحتوي القوائم على بيانات ليست من القائمه ويقبل حفظها عادى مما سيسبب الكثير من المشكلات فى التقارير هل من حل جزاكم الله خير الجزاء والسلام عليكم ورحمه الله وبركاته رابط هذا التعليق شارك More sharing options...
Shivan Rekany قام بنشر نوفمبر 12, 2018 مشاركة قام بنشر نوفمبر 12, 2018 اعطينا نسخة مصغرة من القاعدة لكي نقدر نعطيك الحلول 2 رابط هذا التعليق شارك More sharing options...
hollow_man قام بنشر نوفمبر 14, 2018 الكاتب مشاركة قام بنشر نوفمبر 14, 2018 الملف اهو اخي الكريم وشكراً مقدماً 1.rar رابط هذا التعليق شارك More sharing options...
Shivan Rekany قام بنشر نوفمبر 15, 2018 مشاركة قام بنشر نوفمبر 15, 2018 (معدل) Private Sub Dispatch_ID_AfterUpdate() Dim i As Integer, ii As Integer For i = 1 To Me.Dest_office.ListCount - 1 If Me.Dest_office.ItemData(i) = Mid([Dispatch_ID], 1, 3) Then Dest_office = Mid([Dispatch_ID], 1, 3) Else Dest_office = Null Next i For ii = 1 To Me.Subclass.ListCount If Me.Subclass.ItemData(i) = Mid([Dispatch_ID], 4, 2) Then Subclass = Mid([Dispatch_ID], 4, 2) Else Subclass = Null Next ii 'Dest_office = Mid([Dispatch_ID], 1, 3) 'Subclass = Mid([Dispatch_ID], 4, 2) Dispatch_year = Mid([Dispatch_ID], 5, 2) no_dispatch = Mid([Dispatch_ID], 8, 2) End Sub 1.rar تم تعديل نوفمبر 15, 2018 بواسطه Shivan Rekany 1 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان