Всем привет. Очень долго ищу и не могу понять в чем именно ошибка. Программа запускается, но уже при нажатии на кнопку, появляется ошибка. Указывающая соответсвенно на процедуру нажатой кнопки. Еще при дебаге ws, db, rs = Nothing.
[vba]Код
Private ws As Object
Private db As Object
Private rs As Object
Private Sub UserForm2_Initialize()
Set ws = DBEngine.Workspaces(0)
Set db = ws.OpenDatabase("C:\Users\Rov3r0\Desktop\student.accdb")
Set rs = db.OpenRecordset("Первый курс")
'Showrecord'
End Sub
Private Sub Showrecord()
With rs
txtName.Text = .Fields("Фамилия").Value
txtGroup.Text = .Fields("Группа").Value
txtSubject.Text = .Fields("Предмет").Value
txtMark.Text = .Fields("Оценка").Value
End With
End Sub
Private Sub cmdFirst_Click()
rs.MoveFirst
Showrecord
End Sub
Private Sub cmdLast_Click()
rs.MoveLast
Showrecord
End Sub
Private Sub cmdPrevious_Click()
rs.MovePrevious
If rs.BOF = True Then
rs.MoveFirst
MsgBox ("ÏåðâГ*Гї Г§Г*ГЇГЁГ±Гј")
End If
Showrecord
End Sub
Private Sub cmdNext_Click()
rs.MoveNext
If rs.EOF = True Then
rs.MoveLast
MsgBox ("ÏîñëåäГ*ГїГї Г§Г*ГЇГЁГ±Гј")
End If
Showrecord
End Sub
Private Sub cmdClose_Click()
rs.Close
db.Close
ws.Close
Unload Me
End Sub
[/vba]