Открытие формы с условиями

@alexkay · Регистрация: 21.09.2016

Author24 — интернет-сервис помощи студентам

Доброго времени суток!
В программировании я новичок, но необходимо с помощью кода VBA решить проблему в моей БД Access
Суть такова: есть таблица персональные данные которая связана с таблицей оценивание отношением один ко многим. На основе этих таблиц созданы формы с такими же названиями

Выбирая необходимого человека в форме персональные данные , необходимо чтобы при нажатии кнопки в этой форме -открылась форма оценивание в режиме создания новой записи, но чтобы был подтянут код этого человека.
Смысл в том чтобы открылась не просто пустая форма а уже с этим человеком, ему потом ставятся оценки и всё!!!

Помогите с кодом пжлст!!!

Visual Basic

Private Sub оц_Click()
On Error GoTo Err_оц_Click
 
    Dim stDocName As String
    Dim stLinkCriteria As String
 
    stDocName = "период_оц"                        
    stLinkCriteria = "[Код_перс]=" & Me![Код]    
 
    DoCmd.OpenForm stDocName, , , stLinkCriteria
    DoCmd.Close acForm, "Перс_дан"               
Exit_оцінювання_Click:
    Exit Sub
 
Err_оц_Click:
    MsgBox Err.Description
    Resume Exit_оц_Click
End Sub

mobile · 21.09.2016, 16:28

Visual Basic

Private Sub оц_Click()
On Error GoTo Err_оц_Click
 
Dim stDocName As String
Dim stLinkCriteria As String
 
stDocName = "период_оц" 
stLinkCriteria = "[Код_перс]=" & Me![Код] 
 
DoCmd.OpenForm stDocName, , , stLinkCriteria, acFormAdd 'Открытие формы на новой записи
Forms(stDocName)![Код_перс]= & Me![Код]                 'Задаем текущий код полю
 
DoCmd.Close acForm, "Перс_дан" 
Exit_оцінювання_Click:
Exit Sub
 
Err_оц_Click:
MsgBox Err.Description
Resume Exit_оц_Click
End Sub

@alexkay · 21.09.2016, 21:28 **[ТС]**

Сообщение от mobile

Forms(stDocName)![Код_перс]= & Me![Код]

выделяет красным, поставил перед " перед Me![Код]

Forms(stDocName)![Код_перс]= & "Me![Код] , вроде нормально, но прога не работает, пишет ошибку "введённое значение не подходит для данного поля"

забыл сказать что это поле со списком. То есть код человека (число)в форме персональные данные, должно соответствовать значению в поле со списком в форме оценивание. Поле со списком состоит из двух колонок, код человека (число) и фамилия (текст).

Спасибо Вам за оперативность!! Но вопрос пока не снят..... Жду помощи!!!!

Добавлено через 3 часа 49 минут

Visual Basic

Private Sub оц_Click()
On Error GoTo Err_оц_Click
 
Dim stDocName As String
Dim stLinkCriteria As String
 
stDocName = "период_оц"
stLinkCriteria = "[Код_перс]=" & Me![Код]
 
DoCmd.OpenForm stDocName, , , stLinkCriteria, acFormAdd 'открытие формы на новой записи
Forms(stDocName)![код_перс] = Me![Код]                  'Задаём текущий код полю"
 
 
DoCmd.Close acForm, "Перс_дан"                          'закрытие предыдущей формы
Exit_оц_Click:
Exit Sub
 
Err_оц_Click:
MsgBox Err.Description
Resume Exit_оц_Click
End Sub

ПОЛУЧИЛОСЬ!
Всем спасибо за помощь, особенно mobile , очень помог спасибо РЕСПЕКТ!!!

	21.09.2016, 21:28

Открытие формы с условиями

Решение