关于打印代码修改

huimian2006

以下是以前做的一个代码：

Private Sub Command7_Click()
    Dim TempMsgbox As VbMsgBoxStyle
    TempMsgbox = MsgBox("确认要打印吗?按是打印,否浏览!", vbYesNoCancel + vbQuestion, "印前提示")
    If TempMsgbox = vbCancel Then Exit Sub

    If TempMsgbox = vbYes Then
        If MsgBox("请放入证书的第一页纸后按确认!", vbYesNo + vbInformation) = vbYes Then
            DoCmd.OpenReport "房地产他项权证证号", , , "房地产他项权证第=" & Me.房地产他项权证第
            If MsgBox("请放入证书的第二页纸后按确认!", vbYesNo + vbInformation) = vbYes Then
                DoCmd.OpenReport "房地产他项权证主体内容", , , "房地产他项权证第=" & Me.房地产他项权证第
                If MsgBox("请放入证书的第三页纸后按确认!", vbYesNo + vbInformation) = vbYes Then
                    DoCmd.OpenReport "房地产他项权证存根", , , "房地产他项权证第=" & Me.房地产他项权证第
                End If
            End If
        End If
    Else
        If MsgBox("请放入证书的第一页纸后按确认!", vbYesNo + vbInformation) = vbYes Then
            DoCmd.OpenReport "房地产他项权证证号", acViewPreview, , "房地产他项权证第=" & Me.房地产他项权证第
            If MsgBox("请放入证书的第二页纸后按确认!", vbYesNo + vbInformation) = vbYes Then
                DoCmd.OpenReport "房地产他项权证主体内容", acViewPreview, , "房地产他项权证第=" & Me.房地产他项权证第
                If MsgBox("请放入证书的第三页纸后按确认!", vbYesNo + vbInformation) = vbYes Then
                    DoCmd.OpenReport "房地产他项权证存根", acViewPreview, , "房地产他项权证第=" & Me.房地产他项权证第
                End If
            End If
        End If
    End If
   
    End Sub

以前 房地产他项权证第 这个字段是数字型的，现在改为文字型的，代码怎么改？

tmtony

所有类似 "房地产他项权证第=" & Me.房地产他项权证第

改为 "房地产他项权证第='" & Me.房地产他项权证第 & "'"