Maksudnya tabel kali ya bukan database...
ngelihat errornya kelihataannya ada di,
Data2.RecordSource= "select * from B where KODE ='" & Trim(CDbl(Label1) ) &
"'"
kamu pake fungsi cdbl trus kamu trim...
jadi menurutku harusnya nggak usah pake trim cdbl. atau kalo mau juga ubah
dulu cdbl(label1)) ke string, baru di trim
Trim(str(CDbl(Label1)) )
yongki <[EMAIL PROTECTED]> wrote:
salam para programmer.....
tu de poin aja ya,
saya punya 2 database yaitu :
database A berisi field KODE (text, 10) dan field NAMA (text, 30)
database B berisi field USER (text, 30), field TANGGAL (date) dan field KODE
(numeric, 5.1)
nah 2 database ini punya relasi berdasarkan field KODE.
Isi database A :
------------------------------------------------
| Kode | Nama |
------------------------------------------------
| 100 | Transprotasi |
| 100.1 | Bahan Bakar |
| 200 | Biaya Lain2 |
| 200.1 | Konsumsi Tamu |
Isi database B :
------------------------------------------------------
| User | Tanggal | Kode |
------------------------------------------------------
| Anton | 07/14/07 | 100.1 |
| Andi | 07/20/07 | 200.1 |
| Anita | 07/20/07 | 100 |
lalu saya buat 1 program yg berisi 2 DATA , 2 DBGrid dan 1 label.
masing2 DATA konek ke 2 database berbeda tadi (DATA1 konek ke A dan DATA2 konek
ke B)
masing2 DBGrid konek ke 2 DATA berbeda tadi (DBGrid1 konek ke DATA1 dan DBGrid2
konek ke DATA2)
dan label konek dengan DATA1 (A) dengan field KODE
syntaks :
-------------
Private Sub Label1_Change()
Data2.RecordSource="select * from B where KODE ='" & Trim(CDbl(Label1)) & "'"
Data2.Refresh
End Sub
nah, kasusnya sewaktu di compile, ternyata keluar pesan error
Run-Time error '3464':
Data type mismatch in criteria expression
mohon solusinya dari rekan2.
Thanks sebelumnya.
[Non-text portions of this message have been removed]
---------------------------------
Moody friends. Drama queens. Your life? Nope! - their life, your story.
Play Sims Stories at Yahoo! Games.
[Non-text portions of this message have been removed]
