ник: SONAR
Привет, парни. Спасибо, что откликнулись.
Вот, собственно код процедуры из первой формы…
(просьбо слишком не смеяться, мне главное понять что делать и как, а там подчищу да «подкрашу»)
в общем, по клику на кнопке запускается процедура:
Private Sub Кнопка16_Click()
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim rs2 As DAO.Recordset
‘ВОТ ЭТИМ, НИЖЕ, переменным и хотелось бы присовить значения из формы ввода.
Dim varNum, varKassir, varOkno, varGrup, varValuta As Variant
Set db = CurrentDb
Set rs = db.OpenRecordset("tbl_Docs", dbOpenDynaset)
Set rs2 = db.OpenRecordset("tbl_Registr", dbOpenDynaset)
‘ВОТ ЗДЕСЬ, была попытка сделать по правильному и красивому, вызываю вторую ‘форму, т.е. форму ввода (приаттачу к сообщению)… собственно это то, что и ‘обсуждается сейчас нами.
'DoCmd.OpenForm frm_InpotDan, acNormal, , , acFormAdd, acDialog(varNum, varKassir, varOkno, varGrup)
‘А ВОТ ТАК, было изначально, но это так же было сделано, мол, щас пусть так, потом ‘сделаю красиво. Но, импутбоксы не устраивают абсолютно, т.к. во-первых есть уже ‘списки, в кои вводить не надо и кои присутствуют в форме ввода, во-вторых, юзеры ‘имеют свойство ошибатсья при вводе…
‘Собственно, сами переменные, и кривой способ присвоить им значения.
varNum = InputBox("Введите номер документа!", "Ввод номера документа")
varKassir = InputBox("Введите ФИО кассира!", "Ввод нового кассира")
varValuta = IIf(Me.RubUsd.Value = "Рубли", "Рублям", "Валюте")
‘ну, а далее поехали добавлять в таблицу….
With rs
.AddNew
![ID] = Me.ID_DOC.Value
![Name] = "Оттиск штампа для папки кассовых документов"
![OKVKU] = Me.KKO.Value
![DateResive] = Me.DateResive.Value
![RubUsd] = Me.RubUsd.Value
![Num] = varNum
![Kassir] = varKassir
![Status] = "Документ отсутствует"
![Messeg] = "Отсутствует оттиск штампа для папки кассовых документов за " & Me.DateDoc.Value & " по " & varValuta & ", по кассиру: " & varKassir
![Isp] = True
.Update
End With
rs.Close
With rs2
.FindFirst "[ID_DOC] = '" & Me![ID_DOC] & "'"
.Edit
![Status] = "В обработке"
.Update
End With
rs2.Close
Set db = Nothing
Me.frm_Docs.Requery
End Sub