من فضلك لو محتاج اطبع فقط تحليل معين فقط لنفس الانبويه
مثلا نوع الانبوبه EDTA هنا هيجيب كل التحاليل اللى بتندرج تحت الانبوبه دى
وهما كالتالى CBC , HBA1c
لو محتاج CBC فقط اللى تظهر فى التقرير
بمعنى اخر محتاج التحليل اللى حقل barcode = true هو اللى يظهر اسمه فى التقرير
;"strSQL = "INSERT INTO clients ( [no], name, notice ) IN '" & txtPath & "' SELECT clients.[no], clients.name, clients.notice FROM clients
محتاج اضيف داله Dmax للكود التالى بحيث لو الجدول اللى هيتنقل له البيانات حقل no يساوى واحد يزود وهكذا
Private Sub Form_Open(Cancel As Integer)
'-------------------------------------------------
Dim strFilename As String: strFilename = "D:\Syst\Data\SE1.ini"
Dim strTextLine As String
Dim iFile As Integer: iFile = FreeFile
Open strFilename For Input As #iFile
Do Until EOF(1)
Line Input #1, strTextLine
[methodeof].AddItem strTextLine
Loop
Close #iFile
'-------------------------------------------------
ليس هذا هو المطلوب حضرتك
من فضلك محتاج تحديد المسار يكون ثابت فى كود وليس اختيارة فى كل مرة
مثلا لدى اكثر من ComoboBox محتاج من خلال كود vba احدد مسار كل واحدة على حدى
بحيث افتح السهم يظهر القيم المدخلة فى الملف الخاص به دون اختيار مسار بشكل يدوى
--------------
المثال المرفق زر الاستيراد بيكرر القيم فى الـــComoboBox
مش مطلوب زر (استعراض) ولا (استيراد) محتاجها تكون كود داخلى فقط
من فضلك محتاج تحديد المسار يكون ثابت فى كود وليس اختيارة فى كل مرة
مثلا لدى اكثر من ComoboBox محتاج من خلال كود vba احدد مسار كل واحدة على حدى
بحيث افتح السهم يظهر القيم المدخلة فى الملف الخاص به دون اختيار مسار بشكل يدوى