kalau digunakan pada form misalnya :
Private Sub Form_Load()
Dim nilai As Integer
Dim str As String
nilai = 2
str = "select * from Query_AutoNumber where Id = " & nilai
MsgBox str
Me.RecordSource = str
End Sub
'=========
To: belajar-access@yahoogroups.com
From: ginoek_ginoek@yahoo.com
Date: Wed, 24 Aug 2011 11:31:10 +0800
Subject: Re: [belajar-access] Re: Bagaimana cara mendapatkan nilai berdasarkan kriteria tertentu???
Private Sub Form_Load()
Dim nilai As Integer
Dim str As String
nilai = 2
str = "select * from Query_AutoNumber where Id = " & nilai
MsgBox str
Me.RecordSource = str
End Sub
'=========
To: belajar-access@yahoogroups.com
From: ginoek_ginoek@yahoo.com
Date: Wed, 24 Aug 2011 11:31:10 +0800
Subject: Re: [belajar-access] Re: Bagaimana cara mendapatkan nilai berdasarkan kriteria tertentu???
Sudah saya coba mas roland, dengan kode vba sbb : select * from Table where ID="text0" yang apabila saya pindahkan ke jendela kode vba menjadi : kode="select * from Table where ID="text0"" ini akan menghasilkan error karena terdapat dua dobel kutip, dan bila saya ganti menjadi kode ="select * from Table where ID=text0", akan menghasilkan error "too few parameter...". Sepengetahuan saya untuk tipe string memang menggunakan '" & text0 & "' , untuk tipe data lain saya belum coba tapi dari hasil try and error, seperti yang saya sampaikan diatas. untuk jelasnya masalah ini, saya sertakan at tachment-nya. Terima Kasih --- On Wed, 8/24/11, roland@alkitab.or.id <roland@alkitab.or.id> wrote:
|
__._,_.___
SPAM IS PROHIBITED
.
__,_._,___
No comments:
Post a Comment