مشروع نقابة الاسنان

rs.edit
rs!name=text1.text
rs!age=text2.text
rs.update

حيث rs هي اسم الrecord source

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

هذا طبعا لو كنت تربط الداتا بيز عن طريق DAO او Data Controle

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

شكرآ استاذي العزيز على الرد السريع الذي وضح لي انة ضروري ان اوضح بعض الاشياء المهمة:

انا استخدم الــ DAO و كذلك لا استخدم اي اداة مثل الــdata control

يوجد مشكلة اخرى كيف استعلم عن بيانات مريض موجود بالفعل من خلال بضع حروف من اسمة فقط؟

الرجاء من سيادتكم امدادي بالطريقة من اجل استكمال برنامجي

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

استخدم التصفية filtering مع ال recordset

السلام عليكم

ان فرحتي لا تقدر

و خصوصا على هذة المشاركات الفعالة و في يوم واحد

و لكن كيف اعمل filter هل يمكن وضع الكود لذلك؟

انا عندي جدول اسمة p_names

واريد عندما ادخل الحروف الاولي من الاسم يبحث عن الاسماء المتشابهة

و ان كان هناك عبارة sql

يكون افضل

و شكرا

حاول تسفيد من الكود التالي بحيث يمكنك بحث عن طريق الأحرف الأولى من الأسم

Adodc1.RecordSource = "select * from tabel name where field name
 like '" & Trim(Text1.Text) & "%'" & ""

السلام عليكم

اشكركم كثيرآ على مشاركاتكم الغالية

و لكن عند تنفيذي للمقترحات تظهر رسالة بمعني : لا توجد سجلات

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

Dim pn As Recordset

sql5 = "select * from psh_names where p_name like '" & Trim(txtpid(1)) & "%'" & ""

'sql5 = "select * from psh_names where p_name =" & Chr(34) & Trim(txtpid(1)) & Chr(34) & ""

Set pn = DB.OpenRecordset(sql5)

'pn.Filter = "p_name like '" & Trim(txtpid(0)) & "%'" & ""

If pn.RecordCount > 0 Then

txtpid(2).Text = pn.Fields(0)

'dbmr.Text = pn.Fields(7)

'Else

'MsgBox ""

End If

ما هي المشكلة؟

علما باني لا استخدم اي ادوات للداتا بيز مثل ado او adodb

من فضلكم احتاج الرد سريعأ

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

أرجو أن يساعدك الشباب

و أنصحك با ستخدام ADO ( مجرد نصيحة )

أرجو السموحة و شكرا

Dim pn As Recordset
sql5 = "select * from psh_names where p_name like '" & Trim(txtpid(1)) & "%'" & ""
'sql5 = "select * from psh_names where p_name =" & Chr(34) & Trim(txtpid(1)) & Chr(34) & ""
Set pn = DB.OpenRecordset(sql5)
'pn.Filter = "p_name like '" & Trim(txtpid(0)) & "%'" & ""
If pn.RecordCount > 0 Then
txtpid(2).Text = pn.Fields(0)
'dbmr.Text = pn.Fields(7)
'Else
'MsgBox ""
End If

السلام عليكم

لازلت في مشكلتي

ولكني ارفقت المشروع حتى تضح الصورة

رجاءأ لا تبخلوا علي بالعلم

شكرآ

مشروع النقابة.zip

السلام عليكم

معقول لا يوجد رد حتى الان

ارجوا الا تنسوني