Rabu, 01 Mei 2013

[belajar-access] Membuat value text box menjadi nama field [1 Attachment]

 
[Attachment(s) from imam mukhlasin included below]

Assalamualaikum wr.wb
Saya mempunyai kendala untuk menampilkan gaji di form
Tabel_gaji
Id_masa kerja                   bripda                   briptu
0                                              1000                       1500
1                                              0                              0
2                                              1200                       1700
 
Tabel_pangkat
Id                            nama_pangkat
1                                              bripda
2                                              briptu
 
Form_gaji
txt_masakerja = "2"
txt_namapangkat = "briptu"
txt_gaji = ""
 
Private Sub txt_masakerja_AfterUpdate()
Dim inputmk, inputipangkat, mk, getgaji
    inputmk = Nz(txt_masakerja, "")......2
    inputpangkat = Nz(txt_namapangkat, "")......briptu
    mk = "([id_masakerja])= '" & inputmk & "'"
    getgaji = DLookup(inputpangkat, "tabel_gaji", mk)
    Me.txt_gaji.Value = getgaji.....harusnya 1700
End Sub
 
Yang di blok kuning tidak bekerja....
Saya menginginkan agar nama field sesuai txt_nama pangkat  inputpangkat bisa berjalan
Atau ada cara lain.....
Mohon bantuan rekan2 untuk menyelesaikannya
File terlampir
Terima kasih

__._,_.___

Attachment(s) from imam mukhlasin

1 of 1 File(s)

Reply via web post Reply to sender Reply to group Start a New Topic Messages in this topic (1)
Recent Activity:
SPAM IS PROHIBITED
MARKETPLACE


.

__,_._,___

Tidak ada komentar:

Posting Komentar