Обновление подформы после того, как информация добавлена ​​

Question

Итак, вот моя проблема. Я могу получить мою подчиненную форму после того, как она была восстановлена, но я не могу получить ее после того, как будет введена новая информация. Может кто-то, пожалуйста, помогите! Я попытался с помощью RecordsetClone и что не работает, а также другие предложения, и я не был в состоянии получить что-нибудь работать

Private Sub cmdAdd_Click() 

CurrentDb.Execute "INSERT INTO tbl_GroupVolunteers (GroupName, Leader, 
VolunteerName, Email, Phone, EmergencyContact, EmergencyNumber, 
NumberofVolunteers, RegistrationNumber)" & _ 
"VALUES ('" & Me.txtGroupName & "','" & Me.cboLeader & "','" & 
Me.txtVolunteerName & "','" & Me.txtEmail & "','" & Me.txtPhone & "','" & 
Me.txtEmergencyContact & _ 
"','" & Me.txtEmergencyNumber & "','" & Me.txtNumberofVolunteers & "','" & 
Me.txtRegistrationNumber & "')" 

'refresh data 
Me!subformGroupVolunteers.Form.Requery 
'Clear form 
cmdClear_Click 

End Sub 

Answer 1

Поместите перерыв в своем коде и шаг через него, чтобы увидеть, где это провал , Я бы предложил выделить функцию Execute. Что-то вроде этого:

Dim sqlStr as String 

sqlStr = "INSERT INTO tbl_GroupVolunteers (GroupName, Leader, 
VolunteerName, Email, Phone, EmergencyContact, EmergencyNumber, 
NumberofVolunteers, RegistrationNumber)" & _ 
"VALUES ('" & Me.txtGroupName & "','" & Me.cboLeader & "','" & 
Me.txtVolunteerName & "','" & Me.txtEmail & "','" & Me.txtPhone & "','" & 
Me.txtEmergencyContact & _ 
"','" & Me.txtEmergencyNumber & "','" & Me.txtNumberofVolunteers & "','" & 
Me.txtRegistrationNumber & "')" 

CurrentDb.Execute sqlStr 

'refresh data 
Me!subformGroupVolunteers.Form.Requery 
'Clear form 
cmdClear_Click 

Или вместо того, чтобы шагать через него, вы можете добавить MessageBox так:

Dim sqlStr as String 

sqlStr = "INSERT INTO tbl_GroupVolunteers (GroupName, Leader, 
VolunteerName, Email, Phone, EmergencyContact, EmergencyNumber, 
NumberofVolunteers, RegistrationNumber)" & _ 
"VALUES ('" & Me.txtGroupName & "','" & Me.cboLeader & "','" & 
Me.txtVolunteerName & "','" & Me.txtEmail & "','" & Me.txtPhone & "','" & 
Me.txtEmergencyContact & _ 
"','" & Me.txtEmergencyNumber & "','" & Me.txtNumberofVolunteers & "','" & 
Me.txtRegistrationNumber & "')" 

Msgbox sqlStr 'Display the string 

CurrentDb.Execute sqlStr 

'refresh data 
Me!subformGroupVolunteers.Form.Requery 
'Clear form 
cmdClear_Click 

Таким образом, вы можете пройти через переменную и убедитесь, что строка, которая будет создаваться функционирует должным образом. Если записи не добавляются правильно, значит, вероятно, потому, что этот оператор INSERT INTO не правильно втягивает данные.