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在这一点上使用双关语是非常感谢的。我知道展示和解释会容易得多,所以我会再次尽力。我有一个子表单绑定到主表单。当我结束该表单上的信息时,它将填充在子表单上并插入到表中。单击“提交”后,我需要子窗体清除其内容。通过“绑定”,我假设窗体和子窗体都有记录源,即它们显示表或查询的数据。“清除”两个表单并准备新数据输入的常用方法是:转到主表单中的新记录。因为没有子窗体记录链接到它,所以它会自动清除。--如果这没有帮助,请将表单+子表单的屏幕截图上载到,并在此处发布链接。