abu taher 34 Practically a Posting Shark

u can get idea from the attach file.

abu taher 34 Practically a Posting Shark

did you write code

Beep

If not then I think no problem in your code.

abu taher 34 Practically a Posting Shark

lot of man come here to learn many thing. so don't worry. Dezirous give you the answer. so check it. good luck.

abu taher 34 Practically a Posting Shark

and if you it increase auto then check under check box.

abu taher 34 Practically a Posting Shark

what you mean? "it doesnt just end."
You want it will hide? then write code in form_laod
"me.hide" or "form1.hide"

abu taher 34 Practically a Posting Shark

I think different. Delete it from c:\Programs files. I think you have no problem if you delete it.

abu taher 34 Practically a Posting Shark

If you have no other question then please mark it solved.

abu taher 34 Practically a Posting Shark

have you any other question? If not then mark it solved.

abu taher 34 Practically a Posting Shark

you can write activex button in google for search. then you can get a lot of free activex button. here I attach a file. try it.

abu taher 34 Practically a Posting Shark

Private Sub Form_Unload(Cancel As Integer)
Dim msg
msg = "Do you want to Exit? "
reply = MsgBox(msg, vbExclamation + vbYesNo)
Select Case reply
Case vbNo
Cancel = -1
Case vbYes
End
End Select
End Sub

abu taher 34 Practically a Posting Shark

>>I run a Malwarebytes' Anti-Malware scan that found 79! infected files. Deleted all of them.

you see that files what you deleted? I don't know but I think you miss some system files. what was corrupted by virus. One thing if you have no problem then you can try to install new windows and then try again.

abu taher 34 Practically a Posting Shark
Private Sub cmdfind_Click()
Dim a As String
Dim b As String


a = text1.text 'employee number
If Len(a) = 0 Then Exit Sub
b = "Employee Number Like """ & a & "*"""
Data1.Recordset.FindNext b
If Data1.Recordset.NoMatch Then
MsgBox "No record found", vbExclamation
end If
Exit Sub