Arkadaşlar ben amator olarak bir personel takip prgm'ı yaptım ama bunu biraz daha geliştirip resimli olarak yapmak istiyorum''yani herhangi bir isim istenildiğinde resmide cıkmalı'' bu konuda bana yardımcı olabilecek arkadaşlar varmı??
Diğer arkadaşlara gereke bilir diye kodlarınıda veriyorum...!!!

Private Sub Command1_Click()
With Adodc1.Recordset
.AddNew
.Fields(1) = Text1.Text
.Fields(2) = Text2.Text
.Fields(3) = Text3.Text
.Fields(4) = Text4.Text
.Fields(5) = Text5.Text
.Fields(6) = Text6.Text
.Fields(7) = Text7.Text
.Fields(8) = Text8.Text
.Update
End With
Adodc1.Refresh
MsgBox ("Kayit Basari ile Tamamlandi ")
End Sub

Private Sub Command2_Click()
X = MsgBox("Kayit Degistirilsinmi? ", vbQuestion + vbYesNo)
If X = vbYes Then
With Adodc1.Recordset
.Fields(1) = Text1.Text
.Fields(2) = Text2.Text
.Fields(3) = Text3.Text
.Fields(4) = Text4.Text
.Fields(5) = Text5.Text
.Fields(6) = Text6.Text
.Fields(7) = Text7.Text
.Fields(8) = Text8.Text
.Update
End With
Adodc1.Refresh
Adodc1.Refresh
MsgBox ("Kayit Guncellendi"), vbInformation
End If
End Sub

Private Sub Command3_Click()
K = MsgBox("Kayit Silinsinmi?", vbYesNo + vbQuestion)
If K = vbYes Then
Adodc1.Recordset.Delete
Adodc1.Refresh
Adodc1.Refresh
End If
MsgBox ("Kayit Basariyla Silindi"), vbInformation
End Sub

Private Sub Command4_Click()
Adodc1.Recordset.MovePrevious
If Adodc1.Recordset.BOF Then
Adodc1.Recordset.MoveLast
End If
Text1.Text = Adodc1.Recordset.Fields(1)
Text2.Text = Adodc1.Recordset.Fields(2)
Text3.Text = Adodc1.Recordset.Fields(3)
Text4.Text = Adodc1.Recordset.Fields(4)
Text5.Text = Adodc1.Recordset.Fields(5)
Text6.Text = Adodc1.Recordset.Fields(6)
Text7.Text = Adodc1.Recordset.Fields(7)
Text8.Text = Adodc1.Recordset.Fields(8)
End Sub

Private Sub Command5_Click()
Adodc1.Recordset.MoveNext
If Adodc1.Recordset.EOF Then
Adodc1.Recordset.MoveFirst
End If
Text1.Text = Adodc1.Recordset.Fields(1)
Text2.Text = Adodc1.Recordset.Fields(2)
Text3.Text = Adodc1.Recordset.Fields(3)
Text4.Text = Adodc1.Recordset.Fields(4)
Text5.Text = Adodc1.Recordset.Fields(5)
Text6.Text = Adodc1.Recordset.Fields(6)
Text7.Text = Adodc1.Recordset.Fields(7)
Text8.Text = Adodc1.Recordset.Fields(8)
End Sub

Private Sub Command6_Click()
Shell ("C:\Program Files\Internet Explorer\IEXPLORE.EXE MESAJ AZLIĞINDAN DOLAYI SİLDİM...!!!")

End Sub

Private Sub Command7_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
Text7.Text = ""
Text8.Text = ""
End Sub



Private Sub Form_Load()
Timer1.Interval = 1000
End Sub

Private Sub Text9_Change()
If Option1.Value = True Then
Adodc1.CommandType = adCmdUnknown
Adodc1.RecordSource = "select * from Personel data where [adi]like'" & Text9.Text & "%'"
Adodc1.Refresh
ElseIf Option2.Value = True Then
Adodc1.CommandType = adCmdUnknown
Adodc1.RecordSource = "select * from Personel data where [Adres ve Telefon Numarasi]like'" & Text9.Text & "%'"
Adodc1.Refresh
End If
Text1.Text = Adodc1.Recordset.Fields(1)
Text2.Text = Adodc1.Recordset.Fields(2)
Text3.Text = Adodc1.Recordset.Fields(3)
Text4.Text = Adodc1.Recordset.Fields(4)
Text5.Text = Adodc1.Recordset.Fields(5)
Text6.Text = Adodc1.Recordset.Fields(6)
Text7.Text = Adodc1.Recordset.Fields(7)
Text8.Text = Adodc1.Recordset.Fields(8)
End Sub

Private Sub Timer1_Timer()
Label13.Caption = Time
Label14.Caption = Date
End Sub


//img44.**************/img44/912/prsonlkayt.jpg
__________________