窗体两个有关联关系的字段的代码怎么写？具体要求见图片中红色的文字

蕃蔸　发表于：2013-05-06 10:46:48 　

复制

Top

西出阳关无故人发表于：2013-05-06 11:38:31

1、current的时候，根据“是否出现并发症”的值，确定“并发症名称”是否显示

2、“是否出现并发症”更新后，根据“是否出现并发症”的值，确定“并发症名称”是否显示

Top

西出阳关无故人发表于：2013-05-06 11:47:00

if 是否出现并发症=0 then

并发症名称..Visible=false

else

并发症名称..Visible=true

end if

Top

殷小宝发表于：2013-05-06 22:30:45

if isnull(me.text1) then

msgbox "请先录入是否有并发症“，vbokonly,"提示“

me.text1.setfocus

exit sub

end if

if isnull(me.text2) then

msgbox "请录入并发症名称“，vbokonly,"提示“

me.text2.setfocus

exit sub

end if

Top

蕃蔸发表于：2013-05-07 13:48:09

感谢各位的回复，前两条问题解决，自己回复一下。供大家参考，第三条尚未解决，期待大家回复。

Private Sub b_GotFocus()
    If IsNull(a.Value) Then
    MsgBox "请先填写“是否有并发症”", vbInformation, "友情提醒：": Me.a.SetFocus
    ElseIf Me.a = "否" Then
    MsgBox "填写的无并发症，无法填写", vbInformation, "友情提醒：": Me.a.SetFocus
    End If
End Sub

Top

蕃蔸发表于：2013-05-07 15:19:07

第三条问题解决，但是新的问题出现，怎么才能点击MsgBox 中的确定，光标能回到“并发症”录入框，而不是直接关闭窗体呢？

Private Sub Form_Unload(Cancel As Integer)
If (a.Value <> "" And IsNull(b.Value)) Then
MsgBox "并发症必须填写", vbInformation, "错误提示：": Me.b.SetFocus
      Exit Sub
     End If
   End Sub

Top

蕃蔸发表于：2013-05-08 08:06:29

在殷小宝的帮助下这个问题得已解决，在此对殷小宝表示感谢，附上代码，以供大家参考。

Option Compare Database
Private Sub b_GotFocus()
    If IsNull(a.Value) Then
    MsgBox "请先填写“是否有并发症”", vbInformation, "友情提醒：": Me.a.SetFocus
    ElseIf Me.a = "否" Then
    MsgBox "填写的“是否有并发症”为否，无法填写", vbInformation, "友情提醒：": Me.a.SetFocus
    End If
End Sub

Private Sub Form_Unload(Cancel As Integer)
If (a.Value = "是" And IsNull(b.Value)) Then
        If MsgBox("并发症必须填写", vbInformation + vbOKOnly, "错误提示") = vbOK Then

            Me.b.SetFocus
           Cancel = True
        End If
    End If
End Sub

Top

总记录：6篇页次：1/1 9 1 :

Access交流中心

窗体两个有关联关系的字段的代码怎么写？具体要求见图片中红色的文字