Есть 2 формы. Для каждой записи первой формы есть кнопочка, открывающая вторую форму. Код кнопочки:
| Код | Private Sub Кнопка_Click() On Error GoTo Err_Кнопка_Click
Dim stDocName As String Dim stLinkCriteria As String
stDocName = ChrW(1055) & ChrW(1086) & ChrW(1083) & ChrW(1100) & ChrW(1079) & ChrW(1086) & ChrW(1074) & ChrW(1072) & ChrW(1090) & ChrW(1077) & ChrW(1083) & ChrW(1080) & ChrW(1055) & ChrW(1072) & ChrW(1087) & ChrW(1086) & ChrW(1082) stLinkCriteria = "[НПапки]=" & Me![НПапки]
DoCmd.OpenForm stDocName, , , stLinkCriteria, acFormEdit
Exit_Кнопка_Click: Exit Sub
Err_Кнопка_Click: MsgBox "Добавьте сначала запись!" Resume Exit_Кнопка_Click End Sub
|
Во второй форме при этом нельзя ни добавлять, ни редактировать записи, хотя в свойствах второй формы разрешено удаление, изменение, ввод и вообще все что можно. В чем, кроме криворукости создателя, здесь может быть проблема? |