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

[Sadry_Royal]

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

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\daneshjo.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 هم ساختم ولی نمیدونم چرا جواب نمیده. به نظرم یه کاری نکردم و جا انداختمش میشه راهنماییم کنید و بگید باید چیکار کنم؟

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

[sehm67]

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


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

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

Run-Time error'94
Invalid Use of Null

در قسمت
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

[Sadry_Royal]

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

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

Run-Time error'94
Invalid Use of Null

در قسمت
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