function di bawah di ubah sesuai dgn saran bang Aksan
Function te()
Dim t1 As String
Dim a As Variant
Dim i As Integer
t1 = "a!b!cc!d"
a = Split(t1, "!")
For i = 0 To 3
Debug.Print a(i)
Next i
End Function
Best regard
Erwin Sugiawan
----- Original Message ----
From: M. Aksan Kurdin <[EMAIL PROTECTED]>
To: [email protected]
Sent: Saturday, November 24, 2007 10:22:51 AM
Subject: [belajar-access] Re: cara belajar vb dalam Acces?
ada yg lebih sederhana, gunakan fungsi split utk mendptkan token2 yg
dipisah oleh bang ! ke dlm array.
aksan kurdin
--- In [email protected], Erwin Sugiawan <[EMAIL PROTECTED]>
wrote:
>
> semua field dibedakan dgn tanda "!" ,
>
> kalo pake wizard (External Data/Link or Import ) ngak bisa krn
datanya tidak sesuai ( tidak semua record ada kode cabang , hal ini di
mungkinkan krn hidden record yg sama )
>
> mau ngak mau, wajib pake code
>
> buat function gettoken, utk mencari field yang di pisahkan oleh tanda
"!"
>
> S = baris text nya
> Ino= field ke berapa yg mau di ambil
>
> Function GetToken(S As Variant, iNo As Integer) As String
>
> On Error GoTo GetTokenErr:
> Dim sTemp As String, iCounter As Integer, iok As Integer, iPos As
Integer
> GetToken = ""
> sTemp = S & "!"
> iok = 0
> For iCounter = 1 To iNo - 1
> iPos = InStr(1, sTemp, "!")
> If iPos > 0 Then
> iok = iok + 1
> sTemp = Mid$(sTemp, iPos + 1)
> Else
> Exit For
> End If
> Next
> If iok = iNo - 1 And Len(sTemp) > 0 Then
> iPos = InStr(1, sTemp, "!")
> If iPos > 0 Then GetToken = Mid$(sTemp, 1, iPos - 1)
> End If
> Exit Function
> GetTokenErr:
> GetToken = ""
> Exit Function
> End Function
>
> lalu buat function untuk load text file, biasa nya setiap baris di
pisahkan oleh karakter enter ( ascii 13)
>
> yang ini udah banyak di internet, coba cari di om google dgn subject
> how to open text file using vba
> selamat mencari
>
>
>
> Best regard
> Erwin Sugiawan
>
> ----- Original Message ----
> From: yayan s <[EMAIL PROTECTED]>
> To: [email protected]
> Sent: Friday, November 23, 2007 3:54:16 PM
> Subject: [belajar-access] Re: cara belajar vb dalam Acces?
>
>
>
>
>
>
>
>
> <!--
>
> #ygrp-mkp{
> border:1px solid #d8d8d8;font-family:Arial;margin:14px
0px;padding:0px 14px;}
> #ygrp-mkp hr{
> border:1px solid #d8d8d8;}
> #ygrp-mkp #hd{
>
color:#628c2a;font-size:85%;font-weight:bold;line-height:122%;margin:10px 0px;}
> #ygrp-mkp #ads{
> margin-bottom:10px;}
> #ygrp-mkp .ad{
> padding:0 0;}
> #ygrp-mkp .ad a{
> color:#0000ff;text-decoration:none;}
> -->
>
>
>
>
> Sebenarnya begini saya dapat data teks dengan format
> Kode Cabang!pos !ccy !
> 0001 !10000 ! kas ! Eqv IDR
> !IDR ! 1,000,000
> !USD ! 500,000
>
> !20000 ! Penempatan!
> !IDR ! 2,000,000
> !USD ! 1,500,000
> '
> '
> 'misal sampai dengan baris ke
> 100.000 atau berapa yg excel
>
> tidak sanggup
> 9999 !99999!kontinjen!
> !IDR ! 2,000,000
> !USD ! 1,500,000
>
> kemudian kita import ke acces, bila saya ingin menjumlahkan misal rek
10000 IDR untuk semua cabang. Tentunya kalo di acces saya harus buat
seperti ini terlebih dahulu bukan?
>
> Kode Cabang!pos !ccy !
> 0001 !10000 ! kas ! Eqv IDR
> 0001 !10000 !IDR ! 1,000,000
> 0001 !10000 !USD ! 500,000
> '
> '
> dan seterusnya...
> lalu nanti kita jumlahkan menggunakan query.
>
> hanya untuk buat seperti itu di acces bagaimana caranya?
>
> --- In [email protected], Erwin Sugiawan <esugiawan@>
wrote:
> >
> > kalo lihat sepintas , bro ryan , mau buat accounting dgn multi ccy
ya.........
>
> > kalo bener....table yg wajib
> > - COA ( Chart of Account )
> > - multiccy
> >
> > lalu spy COA detail naik ke Coa header, lalukan process array
> >
> > misalkan
> > 1000 IDR Kas ---> header
>
> > 1001 IDR Kas Kecil --- > detail
> > 1002 IDR kas besar ----> detail
> >
> > 2000 IDR Bank
> > 2001 IDR BCA No 11111
> > 2002 IDR BCA NO 22343
> > 2002 USD BCA NO 22343
>
> > 2003 Mandiri No 1111
> >
> > 4000 IDR Biaya
> > 4001 IDR Sewa Kantor
> >
> > misalkan di table multi ccy 1usd =10.000
> >
> > pembayaran sewa gedung mempergunakan USD dan asumsi Balance Sheet
dalam IDR ya
>
> >
> > Journal yang di input
> > Credit 2002 USD pembayaran gedung bulan november sebesar US100
**
> > Credit 2002 IDR pembayaran gedung bulan november sebesar
1.000.000
> > Debet 4001 IDR pembayaran gedung bulan november sebesar
> 1.000.000
> >
> >
> > ** waktu memasukan jurnal yg bukan IDR, saat after update check ke
table multiccy and add ke bawah journal tersebut
> >
> >
> > Best regard
> > Erwin Sugiawan
> >
>
> > ----- Original Message ----
> > From: ryan <yayan45@>
> > To: [email protected]
> > Sent: Friday, November 23, 2007 10:47:49 AM
>
> > Subject: [belajar-access] Re: cara belajar vb dalam Acces?
> >
> >
> > Cuman yang jadi masalah ketika jumlah sandi rekeningnya banyak
> > sehingga barisnya banyak pula bahkan excel pun tak mampu,Misal
lebih
>
> > dari kemampuan excel, bagaimana itu Bang Aksan? pake metode apa
jika
> > di accses?
> > Misal
> > Kode Cab !pos !ccy !
> > 0001 !10000 ! kas ! Eqv IDR
> > !IDR ! 1,000,000
>
> > !USD ! 500,000
> > !20000 ! Penempatan!
> > !IDR ! 2,000,000
> > !USD ! 1,500,000
> > '
> > '
> > 'misal sampai dengan baris ke
> 100.000 atau berapa yg excel
> >
> > tidak sanggup
> > 9999 !99999!kontinjen!
> > !IDR ! 2,000,000
> > !USD ! 1,500,000
> >
> >
> > --- In
> [email protected], "aksan kurdin"
> > <aksan.kurdin@> wrote:
> > >
> > > Kalau kasus seperti ini cocok dikerjakan di excel, karena bisa
>
> > manual satu
> > > per satu, access vba (baca pemrograman) adalah untuk membuat
suatu
> > pekerjaan
> > > yang memiliki pola tertentu.
> > > Kalau di excel, saya tidak pake makro kalau hanya untuk mengisi
>
> > kolom kosong
> > > tersebut dengan nilai yang sama dengan di atasnya.
> > > saya demokan ya .....
> > > Pertama kali select area yang berisi cell blank yang akan diisi
> > dengan
> > > mengambil nilai di atas cell tersebut.
>
> > > Tekan Ctrl-G untuk membuka jendela Goto
> > > Klik tombol special, dan conteng pilihan blank
> > > Selection akan dieliminir hanya yang blank saja.
> > > di kolom pertama yang blank (A2) masukkan rumus dengan mengisikan
>
> > tanda '='
> > > gerakkan cursor ke atas (A1) sehingga kolom A2 berisi '=A1'
> > > akhiri dengan menekan tombol Ctrl-Enter, otomatis pekerjaan di A2
> > akan
> > > dilakukan pula di cell2 yang di seleksi.
>
> > >
> > > Aksan Kurdin
> > >
> > >
> > >
> > > On 11/23/07, yayan s <yayan45@> wrote:
> > > >
> > > > Biar lebih jelas dan mohon bantuan dari para fakar terutama
>
> > bang Aksan
> > > > nich.
> > > > saya punya tabel
> > > >
> > > > 10000 ! kas ! Eqv IDR
> > > > !IDR ! 1,000,000
> > > > !USD ! 500,000
>
> > > > 20000 ! Penempatan!
> > > > !IDR ! 2,000,000
> > > > !USD ! 1,500,000
> > > >
> > > > saya ingin rubah menjadi
> > > >
> > > > 10000 ! kas ! Eqv IDR
>
> > > > 10000 !IDR ! 1,000,000
> > > > 10000 !USD ! 500,000
> > > > 20000 ! Penempatan!
> > > > 20000 !IDR ! 2,000,000
> > > > 20000!USD ! 1,500,000
> > > >
>
> > > > kalo dixcel kita tinggal record macro kemudian edit vbnya
menjadi
> > copy
> > > > perulangan, kalo di acces bagaimana untuk kasus seperti ini
> > ya?pake query
> > > > ,atau macro rasanya ngga bisa atau mungkin ada yg bisa? paling
>
> > pakai modul
> > > > vb mungkin ya?
> > > > Terima kasih atas bantuannya
> > > >
> > >
> >
> >
> >
> > SPAM IS PROHIBITED
> > Yahoo! Groups Links
>
>
>
>
>
>
>
>
>
____________________________________________________________________________________
> Be a better sports nut! Let your teams follow you
> with Yahoo Mobile. Try it now.
http://mobile.yahoo.com/sports;_ylt=At9_qDKvtAbMuh1G1SQtBI7ntAcJ
>
SPAM IS PROHIBITED
Yahoo! Groups Links
____________________________________________________________________________________
Get easy, one-click access to your favorites.
Make Yahoo! your homepage.
http://www.yahoo.com/r/hs
