用户变量未定义错误

twtjcf

求助中!!!!
当程序运行到红字处时提示错误


If DLookup("预约位", "RecAPP", "日期=#" & Me.Combodatelist & "#" & " And 时间段='" & _
          Me.ComboTimelist & "'") > 0 Then
          If (CLng(Me.总箱数) + Nz(DSum("总箱数", "NORMAL APP", "送货日期=#" & Me.Combodatelist & "#" & " And 送货时间='" & _
             Me.ComboTimelist & "' and CInt(Mid([预约号], 3, 3)) < 400 or [预约号] Like '__6__'"))) > (IIf(IsNull(Me.AppStatussubform!计划可约箱数), 0, Me.AppStatussubform!计划可约箱数)) * 1.1 Then
             overcase = (CLng(Me.总箱数) + Nz(DSum("总箱数", "NORMAL APP", "送货日期=#" & Me.Combodatelist & "#" & " And 送货时间='" & _
             Me.ComboTimelist & "' and CInt(Mid([预约号], 3, 3)) < 400 or [预约号] Like '__6__'"))) - (IIf(IsNull(Me.AppStatussubform!计划可约箱数), 0, Me.AppStatussubform!计划可约箱数)) * 1.1
            
             If MsgBox("输入的箱数将大于“该时段计划可约总箱数的10%,共超出: " & overcase & "箱”，<OK> 继续预约，<Cancel> 改其它时间预约！", vbOKCancel, "警告") = vbOK Then
                formnew.show 1 (出现错误:用户变量未定义)我已建立有formnew窗体了,
               
                Call Access
                If authotest = True Then
                   If MsgBox("确认要增加吗？", vbOKCancel, "确认") = vbCancel Then
                      Exit Sub
                   End If
                Else
                   Me.ComboTimelist.SetFocus
                   Exit Sub
                End If
             Else
                Me.ComboTimelist.SetFocus
                Exit Sub
             End If

zhangjimfu

请上传附件!

roych

不用上传了，Show方法是Excel的UserForm属性，Access里的窗体只有Visible属性，没有Show。

twtjcf

应如何修改呢?

roych

1、如果已经打开窗体，可以用visible属性来隐藏或显示
2、如果还没打开窗体，则可以用Openform方法来打开指定窗体。