Очистить подформу в Access с помощью кнопки

В моей форме у меня есть кнопка «Готово», которая при нажатии будет очищать форму и должна очистить форму, а затем закрыть форму. Я могу получить все, чтобы работать, ожидая, что я не смогу очистить свою подчиненную форму независимо от того, что я пробовал. Я пытался делатьОчистить подформу в Access с помощью кнопки

Me.subformGroupVolunteers.Form.Filter = Null 
Me.subformGroupVolunteers.Form.FilterOn = False 
Me.subformGroupVolunteers.Form.Requery

и Me.subformGroupVolunteers.Form = "" и Me.subformGroupVolunteers = ""

Пожалуйста, помогите !! Благодаря!!

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

источник

2015-12-05 anecessa

Что вы подразумеваете под "clear"? Связана ли форма/подформат (т. Е. Имеет RecordSource)? Зачем вам нужно что-то делать до закрытия формы? – Andre

@ Andre451 Ясно я подразумеваю очистку всех данных, которые были вставлены в подформу на основе формы. – anecessa

Извините, что до сих пор не совсем ясно (не каламбур). – Andre

Если я правильно понимаю, то подчиненный обязан (= показывает данные) tbl_GroupVolunteers, которая представляет собой временной таблицы.

Вы не представили код для копирования данных в актуальные стол. Но после того, как вы это сделали, просто сделайте

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

и все.

источник

2015-12-09 20:59:11 Andre

Очистить подформу в Access с помощью кнопки

ответ

Смежные вопросы