Elena3785
Newbie | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Подскажите, пожайлуста! У меня есть форма "Общая". В ней список (Список423). Я хочу, чтобы при нажатии на этот список у меня открывается форма Данные, в которой надо выбрать необходимое действие. Но когда я выбираю в форме Данные любой из Case, у меня исчезают данные из списка (становятся невидимыми). Как сделать так, чтобы данные из списка не исчезали? Код такой при нажатии на список:
Private Sub Список423_Click()
Dim strMessage As String
Dim intOptions As String
Dim bytChoice As String
strMessage = "В следующем окне выберите необходимое действие"
intOptions = vbQuestion + vbYesNo
bytChoice = MsgBox(strMessage, intOptions)
If bytChoice = vbYes Then
DoCmd.OpenForm "Данные", , , , , acDialog
End If
End Sub
А в форме Данные такой:
Private Sub Кнопка6_Click()
Select Case Группа11
Case 1
DoCmd.OpenForm "ДобавлениеСотрудника", , , , , acDialog
Case 2
DoCmd.OpenForm "ИзменениеДанных", , , , , acDialog
Case 3
DoCmd.OpenForm "ОбновлениеДанных", , , , , acDialog
Case 4
Dim strMessage As String
Dim intOptions As String
Dim bytChoice As String
strMessage = "Вы действительно хотите удалить из базы данного сотрудника?"
intOptions = vbQuestion + vbYesNo
bytChoice = MsgBox(strMessage, intOptions)
If bytChoice = vbYes Then
УдалитьДанные
Forms!Общая.Список423.Requery
End If
End Select
'DoCmd.Close acForm, Me.Name
End Sub
Private Sub УдалитьДанные()
Dim База1 As Object, Работник As Object
Set База1 = CurrentDb
Set Работник = База1.OpenRecordset("Работник", dbOpenDynaset)
With Работник
.FindFirst "[КодРаботник] = " & CStr(Forms!Общая.Список423)
.Delete
Forms!Общая.Список423.Requery
Me.Requery
.Close
End With
Set База1 = Nothing
End Sub
Private Sub Кнопка6_Exit(Cancel As Integer)
Forms!Общая.Список423.Requery
End Sub
|
