كيفيه إعادة التحقق من صحه بيانات قائمة منسدلة

[hollow_man]

السلام عليكم ورحمه الله وبركاته

لدي قاعدة بيانات بها أكثر من قائمه منسدلة وتحتوي علي بيانات لا يمكن أضافة او تعديل عليها limit to list

ويوجد مربع نصي عند ضغط زر ينشىء جمله من جميع بيانات القوائم المنسدله :

والعكس

عند الضغط على زر يفرغ جميع محتويات المربع الى النصى إلى القوائم المنسدلة باستخدام mid

السؤال هنا عند كتابه اى كلام فى المربع النصي وتفريغه على القوائم يمكن ان تحتوي القوائم على بيانات ليست من القائمه ويقبل حفظها عادى مما سيسبب الكثير من المشكلات فى التقارير

هل من حل جزاكم الله خير الجزاء

والسلام عليكم ورحمه الله وبركاته

 

[Shivan Rekany]

اعطينا نسخة مصغرة من القاعدة لكي نقدر نعطيك الحلول

[hollow_man]

الملف اهو اخي الكريم

وشكراً مقدماً

1.rar

[Shivan Rekany]

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