Warning: file_get_contents(/data/phpspider/zhask/data//catemap/1/ms-access/4.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181

Warning: file_get_contents(/data/phpspider/zhask/data//catemap/5/url/2.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
Ms access 使用按钮清除Access中的子窗体_Ms Access_Ms Access 2013 - Fatal编程技术网

Ms access 使用按钮清除Access中的子窗体

Ms access 使用按钮清除Access中的子窗体,ms-access,ms-access-2013,Ms Access,Ms Access 2013,在我的表单上,我有“完成”按钮,单击该按钮将清除表单,并应清除子表单,然后关闭表单。我可以让一切正常工作,但不管我做了什么都无法清除子窗体。 我已经试过了 Me.subformGroupVolunteers.Form.Filter = Null Me.subformGroupVolunteers.Form.FilterOn = False Me.subformGroupVolunteers.Form.Requery 及 Me.subformgroup志愿者.Form=“” 及 Me.subfo

在我的表单上,我有“完成”按钮,单击该按钮将清除表单,并应清除子表单,然后关闭表单。我可以让一切正常工作,但不管我做了什么都无法清除子窗体。 我已经试过了

Me.subformGroupVolunteers.Form.Filter = Null
Me.subformGroupVolunteers.Form.FilterOn = False
Me.subformGroupVolunteers.Form.Requery
及 Me.subformgroup志愿者.Form=“” 及 Me.subformgroup志愿者=“”

请帮忙!!谢谢

Private Sub cmdAdd_Click()
CurrentDb.Execute "INSERT INTO tbl_GroupVolunteers(GroupName, Leader, FirstName, LastName, Phone, Email, EmergencyContactName, EmergencyContactNumber, RegistrationNumber)" & _
 "VALUES('" & Me.txtGroupName & "','" & Me.cboLeader & "','" & Me.txtFirstName & "','" & Me.txtLastName & "','" & Me.txtPhone & _
 "','" & Me.txtEmail & "','" & Me.txtEmergencyContactName & "','" & Me.txtEmergencyContactNumber & "','" & Me.txtRegistrationNumber & "');"

'clear form
cmdClear_Click
'refresh subform
Me.subformGroupVolunteers.Form.Requery
Me.cboLeader.SetFocus

 End Sub

Private Sub cmdClear_Click()
Me.cboLeader = ""
Me.txtFirstName = ""
Me.txtLastName = ""
Me.txtPhone = ""
Me.txtEmail = ""
Me.txtEmergencyContactName = ""
Me.txtEmergencyContactNumber = ""

End Sub

Private Sub cmdDone_Click()
Dim RegistrationMsg As Integer
RegistrationMsg = MsgBox("Your registration number is:" & Me.txtRegistrationNumber & ". Please keep this for your records. You will need this if you want to delete or update your registration!", vbOKOnly, "Registration Number")

cmdClear_Click
Me.txtRegistrationNumber = ""
Me.txtGroupName = ""

Dim varControl As Variant
For Each varControl In Me.subformGroupVolunteers.Form.Controls
If varControl.ControlType = acTextBox Or varControl.ControlType = acLabel Then
    If varControl.Tag = 1 Then
        varControl = ""
        End If
        End If
    Next varControl

DoCmd.Close
End Sub

如果我理解正确,子窗体将绑定到(=显示)
tbl_group志愿者的数据,这是一个临时表

您没有显示将数据复制到actual表的代码。但在你完成之后,只需做一个

CurrentDb.Execute "DELETE * FROM tbl_GroupVolunteers"
Me.subformGroupVolunteers.Form.Requery

就这样。

你说的“清楚”是什么意思?表单/子表单是否已绑定(即具有记录源)?为什么在关闭表单之前需要执行任何操作?@Andre451“清除”的意思是清除基于表单插入到子表单中的所有数据。抱歉,这仍然完全不清楚(无意使用双关语)。@Andre451在这一点上使用双关语是非常感谢的。我知道展示和解释会容易得多,所以我会再次尽力。我有一个子表单绑定到主表单。当我结束该表单上的信息时,它将填充在子表单上并插入到表中。单击“提交”后,我需要子窗体清除其内容。通过“绑定”,我假设窗体和子窗体都有记录源,即它们显示表或查询的数据。“清除”两个表单并准备新数据输入的常用方法是:转到主表单中的新记录。因为没有子窗体记录链接到它,所以它会自动清除。--如果这没有帮助,请将表单+子表单的屏幕截图上载到,并在此处发布链接。