[belajar-access] Access Project 2007 & SQL Server 2005

----- Original Message -----
From: "Mulyawan, Ayi Teguh" <mulyawan.tea@gmail.com>
To: <belajar-access@yahoogroups.com>
Sent: Sunday, June 06, 2010 11:48 PM
Subject: RE: [belajar-access] Access Project 2007 & SQL Server 2005

> Alhamdulillah.akhirnya permasalahan saya sudah terselesaikan berkat
bantuan sang master pak Edy,
>
> Sekedar share mungkin ini bisa jadi ide buat rekan-rekan yang sedang
> membangun access dengan database yg ada di SQLServer.
>
> Terutama Mba Asri ini bisa jadi untuk inputan.
>
>
>
> Disini saya memakai Access2007 dan SQL2005, Semua database terletak di SQL
> server jadi access berperan sebagai frontend saja dengan harapan kinerja
nya
> tetap maximal.
>
>
>
> Dengan asumsi database & view alias query sudah ada di sql server dan
access
> sudah konek lewat ODBC tinggal buat prosedur sama formnya:
>
> 1. Buat procedure seperti ini:
>
> CREATE PROCEDURE [dbo].[NamaProsedure]
>
> @DevID char(20),@DATE VarChar(50) /*Maaf disini Date saya pakai VarChar */
>
> AS
>
> SELECT
> dbo.Tabel1.Time,
> dbo.Tabel1.U12,
> dbo.Tabel1.U23,
> dbo.Tabel1.U31
> FROM dbo.Tabel1

[belajar-access] Re: Form dengan Recorsource dari Database lain

----- Original Message -----
From: "Aksan Kurdin" <aksan.kurdin@gmail.com>
To: <belajar-access@yahoogroups.com>
Sent: Tuesday, January 12, 2010 2:31 PM
Subject: Re: [belajar-access] Re: Form dengan Recorsource dari Database lain

> belum saya coba, tetapi kita bisa bikin query langsung narik dari
> database A melalui satu query:
>
> SELECT * FROM [C:\DATABASE\DATA\A.MDB].Table1
>
> Jadi di event form, langsung boundkan recordsource form ke string sql
> tersebut.
> Monggo di coba, dan saya tunggu konfirmasi bisa tidaknya ya ... :)
>
>
> Aksan Kurdin
>
>

[belajar-access] look up 2 combo box

----- Original Message -----
From: "aksan kurdin" <aksan.kurdin@gmail.com>
To: <belajar-access@yahoogroups.com>
Sent: Tuesday, November 24, 2009 8:42 AM
Subject: Re: [belajar-access] look up 2 combo box

Sangat mudah,
ubah rowsource combo2 menjadi:
SELECT Table2.JENIS, Table2.PETUGAS FROM Table2 WHERE
(((Table2.KAMAR)=[Forms]![Form1]![Combo0]));

lalu di event after update combo0, requery combo2:

Private Sub Combo0_AfterUpdate()
Me.Combo2.Requery
End Sub

dan control source text4 ubah menjadi:
=[Combo2].[column](1)

aksan kurdin

[belajar-access] mesin pencari

----- Original Message -----
From: "exz@nt" <exzantmilis@gmail.com>
To: <belajar-access@yahoogroups.com>
Sent: Wednesday, September 16, 2009 1:58 PM
Subject: Re: [belajar-access] mesin pencari

sy biasanya pake combo
yg sourcenya dimodif ditambahin kriteria where like
contoh sbg berikut :

Private Sub cmbCari_AfterUpdate()
Dim rs As Object

Set rs = Me.Recordset.Clone
rs.FindFirst "[BARCODE] =" & Chr(34) & Me.cmbCari.Value & Chr(34)
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
Me.cmbCari.Value = ""

End Sub

Private Sub cmbCari_NotInList(NewData As String, Response As Integer)
Me.cmbCari.RowSource = "SELECT * FROM [Produk] WHERE produk.NM_BRG Like
" & Chr(34) & "*" & NewData & "*" & Chr(34) & ";"
Response = acDataErrContinue
End Sub

maksud kode diatas : jika kode yg diketikkan pada combo tidak terdaftar,
maka dilakukan seleksi sourcedata berdasarkan Nama Barang.

smg membantu.

salam,
exz@nt

2009/9/14 Masyruchi Se <

[belajar-access] Membuat total jam kerja

----- Original Message -----
From: "Murid Belajar Access" <murid.belajaraccess@yahoo.co.id>
To: <belajar-access@yahoogroups.com>
Sent: Monday, September 07, 2009 7:25 PM
Subject: RE: [belajar-access] Membuat total jam kerja

> Mas Wahyono, sebenarnya ide ini sangat sederhana, tapi mungkin bisa
berguna.
>
> Asumsi saya adalah bahwa benar2 hanya 2 kali dilakukan absensi yaitu waktu
> datang dan waktu pulang.
>
>
>
>
>
>
> 1. Urutkan tabel dalam dengan order by: nopegawai, tanggal, jam,
> functionkey
>
> Gambarnya akan terlihat sbb:
>
>
>
>
>
> foto-0001.jpg
>
>
>
>
>
> 2. Buat query sbb:
>
>
>
> SELECT a.RecordID AS RecordID,
>
> a.KodePegawai AS KodePegawai,
>
> a.TglRekam AS TglMasuk,
>
> a.WaktuRekam AS JamMasuk,
>
> b.TglRekam AS TglPulang,
>
> b.WaktuRekam AS JamPulang
>
> FROM (SELECT tblAbsen.*,
>
> DCount("RecordID","tblAbsen","[RecordID]<=" & [RecordID] & " AND
> [KodeFungsi]=1 ") AS NoUrut
>
> FROM tblAbsen WHERE (((tblAbsen.KodeFungsi)=1))
>
> ORDER BY tblAbsen.KodePegawai, tblAbsen.TglRekam, tblAbsen.WaktuRekam,
> tblAbsen.KodeFungsi) AS a
>
> INNER JOIN
>
> (SELECT tblAbsen.*,
>
> DCount("RecordID","tblAbsen","[RecordID]<=" & [RecordID] & " AND
> [KodeFungsi]=3") AS NoUrut
>
> FROM tblAbsen WHERE (((tblAbsen.KodeFungsi)=3))
>
> ORDER BY tblAbsen.KodePegawai, tblAbsen.TglRekam, tblAbsen.WaktuRekam,
> tblAbsen.KodeFungsi) AS b
>
> ON (a.noUrut=b.noUrut) AND (a.KodePegawai=b.KodePegawai);
>
>
>
> Simpan sebagai queryTotalJamKerja
>
> Dan hasilnya terlihat sbb:
>
>
>
>
>
> foto-0002.jpg
>
>
>
>
>
> Mudah-mudahan bisa membantu,
>
>
>
> MBA

[belajar-access] mengeluarkan "n" record di query

----- Original Message -----
From: "Murid Belajar Access" <murid.belajaraccess@yahoo.co.id>
To: <belajar-access@yahoogroups.com>
Sent: Sunday, August 09, 2009 12:41 AM
Subject: Re: [belajar-access] mengeluarkan "n" record di query

> Gunakan Select TOP N
>
> strSQL= "SELECT TOP " & txtJumlahRecord.value & " * FROM tblContoh "
>
> salam hangat dan jabat erat,
>
> MBA

[belajar-access] Buat query

----- Original Message -----
From: "Murid Belajar Access" <murid.belajaraccess@yahoo.co.id>
To: <belajar-access@yahoogroups.com>
Sent: Tuesday, August 04, 2009 9:51 PM
Subject: Re: [belajar-access] Buat query

misalnya nama tabelnya adalah tabel tblContoh.

SELECT tblContoh.[kode brg], Last(tblContoh.harga) AS HargaAkhir
FROM tblContoh
GROUP BY tblContoh.[kode brg];

[belajar-access] Re: find record menggunakan field

----- Original Message -----
From: "Nana Supriatna Access" <nanasupriatna.access@gmail.com>
To: <belajar-access@yahoogroups.com>
Sent: Tuesday, July 28, 2009 10:19 AM
Subject: Re: [belajar-access] Re: find record menggunakan field

Mas Hendra kenapa gak pakai Store Procedure ?

----- Original Message -----
From: HENDRA
To: belajar-access@yahoogroups.com
Sent: Tuesday, July 28, 2009 8:22 AM
Subject: RE: [belajar-access] Re: find record menggunakan field

Jadi maksudnya mas aksan kl contoh kita pake adp begini kira2? Mohon
dikoreksi

Dim RST2 As ADODB.Recordset
Set RST2 = New ADODB.Recordset
RST2.Open "SELECT * from tblbarang ", CurrentProject.Connection,
adOpenStatic, adLockOptimistic

trus bgm kita memfilter2 data yg sudah di download ke comp client?
Combobox1.rowsource = ????? (bgm contoh memfilter nya?) terima kasih

[belajar-access] Re: form parent dan child

----- Original Message -----
From: "HENDRA" <hendragunadi@gmail.com>
To: <belajar-access@yahoogroups.com>
Sent: Monday, July 20, 2009 5:49 PM
Subject: RE: [belajar-access] Re: form parent dan child

> Misal saya asumsikan nama form nya frmNOTA dengan subform nya bernama
> frmNOTAsubform. Combo box tipe barang yg ada di main form saya asumsikan
> cbobarang, dan combo box barang yg ada di subform saya asumsikan namanya
> cbobarangsubform. Juga saya asumsikan nama table tempat menyimpan data
> barang adalah tblBARANG, dan field TIPE BARANG namanya adalah TIPE_BARANG
>
>
>
> Anda masukkan saja kode di cbobarang_afterupdate ato di
frmNOTAsubform_enter
> kira2 begini :
>
>
>
> Form_frmNOTAsubform.cbobarangsubform.RowSource = "SELECT * FROM tblBARANG
> WHERE TIPE_BARANG = '" & Me.cbobarang.Value & "'"
>
>
>
> Semoga membantu
>

[belajar-access] Tgl terakhir order

----- Original Message -----
From: "Murid Belajar Access" <murid.belajaraccess@yahoo.co.id>
To: <belajar-access@yahoogroups.com>
Sent: Thursday, June 25, 2009 6:32 PM
Subject: Re: [belajar-access] Tgl terakhir order

coba gunakan sbb:

SELECT tbl_order.idcustomer, Max(tbl_order.tglorder) AS TglOrder
FROM tbl_order
GROUP BY tbl_order.idcustomer;

salam,
MBA