yap, semoga terjawab, access 2000nya dataa, hasil conventnya dataku.mdb
Private Sub Form_Load()
dataa.DatabaseName = App.Path + "\dataku.mdb"
dataa.RecordSource = "tbldata"
end sub
Private Sub txtnama_keypress(keyascii As Integer)
If keyascii = 13 Then
txtalamat.SetFocus
End If
End Sub
Private Sub txtalamat_keypress(keyascii As Integer)
If keyascii = 13 Then
txttlp.SetFocus
End If
End Sub
Private Sub txttlp_keypress(keyascii As Integer)
If keyascii = 13 Then
txttgl.SetFocus
End If
End Sub
Private Sub txttgl_keypress(keyascii As Integer)
If keyascii = 13 Then
cmdsave.SetFocus
End If
End Sub
Private Sub cmdsave_Click()
dataa.Recordset.AddNew
dataa.Recordset("Nama") = txtnama.Text
dataa.Recordset("Alamat") = txtalamat.Text
dataa.Recordset("Telp") = txttlp.Text
dataa.Recordset("tgl_lahir")=txttgl.Text
dataa.update
cmdcancel.value = True
end sub
jontampubolon <[EMAIL PROTECTED]> wrote: Begini
aja, coba tampilkan kode programnya, agar orang2 yang ada di
grup ini bisa melihat dan menganalisanya. Bagaimana, setuju?
--- In [email protected], ayik imut <[EMAIL PROTECTED]> wrote:
>
> yap makasih tanggapannya, aku udah convert ke 97. tetep tuh nggak
bisa.gimana ya??
>
> jontampubolon <[EMAIL PROTECTED]>
wrote: Setahu saya kalo pake access 97
pemrogramannya dengan DAO, sedangkan
> access 2000 dan yang terbaru pemrogramannya dengan ADO. Mungkin
> pemrograman yang anda gunakan DAO tetapi anda menggunakan access
2000.
> Biasanya nggak bisa, kecuali anda convert database-nya ke versi
access
> 97.
>
>
>
>
>
>
> ---------------------------------
> Be a better friend, newshound, and know-it-all with Yahoo!
Mobile. Try it now.
>
> [Non-text portions of this message have been removed]
>
---------------------------------
Be a better friend, newshound, and know-it-all with Yahoo! Mobile. Try it now.
---------------------------------
Looking for last minute shopping deals? Find them fast with Yahoo! Search.
[Non-text portions of this message have been removed]
