Bukan cuma mantaf , tetapi juga jalan dg baik luar dan dalam kan......... nan indah juga sintaxnya......
pst..... ada yg punya fotonya ..... peace.....peace....kali ini bener2 .........gak lagi.... Aku lak yo mek melok-melok tok lo yo...... tul gak ..... :) Salam, ~ KSBA | Keep the Spirit of Belajar Access ~ --- Pada Kam, 24/6/10, imam safari <[email protected]> menulis: Dari: imam safari <[email protected]> Judul: RE: [belajar-access] Re: Split data Kepada: [email protected] Tanggal: Kamis, 24 Juni, 2010, 5:43 AM Mantaf para suhu saya coba ok Ngak tahu yang nanya juga ok apa ngak ? Imam Safari Hidayat From: belajar-access@ yahoogroups. com [mailto:belajar- acc...@yahoogrou ps.com] On Behalf Of belajar-access- ow...@yahoogroup s.com Sent: 24 Juni 2010 10:36 To: belajar-access@ yahoogroups. com Subject: Bls: [belajar-access] Re: Split data Tentu saja tidak ada efeknya karena commandbutton tidak memanggil procedure. 1. pastikan isi command button seperti di bawah ini. Private Sub Command0_Click( ) On Error GoTo Err_Command0_ Click FormatTable1ToTable 2 Exit_Command0_ Click: Exit Sub Err_Command0_ Click: MsgBox Err.Description Resume Exit_Command0_ Click End Sub 2. Tambahkan satu Field / Kolom bernama RecID dengan tipe data Long Integer pada Table2. Jadikan kolom / field RecID ini sebagai Primary Key. Kalau anda ingin memanggil dari macro, anda harus mengganti kata Public Sub menjadi Public Function. Jangan lupa poin nomor 2. --- In belajar-access@ yahoogroups. com, mansur aziz <mansur4...@. ..> wrote: > > > Saya kesulitan memahami alur dari sintak tersebut. Saya coba pastekan ke module1, kemudian saya buat command button di form1, tapi tidak ada efeknya. Ketika saya running tidak ada efeknya. > > Terlampir file mdb nya. > > Mohon penjelasan lagi > > > Best Regards, > MANSUR AZIZ > mansur4...@. .. > > > --- Pada Kam, 24/6/10, belajar-access- ow...@yahoogroup s.com <belajar-access- ow...@yahoogroup s.com> menulis: > > Dari: belajar-access- ow...@yahoogroup s.com <belajar-access- ow...@yahoogroup s.com> > Judul: [belajar-access] Re: Split data > Kepada: belajar-access@ yahoogroups. com > Tanggal: Kamis, 24 Juni, 2010, 8:04 AM > > > > > > > > Â > > > > > > > > > > Copy Paste Fungsi dan Prosedur di bawah ini ke modul baru. > > Jangan Lupa sesuaikan nama tabelnya. > > Asumsi, Tabel1 berisi kolom Job (teks), Customer (text), Jumlah (Currency) > > Tabel2 berisi kolom RecID(LongInt- PrimaryKey) , Job (teks), Customer (text(255)), Jumlah (Currency) > > > > Anda bisa memanggil Prosedur FormatTable1ToTable 2 dari command button / macro. > > > > Function ReadJob(ByVal Job As String) As String > > On Error GoTo ReadJob_Err > > > > Dim vRC As String 'vRC = variable Rantai Customer > > vRC = "" > > Dim rst As New ADODB.Recordset > > strSQL = "SELECT CUSTOMER FROM TABLE1 WHERE JOB='" & Job & "'" > > rst.Open strSQL, CurrentProject. Connection, adOpenKeyset, adLockPessimistic, adCmdText > > > > If Not (rst.BOF Or rst.EOF) Then > > rst.MoveLast > > rst.MoveFirst > > For i = 1 To rst.RecordCount > > vRC = IIf(i = 1, rst!Customer, vRC & "~~" & rst!Customer) > > rst.MoveNext > > Next > > End If > > > > rst.Close > > Set rst = Nothing > > ReadJob = vRC > > > > ReadJob_Keluar: > > Exit Function > > > > ReadJob_Err: > > Debug.Print "Read Job Error Is : " & Err.Number & vbCrLf & Err.Description > > Resume ReadJob_Keluar > > > > > > End Function > > > > Public Sub FormatTable1toTable 2() > > On Error GoTo Cara2_Err > > > > 'Pembersihan Table2 > > strSQL = "DELETE * FROM TABLE2" > > CurrentDb.Execute strSQL, dbFailOnError > > > > 'Mengisi Table2 dgn data dari table1 + function ReadJob untuk mengisi Kolom Customer. > > Dim rst As New ADODB.Recordset > > strSQL = "SELECT Table1.Job, Sum(Table1.Jumlah) AS Jumlah FROM Table1 GROUP BY Table1.Job;" > > rst.Open strSQL, CurrentProject. Connection, adOpenKeyset, adLockPessimistic, adCmdText > > > > If Not (rst.BOF Or rst.EOF) Then > > rst.MoveLast > > rst.MoveFirst > > For vBarisKe = 1 To rst.RecordCount > > strSQL = "INSERT INTO Table2(RecID, Job,Jumlah, Customer) VALUES(" & vBarisKe & ",'" & rst!Job & "'," & rst!Jumlah & ",'" & ReadJob(rst! Job) & "')" > > CurrentDb.Execute strSQL, dbFailOnError > > rst.MoveNext > > Next > > End If > > > > rst.Close > > Set rst = Nothing > > > > > > Cara2_Keluar: > > Exit Sub > > > > Cara2_Err: > > Debug.Print "Read Job Error Is : " & Err.Number & vbCrLf & Err.Description > > Resume Cara2_Keluar > > > > End Sub >
