Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Проблемы при работе с формой - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
Страница 1 из 11
Модератор форума: _Boroda_, Pelena, Manyasha, SLAVICK 
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Проблемы при работе с формой (Макросы/Sub)
Проблемы при работе с формой
rov3r0 Дата: Среда, 05.10.2016, 10:29 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 3
Репутация: 0 ±
Замечаний: 0% ±

Excel 2007
Всем привет. Очень долго ищу и не могу понять в чем именно ошибка. Программа запускается, но уже при нажатии на кнопку, появляется ошибка. Указывающая соответсвенно на процедуру нажатой кнопки. Еще при дебаге 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]
К сообщению приложен файл: 4141054.jpg(9Kb)


Сообщение отредактировал rov3r0 - Среда, 05.10.2016, 10:31
 
Ответить
СообщениеВсем привет. Очень долго ищу и не могу понять в чем именно ошибка. Программа запускается, но уже при нажатии на кнопку, появляется ошибка. Указывающая соответсвенно на процедуру нажатой кнопки. Еще при дебаге 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]

Автор - rov3r0
Дата добавления - 05.10.2016 в 10:29
Pelena Дата: Среда, 05.10.2016, 10:57 | Сообщение № 2
Группа: Модераторы
Ранг: Экселист
Сообщений: 9839
Репутация: 2252 ±
Замечаний: 0% ±

Excel 2010 & Mac Excel 2011
Название темы ни о чём. Придумайте более конкретное, отражающее суть задачи.
И файл с примером не помешал бы


"Черт возьми, Холмс! Но как??!!"
ЯД 41001765434816
 
Ответить
СообщениеНазвание темы ни о чём. Придумайте более конкретное, отражающее суть задачи.
И файл с примером не помешал бы

Автор - Pelena
Дата добавления - 05.10.2016 в 10:57
Матраскин Дата: Среда, 05.10.2016, 11:22 | Сообщение № 3
Группа: Друзья
Ранг: Обитатель
Сообщений: 341
Репутация: 63 ±
Замечаний: 0% ±

20xx
rov3r0, да так сложно без файла, но первое что бросается в глаза это :

Доступно только для пользователей
[moder]Скрыто администрацией до устранения замечания в части названия темы[/moder]


в интернете опять кто-то не прав

Сообщение отредактировал _Boroda_ - Среда, 05.10.2016, 12:10
 
Ответить
Сообщениеrov3r0, да так сложно без файла, но первое что бросается в глаза это :

Доступно только для пользователей
[moder]Скрыто администрацией до устранения замечания в части названия темы[/moder]

Автор - Матраскин
Дата добавления - 05.10.2016 в 11:22
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Проблемы при работе с формой (Макросы/Sub)
Страница 1 из 11
Поиск:

Яндекс цитирования
© 2010-2016 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!