Re: Basic Help with MySQL Tables & Access?

[lynnthu thu]

my codes are following ...there was a error for recordset is nothing ...Please help me

Dim dbs As Database
Dim rstDBase As Recordset
Dim strQuerySQL As String
Dim y As String
Dim Field3Upd As String
Dim rstScript As Recordset
Option Compare Database




Private Sub Form_Open(Cancel As Integer)
Dim Msg As String, Style As Integer, Response As Integer


Set dbs = CurrentDb()
Me![DBase_ID].SetFocus
y = Me![DBase_ID].Text
strQuerySQL = "SELECT DBase.DBase_ID, DBase.Desc FROM DBase WHERE DBase.DBase_ID = " & "'" & y & "'"
Set rstDBase = dbs.OpenRecordset(strQuerySQL)
If rstDBase.RecordCount = 0 Then
MsgBox ("Âû äîëæíû ñîçäàòü ñóøåñòâóþøóþ òåñòîâóþ áàçó äàííûõ !")
Me![DBase_ID].SetFocus
Exit Sub
End If
Me![DBase_Desc].SetFocus
Me![DBase_Desc].Text = rstDBase!Desc
Field3Upd = Me![DBase_Desc].Text
Me!Script_ID.SetFocus
y = Me!Script_ID.Text
strQuerySQL = "SELECT Script.Desc FROM Script WHERE Script.Script_ID = " & "'" & y & "'"
Set rstScript = dbs.OpenRecordset(strQuerySQL)
If rstScript.RecordCount = 0 Then
MsgBox ("Âû äîëæíû âûáðàòü ñóùåñòâóþùóþ òåñòîâóþ áàçó äàííûõ !")
Exit Sub
End If
Me![DescScript].SetFocus
Me![DescScript].Text = rstScript!Desc
End Sub
Private Sub Command8_Click()
DoCmd.Close
End Sub