Sebenarnya kalau di excel saya sudah bisa buat codenya bang Aksan cuman
untuk di acces karena saya new bie di vb acces jadi bingung. contoh
pengganti code Range diexcel di acces apa? atau cloumn di excel di acces
apa? begitu hehe
berikut sandi yang sudah saya buat dan sudah bisa dihalankan
cuman untuk dipindahkan ke modul acces gimana ya?
Sub copysandi()
'
' Macro recorded 6/30/2005 by Yayans
'
x = 166
z = 25009
While x < z
Sheets("sheet2").Select
Range("a" + Trim(Str(x))).Select
If Range("a" + Trim(Str(x))).Value = "" Then
Range("a" + Trim(Str(x))).Value = Range("a" + Trim(Str(x - 1))).Value
End If
x = x + 1
Wend
End Sub
========
dibuatkan logikanya.
Jadi menggunakan rutin baca file text, di ambil dari baris atas ke bawah,
parsing ke dalam satu temporary table, maka maksud anda bisa tercapai. hanya
saja codingnya cukup panjang.
coba deh lelang ke mari, sapa mau buka harga pertama nih ....
hehehehe ....
aksan kurdin
