1st mark it solve. and then start a new thread plz.

try to see it. i think it can help you.

you need to refresh your data control. like: data1.refresh
msflexgrid.refreshetc.

plz more clear.

try it with search option.

why you use this. plz explain.

plz try it.

if the file in same folder(App.Path & "\db1.mdb")

like thisform1.visible = false
image1.visible = false
command1.visible = false

not like that. what will happen in click event that write in module. plz check it.

if you want only 4 digit will type in text box then adjust the properties of text box. max length = 4

its not php. it made by vb6.

have you any problem more? if not please solve it.

plz check it with more.

add a dataenvironment and a datareport. connect the database with dataenvironment and connect the datareport with dataenvironment. and then design the datareport.

install service pack 6 for vb6.

did you connect it by properties or code? try to use code for better result.

in from1 Private Sub Command1_Click()
Form2.Label1.Caption = "Name"
Form2.Show
End Sub

try this Dim f1 As New Form1

' Dim f2 As New Form1 'u must have this form in project



Private Sub Command1_Click()
f1.Show
' f2.Show
End Sub

adjust the alignment, if it has this property.

u can get idea from the attach file.

did you write codeBeep
If not then I think no problem in your code.

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

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

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

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

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.

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

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...