[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)

masimam.mdb

Reply via web post

Reply to sender

Reply to group

Start a New Topic

Messages in this topic (1)

Recent Activity:

• New Members 10

Visit Your Group

SPAM IS PROHIBITED

MARKETPLACE

---

---

Switch to: Text-Only, Daily Digest • Unsubscribe • Terms of Use • Send us Feedback

.

__,_._,___