Я просто пересматриваю свой запрос с подробным кодом.У меня есть основная форма ввода данных.Давайте назовем это form1.В form1 у меня есть имя текстового поля allow_number и кнопка get_permit_no.Чтобы получить номера разрешений, я сравнил две таблицы и извлек все возможные числа в запросе.Когда я нажимаю get_permit_no, появляется форма form2 со всеми возможными номерами разрешений.Форма 2 использует запрос в качестве источника записи.
Затем пользователь может выбрать любое число, установив флажок.Затем, когда пользователь нажимает кнопку выбора номера разрешения, я хочу передать это значение в form1.permit_number.Например, если пользователь выбрал 79959901,77994803, то я хочу передать всю строку в form1.permit_number.
Вот мой код.
Public Sub CmdInsertPermitno_Click()
DoCmd.RunCommand acCmdSaveRecord
Dim rs As DAO.Recordset
Dim strSQL
strSQL = "Select permitno from query3 where check =" & -1
Set rs = CurrentDb.OpenRecordset(strSQL)
Dim pno As String
Dim getpno As String
getpno = ""
With rs
If Not .BOF And Not .EOF Then
.MoveLast
.MoveFirst
While (Not .EOF)
pno = rs.Fields("[permitno]")
.MoveNext
getpno = getpno & "," & pno
Wend
End If
End With
Set rs = Nothing
getpermitno = Right(getpno, Len(getpno) - 1)
DoCmd.OpenForm "Data Entry", acNormal, , , , acWindowNormal, OpenArgs:="getpermitno"
End Sub
Сначала мне нужно вернуться к форме1 какпоследнее открытие рекордного места.Тогда я хочу передать значение.
Спасибо, Htet