سؤال عن الداتا ربيورت

بسم الله الرحمن الرحيم

بامكانكي استخدام استعلام لايجاد أعلى رقم أدخلتيه Max على الهيئة التالية :

 SELECT Max(sick.num) AS MaxEntry FROM student

ثم زيادة واحد عليه بالنسبة لرقم المريض وكذلك رقم المحلول .

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

اشكرك

ياريت تتم الجميل وتقول لي اين اكتب الكود

بسم الله الرحمن الرحيم

الجمله السابقة جملة SQL افرضي لها RecordSet وسينتج عنها حقل واحد اسمه MaxEntry فيه سجل واحد يحتوي أعلى قيمه في خانة الرقم num في جدول Sick

فيكون الكود كالتالي :

RSMax.Open "SELECT Max(sick.num) AS MaxEntry FROM sick", DB, adOpenStatic, adLockOptimistic
RSMax.MoveFirst
M=RSMax.Fields(0)
RSMax.Close

'ثم تكتبين كود الحفظ بعد ذلك باعتبار أن رقم المدخل الجديد هو M+1

تأكدي من الكود لأنني لم أجربه

بالتوفيق

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

شكرا جزيلا لك

اخي الحمدللة اكملت البرنامج غدا إن شاء الله سارسل لك نسخة على الايميل تبعك

ولكن عندي برنامج صيدلة اريد ان اعرض تقرير بس انا مااستخدمت ال adoانا استخدمت هدا الكود لفتح القاعدة

Public Sub Connect()

Set cn = New Connection

cn.ConnectionString = "Provider =Microsoft.Jet.OLEDB.3.51.0;" & _

"Data Source=" & App.Path & "\Pharmacy1.mdb" '& dbLangGeneral & ";pwd=Password"

'open the connection

cn.Open

Set rsCustomer = New Recordset

rsCustomer.Open "Select * from [Customer]", cn, adOpenKeyset, adLockOptimistic

'++++++++++++++++++++++++++++++

Set rscost = New Recordset

rscost.Open "select * from [cost]", cn, adOpenKeyset, adLockOptimistic

Set rspiltcost = New Recordset

rspiltcost.Open "Select * from [piltcost]", cn, adOpenKeyset, adLockOptimistic

عن طريق الاستعلام اذا حابب سارسل لك البرنامج على الايميل علما اني اريد الاستعراض من ثلاثة جداول