关于数据提示模块，无记录时无法进入主控面板

小小鸟

我在用户登陆后，用了这样一个模块：

Public Sub safestore()
Dim myrecordset As New ADODB.Recordset, i As Integer
Set myrecordset = New ADODB.Recordset
    myrecordset.Open "未办电报", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
      myrecordset.MoveFirst
        For i = 1 To myrecordset.RecordCount
                MsgBox "请接班同志及时办理遗报：" & myrecordset("收电编号") & "！", vbOKOnly + vbExclamation, "遗报提示!"
                myrecordset.MoveNext
         Next i
End Sub

以便能弹出未办电报的提示，可是当无“未办电报”时，该模块却导致无法进入主控面板。请各位帮忙看看~！！！

另：在收报窗体中有“定位查找”按钮：
Private Sub 命令29_Click()
Dim strCont As String
   
    Me.登记子窗体.SetFocus
   
    strCont = InputBox("请输入要查看的收电编号", "定位查询")
   
    If IsNull(strCont) Or Trim(strCont) = "" Then
   
    MsgBox "请输入查询内容！", vbOKOnly + vbExclamation, "提示"

        Exit Sub
    End If
   
    DoCmd.FindRecord strCont, , False, , True
End Sub

我点取消时，仍然提示"请输入查询内容！"，请问该怎么改　？？

andymark

1.把 DoCmd.Close      '关闭窗体         这句删除

2.

Dim strCont As String
   
    Me.登记子窗体.SetFocus
   
   strCont = InputBox("请输入要查看的收电编号", "定位查询", Me.文本2)
    If IsNull(strCont) Or strCont = "" Then
       Exit Sub
    Else
    DoCmd.FindRecord strCont, , False, , True
    End If

小小鸟

感谢您的回复。

第一个问：删了好象还是不行哦。

第二个问可以了，只是默认的是待登记的文件号，能否为空　？

andymark

如果不提示输入就可以，要不然就会回到你刚刚的问题

按了取消也要你输入

小小鸟

了解。　

那再麻烦下您，第一个问题怎么解决？

andymark

是这样吗

小小鸟

不好意思，由于　未办电报　查询出错了，所以我不知道你修改了什么地方？　也看不到效果。抱歉

而且　未办电报　我怎么改也没用，郁闷啊。　

[此贴子已经被作者于2006-7-24 11:27:15编辑过]

andymark

  我也看不到你的例子有 未办电报提示