سؤال عن الكود اللازم لعملية فتح السجل

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

ممكن تكتب الكود اللى انت استخدمته علشان من خلاله اقدر اكتبلك الكود الخاص بالبحث علشان انا شغال بطريقة ال Dao اوكى

الكود يلي هطيتو هو

في الموديل كتبت

public d as database

public t as recordset

وفي حدث التحميل بالفورم كتبت

Set t = d.OpenRecordset("tb1", dbOpenTable(

t.MoveLast

Call showdata

ثم كتبت في الموديل التالي

Set d = DBEngine.Workspaces(0).OpenDatabase(App.Path & "\db1.mdb", True)

وأنا ربطت القاعدة عن طريق microsoft dao 3.51

أرجو أن تساعدني

وشكراً لك

النسر الأبيض

السلام عليكم

اقتباس

إذا أردت فتح سجل هذا الطالب أنقر على زر فتح

فما هو الكود اللازم لهذه العملية

اعزرني لم افهم قصدك . هلي تريد ان تفتحه مثلا للتعديل ؟

بصراحة أنا اعمل برنامج للمرضى وأنت كما تعلم عند الأطباء قد يعود المريض لعند الطبيب مرة أخرى للمراجعة أو لغيره فيحتاج الطبيب أن يرى الملف الشخصي لهذا المريض فيقوم بالبحث عنه عن طريق إدخال إسمه وعند إيجاده يقوم الطبيب بنقر على زر فتح لتظهر كافة المعلومات عن هذا المريض

ثم إذا أراد الطبيب أن يعدل شيا ينقر على زر تعديل

أي عند النقر على زر فتح يقوم بإظهار السجل فقط ثم عند النقر على زر تعديل يعدل

وشكرا لأهتمامك

وجزالك الله عني كل خير

:unsure: النسر الأبيض :unsure:

:( :( :( :(

السلام عليكم

اخي العزيز اعزرني لاني ساكتب لك الكود مع العلم باني قد جربته هنا في الجهاز الا اني اكتشقت ان الجهاز مصاب بالـ.......... :D

اولا قم بادراج 4 صناديق نصوص , و ثلاث ازرار امر

ضع هذا الكود في الزر الاول و هو " لحفظ البيانات " :

Private Sub Command1_Click()
With t
    .AddNew
    !SeckNum = Text1.Text
    !SeckName = Text2.Text
    !SeckDate = Text3.Text
    !SeckMedication = Text4.Text
    .Update
End With
MsgBox "تم حفظ البيانات"
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text1.SetFocus

End Sub

ضع هذا الكود في الزر الثاني و هو " للبحث عن بيانات المريض بعد ادخال رقمة " مع العلم تحتاج الي ان تعمل حقل الـ "SeckNum " كـ index للجدول :

Private Sub Command2_Click()
SerachFor = InputBox("الرجاء ادخال رقم المريض")
If SerachFor = "" Then Exit Sub
SearchStr$ = SerachFor
t.Index = "SeckNum"
t.Seek "=", SearchStr$
If Not t.NoMatch Then
    Text1.Text = t!SeckNum
    Text2.Text = t!SeckName
    Text3.Text = t!SeckDate
    Text4.Text = t!SeckMedication
Exit Sub
End If
'
If t.NoMatch Then
    Text1.Text = ""
    Text2.Text = ""
    Text3.Text = ""
    Text4.Text = ""
    Text1.SetFocus
    MsgBox "عفواً لا توجد نتائج"
End If
End Sub

و هذا في زر الامر الاخير لحفظ التعديل علي البيانات بعد الاطلاع عليها :

Private Sub Command3_Click()
With t
    .Edit
    !SeckNum = Text1.Text
    !SeckName = Text2.Text
    !SeckDate = Text3.Text
    !SeckMedication = Text4.Text
    .Update
End With
    MsgBox "تم التعديل"
    Text1.Text = ""
    Text2.Text = ""
    Text3.Text = ""
    Text4.Text = ""
    Text1.SetFocus
End Sub

المعزرة مرة اخري

شكرا لك على هذا الرد المتميز لقد جربت الطريقة ونجحت بحمد الله

ولكن هل تستطيع أن تكمل هذه الطريقة التي بدأتها وهي

1- عند النقر على زر بحث يفتح فورم جديد

2- يوجد فيه زران الأول فتح بأستخدام الرقم

الثاني فتح بأستخدام الإسم

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

يوجد فيه text box و list box و ثلاثة أزرار ( بحث - فتح - إغلاق )

الكود الموجود في الزر بحث هو التالي :

List1.Clear

SQL = "select name from tb1 where num = " & Text1.Text & " "

Set tb = db.OpenRecordset(SQL, dbOpenDynaset)

If tb.RecordCount < 1 Then Exit Sub

tb.MoveLast

tb.MoveFirst

n = tb.RecordCount

For i = 1 To n

List1.AddItem tb!Name

tb.MoveNext

Next i

(ولتستطيع توضيحه أنسخه إلى الورد أو الدفتر)

عندها بعد إدخال القيمة في text box يظهر الناتج في list box

عند النقر على الإسم في list box

1- يظهر الـform 1

2- ينتقل إلى السجل المطلوب (أي الذي قمنا بالبحث عنه )

ملاحظة في الفورم 1 يوج كل شئ أي التالي و الحفظ والتعديل .......الخ

أنا على علم تام بأن هذه الطريقة صعبة لكن هل أستطيع فعل ذلك ثم كيف

وأنا آسف على كثرة الأسئلة

وشكرا لك

النسر الأبيض

:rolleyes: :rolleyes: :rolleyes: :rolleyes:

لقد قمت بتطبق الطريقة التي أعطيتني إياها لكن لم اعرف كيف أضع الـ index أرجو أن توضح وشكر

السلام عليكم

عند مرحلة تصميم الجدول

انظر الصور المرفقة

Pics.rar