teman-teman,
minta tol bantuan saya bingung buat coding...
ada 1 form entry data, sumber data dari 2 tabel yaitu tabel pegawai dan tabel
departemen, hubungan kedua tabel one to many, salah satu kontrol yaitu
combobox, Listnya saya isi dari tabel departement (dengan metode looping),
pada saat saya menampilkan data....selalu muncul error msg..data tidak
ditemukan...(saya mengunakan adodc untuk koneksi ke database)
berikut codingnya...(saya beri warna merah coding yg bermasalah)
Public Sub Cari_DataStaff()
Dim cari As String
If txt_nuk.Text = "" Then
MsgBox "Anda Belum Entry Data NUK...!", vbOKOnly + vbCritical, "Master Data
Staff"
txt_nuk.SetFocus
Else
cari = "NUK = '" & txt_nuk.Text & "'"
Ado_staff.Refresh
Ado_staff.Recordset.Find cari
If Ado_staff.Recordset.EOF Then
MsgBox "Data Staff Tidak Ada !", vbOKOnly + vbExclamation, "Master Data
Staff"
txt_nuk.SelStart = 0
txt_nuk.SelLength = Len(txt_nuk.Text)
txt_nuk.SetFocus
CmdCari.Enabled = True
Exit Sub
Else
TP = 10
WD = 10
With Ado_staff.Recordset
txt_nuk.Text = .Fields("NUK")
txt_nama.Text = .Fields("NAMA")
ado_bagian.Recordset.Find " id_bagian = '" & .Fields("ID_BAGIAN") & "'"
Cmb_Bagian.ListIndex = ado_bagian.Recordset.AbsolutePosition
Txt_jabatan.Text = .Fields("JABATAN")
cmb_stkry.Text = .Fields("STATUS_KARYAWAN")
If .Fields("SEX") = "L" Then
Opt_L.Value = True
Else
Opt_P.Value = True
End If
cmb_agama.Text = .Fields("AGAMA")
mse_tglmasuk.Text = .Fields("TANGGAL_MASUK")
Cmb_suku.Text = .Fields("SUKU")
cmb_pendidikan.Text = .Fields("PENDIDIKAN")
mse_tgllahir.Text = .Fields("TANGGAL_LAHIR")
txt_tempatlahir.Text = .Fields("TEMPAT_LAHIR")
cmb_marital.Text = .Fields("STATUS_KELUARGA")
End With
'img_foto.Picture = LoadPicture(App.Path & "\foto\" & Txt_nuk.Text & ".jpg")
'Timer2.Enabled = True
txt_stkry.Visible = False
txt_keluarga.Visible = False
CmdOk.Enabled = False
End If
End If
End Sub
Best Regards
Charles
Jl. Tangguh II No. 11 Kompleks TNI AL,
Kelapa Gading Barat, Jakarta Utara 14240
MP. (021) 4507953
HP. 085210841656
E-mail : [EMAIL PROTECTED]
---------------------------------
Be a better friend, newshound, and know-it-all with Yahoo! Mobile. Try it now.
