Controls Disappear

J

JimS

When I fired the btnClear button (with the following code...), All my
controls disappeared (though the code works...) and I can't get them back.
They're there in design mode, but won't appear in form mode. Yes, I did check
the visible property. It's OK. I was shocked! Any ideas?

Private Sub btnClear_Click()
Dim response As Variant
response = MsgBox("I told you not to click this!", vbOKCancel, "Killin
All Batches!!!")
If response = vbOK Then
Dim strSQL As String
strSQL = "UPDATE tblStaffAugTrans SET tblStaffAugTrans.Batchid =
null WHERE ISNULL(tblStaffAugTrans.Batchid) = False"
DoCmd.RunSQL strSQL
CurrentProject.AccessConnection.Execute "DELETE * from tblbatch"
Me.Requery
End If
End Sub
 
M

missinglinq via AccessMonster.com

Controls "disappear" when the form's RecordSource has no records in it and
the AllowAdditions is set to NO. When you delete all the records with your
code, your RecordSource is, essentially, empty!
 
Top