如何在ms Access中将值从一种形式传递给另一种形式

时间:2018-11-13 16:45:57

标签: ms-access access-vba access

我正在用详细代码修改我的请求。 我有一个主要的数据输入表。让我们称之为form1。在form1中,我有一个文本字段名称permit_number和一个按钮get_permit_no。为了获得许可证编号,我比较了两个表并检索了查询中所有可能的编号。 当我单击get_permit_no时,form2将弹出,其中包含所有可能的许可证编号。 Form2使用查询作为记录源。

this is form2

然后,用户可以通过单击复选框来选择任何数字。然后,当用户单击“选择允许编号”按钮时,我想将该值传递给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

首先,我需要回到form1作为最后的开始记录位置。然后我要传递值。

谢谢,

0 个答案:

没有答案