کمک فوری ؛ برنامه ای در ارتباط با پایگاه داده ها

سلام من این برنامه رو نوشتم مربوط به جدول دانشجو هست ولی جواب نمیده

Dim db As Database
Dim rs As Recordset
Private Sub Command1_Click()
rs.AddNew
rs.Fields(0) = Val(Text1.Text)
rs.Fields(1) = Text2.Text
rs.Fields(2) = Val(Text3.Text)
rs.Update
End Sub

Private Sub Command2_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text1.SetFocus
End Sub

Private Sub Command3_Click()
rs.FindFirst "code=" & Text4.Text
If rs.NoMatch = True Then
MsgBox "not found"
Else
Call lader
End If
End Sub

Private Sub Command4_Click()
Dim x As Variant
x = MsgBox("ÍÐÝ ÔæÏ", vbYesNo, "ÍÐÝ")
If x = vbYes Then
rs.Delete
rs.Close
Set rs = db.OpenRecordset("danesh", dbOpenDynaset)
End If
End Sub

Private Sub Command5_Click()
Set db = DBEngine.OpenDatabase("C:\Users\acer\Documents\dan eshjo.mdb")
Set rs = db.OpenRecordset("danesh", dbOpenDynaset)
End Sub

Private Sub Form_Load()
Call Command5_Click
Call loader
End Sub
Private Sub loader()
Text1.Text = rs.Fields(0)
Text2.Text = rs.Fields(1)
Text3.Text = rs.Fields(2)
End Sub

از منوی project قسمت refrence گزینه microsoft DAO 3.6 رو هم تیک زدم
یه بانکی به نام daneshjo هم ساختم ولی نمیدونم چرا جواب نمیده. به نظرم یه کاری نکردم و جا انداختمش میشه راهنماییم کنید و بگید باید چیکار کنم؟

با سپاس بی پایان

نقل قول:

---

سلام من این برنامه رو نوشتم مربوط به جدول دانشجو هست ولی جواب نمیده

---

شما دوست عزیز بگید چه مشکلی دارید ؟

اگه خطای زیر رو به شما می ده :

Run-Time error'94
Invalid Use of Null

در قسمت

کد HTML:

---

Private Sub loader()
Text1.Text = rs.Fields(0)
Text2.Text = rs.Fields(1)
Text3.Text = rs.Fields(2)
End Sub

---

کد زیر را وارد نمایید :

Private Sub loader()

On Error Resume Next

Text1.Text = rs.Fields(0)

Text2.Text = rs.Fields(1)

Text3.Text = rs.Fields(2)

End Sub

نقل قول:

---

نوشته شده توسط sehm67

شما دوست عزیز بگید چه مشکلی دارید ؟

اگه خطای زیر رو به شما می ده :

Run-Time error'94
Invalid Use of Null

در قسمت

کد HTML:

---

Private Sub loader()
Text1.Text = rs.Fields(0)
Text2.Text = rs.Fields(1)
Text3.Text = rs.Fields(2)
End Sub

---

کد زیر را وارد نمایید :

Private Sub loader()

On Error Resume Next

Text1.Text = rs.Fields(0)

Text2.Text = rs.Fields(1)

Text3.Text = rs.Fields(2)

End Sub

---

سلام دوست عزیز ممنون که جواب دادین ابتدا کاری رو که فرمودین انجام دادم و اتفاقا درست هم شد ولی قسمت جستجوی کدش رو خطا میده : compile error sub or function not defined