ledoledo قام بنشر يونيو 14, 2020 مشاركة قام بنشر يونيو 14, 2020 السادة الخبراء كيف استبدل رقم 400 فى المصفوفة بعدد سجلات جدول معين كما في الكود بالاسفل لان البرنامج يعطي خطأ هل هناك مشكلة فى طريقة الكتابة Dim Z(400) As String Dim X As Integer Dim Z(Dcount("ItmNumber", "TItems")) As String Dim X As Integer رابط هذا التعليق شارك More sharing options...
محمد أبوعبدالله قام بنشر يونيو 14, 2020 مشاركة قام بنشر يونيو 14, 2020 السلام عليكم تفضل اخي الكريم Dim Z As String Z = (DCount("ItmNumber", "TItems")) تحياتي رابط هذا التعليق شارك More sharing options...
ledoledo قام بنشر يونيو 14, 2020 الكاتب مشاركة قام بنشر يونيو 14, 2020 Just now, محمد أبوعبدالله said: السلام عليكم تفضل اخي الكريم Dim Z As String Z = (DCount("ItmNumber", "TItems")) تحياتي تحياتي الاخ الكريم المفترض انها مصفوفة تخزن قيم من جدول فى listbox Dim itms(400) As String Dim itm As Integer For itm = 1 To DMax("ItmNumber", "TItems") itms(itm) = DLookup("ItmName", "TItems", "ItmNumber =" & itm) List1.AddItem (itms(itm)) Next اريد تعويض عدد العناصر فى المصفوفة بعدد سجلات الجدول رابط هذا التعليق شارك More sharing options...
أفضل إجابة محمد أبوعبدالله قام بنشر يونيو 16, 2020 أفضل إجابة مشاركة قام بنشر يونيو 16, 2020 تفضل اخي الكريم وعذرا على التأخير Dim X As Integer X = (DCount("ItmNumber", "TItems")) ReDim itms(X) As String Dim itm As Integer For itm = 1 To DMax("ItmNumber", "TItems") itms(itm) = DLookup("ItmName", "TItems", "ItmNumber =" & itm) List1.AddItem (itms(itm)) Next تحياتي 1 1 رابط هذا التعليق شارك More sharing options...
محمد أبوعبدالله قام بنشر يونيو 16, 2020 مشاركة قام بنشر يونيو 16, 2020 وللفائدة هذا التطبيق الذي تم التنفيذ عليه Db14.rar تحياتي رابط هذا التعليق شارك More sharing options...
ledoledo قام بنشر يونيو 22, 2020 الكاتب مشاركة قام بنشر يونيو 22, 2020 اشكرك الاخ الكريم محمد أبوعبدالله واعتذر عن التاخير في الرد رابط هذا التعليق شارك More sharing options...
محمد أبوعبدالله قام بنشر يونيو 22, 2020 مشاركة قام بنشر يونيو 22, 2020 10 دقائق مضت, ledoledo said: اشكرك الاخ الكريم محمد أبوعبدالله واعتذر عن التاخير في الرد بالتوفيق اخي الكريم تحياتي 1 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان