السلام عليكم ورحمة الله وبركاته
اخواني بحثت في المنتدى ولكن لم اجد مبتغاي وقد يكون خطا مني
في طريقة البحث
استفساري هو :
في حالة استدعاء البيانات من قاعدة البيانات برمجيا وطلب عرضها في الحقول النصية
يتم عرض المعلومات الاساسية مثل الاسم والعنوان صحيحة لكن بقية المعلومات
يتم عرض اول بيانات في الجدول مثل المبلغ وصيد سابق
بالاضافة الى رغبتي باظهار مسج يوضح عدم وجود اية بيانات لموظف حسب الرقم في حال كان ذلك
مثال :
الموظف \ محمد
العنوان \ الرياض
المبلغ \ 500
رصيد سابق \ 200
====
الموظف \ تركي
العنوان \ جدة
المبلغ \ 300
رصيد سابق \ 100
في حال طلب معلومات تركي
يظهر الاسم والعنوان صحيح لكن الملغ والرصيد السابق يظهر 500 \ 200 الخاصة بـ الموظف محمد
Dim QRY As String
QRY = "SELECT SUBSCRIBERS.numsub,SUBSCRIBERS.address, SUBSCRIBERS.namesub, SUBSCRIBERS.numcounter, SUBSCRIBERS.sizecutter, SUBSCRIBERS.servcounter, SUBSCRIBERS.multiply_num, places.placeid, places.placekind, ports.idport, ports.portname, bills.issue_bill, bills.lp_date, bills.dc_current, bills.old_readable, bills.new_readable, bills.consuming_amount, bills.cut_off_readable, bills.consuming_from, bills.consuming_to, bills.amountnow, bills.other, bills.oldamount, bills.amount, bills.km5, bills.km10, bills.km12, bills.km15, bills.km20, bills.km22, bills.km24, bills.km26, bills.id5, bills.id10, bills.id12, bills.id15, bills.id20, bills.id22, bills.id24, bills.id26, bills.days from SUBSCRIBERS, bills, places,ports where NUMSUB = '" & S1 & "'"
Set Q2 = CurrentDb.OpenRecordset(QRY)
If Q2.RecordCount > 0 Then
S2 = Q2!namesub
S4 = Q2!numcounter
S5 = Q2!address
S6 = Q2!servcounter
S7 = Q2!portname
S8 = Q2!placekind
S9 = Q2!sizecutter
S10 = Q2!multiply_num
s31 = Q2!amount
s20 = Q2!id5
s21 = Q2!id10
s22 = Q2!id12
s23 = Q2!id15
s24 = Q2!id20
s25 = Q2!id22
s26 = Q2!id24
s27 = Q2!id26
k1 = Q2!km5
k2 = Q2!km10
k3 = Q2!km12
k4 = Q2!km15
k5 = Q2!km20
k6 = Q2!km22
k7 = Q2!km24
k8 = Q2!km26
k = Q2!days
S12 = Q2!issue_bill
S13 = Q2!lp_date
S14 = Q2!dc_current
S16 = Q2!old_readable
S15 = Q2!new_readable
'S17 = Q2!consuming_amount
'c = Q2!cut_off_readable
S18 = Q2!consuming_from
s19 = Q2!consuming_to
s28 = Q2!amountnow
s30 = Q2!other
s29 = Q2!oldamount
Else
MsgBox ("لا يوجد مشترك بها الرقم")
S2 = ""
S4 = ""
S5 = ""
S6 = ""
S7 = ""
S8 = ""
S9 = ""
S10 = ""
End If
End Sub