i trying to refresh the table and everytime i ger this error
the code that im using
dont know what to do
the code that im using
Code:
Private Sub refreshsystem_Click()
If MsgBox("refresh program? & vbCr & _
"this may take some time depending on you system performance" & vbCr & _
vbCr & "", vbExclamation + vbDefaultButton2 + vbYesNo, "refersh system") = vbNo Then Exit Sub
Dim Frm As Form
For Each Frm In Forms
If Frm.Name <> "MDImain" Then Unload Frm
Next
frmload.Show 1
End Sub