/* */

Wednesday, January 9, 2013

[belajar-access] Re: query

 


lebih rincinya saya coba gambarkan disini....

ada dua file yaitu:

Form dan Query

Form
name: FR_nipTotTunj
record source:absen
1. Textbox
name:txtBulan
Event After Update [Event Procedure]

Private Sub txtBulan_AfterUpdate()
'Find the record that matches the control.
Dim rs As Object

Set rs = Me.Recordset.Clone
rs.FindFirst "[bulan]=" & Me![txtBulan] & ""
Me.Bookmark = rs.Bookmark

End Sub
2. TextBox
name:txtNip
Event After Update [Event Procedure]

Private Sub txtNip_AfterUpdate()
'Find the record that matches the control.
Dim rs As Object

Set rs = Me.Recordset.Clone
rs.FindFirst "[nip]='" & Me![txtNip] & "'"
Me.Bookmark = rs.Bookmark

End Sub
Query

SELECT A.bulan, P.nip, J.tj_jabatan AS tunj_jabatan, IIf(p.status='tidak menikah',0,G.tj_istrisuami) AS tunj_istri_suami, (P.jm_anak*G.tj_anak) AS tunj_anak, (A.jh_masuk*G.u_makan) AS uang_makan, (L.jam_lembur*G.ix_lembur) AS uang_lembur, ([tunj_jabatan]+[tunj_istri_suami]+[tunj_anak]+[uang_makan]+[uang_lembur]) AS Tot_Tunjangan
FROM Pegawai AS P, Golongan AS G, Jabatan AS J, Lembur AS L, Absen AS A
WHERE (((A.bulan)=[Forms]![FR_nipTotTunj]![txtBulan]) AND ((P.nip)=[L].[nip] And (P.nip)=[A].[nip] And (P.nip)=[Forms]![FR_nipTotTunj]![txtnip]) AND ((P.gol)=[G].[gol]) AND ((P.kd_jabatan)=[j].[kd_jabatan]))
ORDER BY P.nip;

sebelumnya terima kasih dan mohon maaf bila telah merepotkan....

--- In belajar-access@yahoogroups.com, Sofyan Efendi wrote:
>
> Oh, kalau gitu agak susah juga ya
> Sebenarnya, intinya pesan parameter value itu terjadi karena ia belum
> didefinisikan, atau karena form yang dirujuk oleh criteria tidak dalam
> keadaan terbuka. Begini aja, dicoba dulu set parameternya dng cara klik
> Parameters di menu Design, lalu isi dengan:
> [Forms]![FR_nipTotTunj]![txtBulan] -> data type Number
> [Forms]![FR_nipTotTunj]![txtnip] -> data type Number (atau mungkin text,
> sesuai dng di table)
> lalu run kembali
> Wassalaamu'alaikum Warahmatullahi Wabarakatuh,
> Sofyan Efendi
> ----- Original Message -----
> From: "oh bangsaku"
> To:
> Sent: Monday, January 07, 2013 3:58 PM
> Subject: [belajar-access] Re: query
>
>
> >
> > cara ambil filenya gimana yah...soalnya file satu dengan file lainnya...
> >
> > --- In belajar-access@yahoogroups.com, Sofyan Efendi wrote:
> >>
> >> Sepertinya pembuatan rumus Tot_Tunjangan tidak bisa dibuat dalam satu
> >> query,
> >> tapi harus di query baru.
> >> Apakah filenya bisa disertakan? Agar bisa lebih cepat mencari errornya.
> >>
> >> Wassalaamu'alaikum Warahmatullahi Wabarakatuh,
> >> Sofyan Efendi
> >> ----- Original Message -----
> >> From: "oh bangsaku"
> >> To:
> >> Sent: Monday, January 07, 2013 1:54 PM
> >> Subject: [belajar-access] Re: query
> >>
> >>
> >> > saya dah coba.....ternyata masih belum bisa....
> >> >
> >> > --- In belajar-access@yahoogroups.com, Sofyan Efendi wrote:
> >> >>
> >> >> (tunj_jabatan+tunj_istrisuami+tunj_anak+uang_makan+uang_lembur)
> >> >> mungkin
> >> >> seharusnya:
> >> >> ([tunj_jabatan]+[tunj_istrisuami]+[tunj_anak]+[uang_makan]+[uang_lembur])
> >> >>
> >> >> Wassalaamu'alaikum Warahmatullahi Wabarakatuh,
> >> >> Sofyan Efendi
> >> >> ----- Original Message -----
> >> >> From: "oh bangsaku"
> >> >> To:
> >> >> Sent: Monday, January 07, 2013 10:46 AM
> >> >> Subject: [belajar-access] query
> >> >>
> >> >>
> >> >> > apa yang salah dari query dibawah ini...kok selalu minta enter
> >> >> > parameter
> >> >> > value????
> >> >> >
> >> >> > SELECT A.bulan, p.nip, j.tj_jabatan AS tunj_jabatan,
> >> >> > IIF(p.status='tidak
> >> >> > menikah',0,G.tj_istrisuami) AS tunj_istri_suami,
> >> >> > (P.jm_anak*G.tj_anak)
> >> >> > AS
> >> >> > tunj_anak, (A.jh_masuk*G.u_makan) AS uang_makan,
> >> >> > (L.jam_lembur*G.ix_lembur) AS uang_lembur,
> >> >> > (tunj_jabatan+tunj_istrisuami+tunj_anak+uang_makan+uang_lembur) AS
> >> >> > Tot_Tunjangan FROM Pegawai AS P, Golongan AS G, Jabatan AS J, Lembur
> >> >> > AS
> >> >> > L,
> >> >> > Absen AS A WHERE P.nip=L.nip and P.nip=A.nip and P.gol=G.gol and
> >> >> > p.kd_jabatan=j.kd_jabatan and
> >> >> > A.bulan=[Forms]![FR_nipTotTunj]![txtBulan]
> >> >> > and P.nip=[Forms]![FR_nipTotTunj]![txtnip] ORDER BY p.nip;
> >> >> >
> >> >> >
> >> >> >
> >> >> > ------------------------------------
> >> >> >
> >> >> > SPAM IS PROHIBITEDYahoo! Groups Links
> >> >> >
> >> >> >
> >> >> >
> >> >>
> >> >
> >> >
> >> >
> >> >
> >> > ------------------------------------
> >> >
> >> > SPAM IS PROHIBITEDYahoo! Groups Links
> >> >
> >> >
> >> >
> >>
> >
> >
> >
> >
> > ------------------------------------
> >
> > SPAM IS PROHIBITEDYahoo! Groups Links
> >
> >
> >
> >
>

__._,_.___
Reply via web post Reply to sender Reply to group Start a New Topic Messages in this topic (35)
Recent Activity:
SPAM IS PROHIBITED
.

__,_._,___

No comments:

Post a Comment