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

 

[Attachment(s) from Mas Uki included below]

Assalamu'alaikum P Imam,

Ini sedikit modifikasi event after updatenya :

Private Sub txt_masakerja_AfterUpdate()

Dim inputmk, inputipangkat, mk, getgaji

    inputmk = Nz(txt_masakerja, 0)

    inputpangkat = "[" & Nz(txt_namapangkat, "") & "]"

    mk = "([id_masakerja])= " & inputmk

    getgaji = DLookup(inputpangkat, "table_gaji", mk)

    Me.txt_gaji.Value = getgaji

End Sub

dan ini screenshotnya hasilnya coba cek di attachment...

Semoga membantu dan bermanfaat..

 

Best Regards,

Sukiono

PT. Kumala Kencana Cipta

www.kumalahome.com

---

Dari: imam mukhlasin <imammukhlasin@yahoo.com>
Kepada: "belajar-access@yahoogroups.com" <belajar-access@yahoogroups.com>
Dikirim: Rabu, 1 Mei 2013 14:29
Judul: [belajar-access] Membuat value text box menjadi nama field [1 Attachment]

 

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 Mas Uki

1 of 1 Photo(s)

shoot.JPG

Reply via web post

Reply to sender

Reply to group

Start a New Topic

Messages in this topic (2)

Recent Activity:

• New Members 8

Visit Your Group

SPAM IS PROHIBITED

MARKETPLACE

---

---

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

.

__,_._,___