Saya tambahkan lagi sbg ( text , number , date )
'=========
Option Compare Database
' sintaks di query
' Tanggal
' SELECT Table2.ID, Table2.text, Table2.number, Table2.datetime FROM Table2 WHERE (((Table2.datetime)=CDate("12/25/2011")));
' SELECT Table2.ID, Table2.text, Table2.number, Table2.datetime FROM Table2 WHERE (((Table2.datetime)=[Forms]![Query_AutoNumber]![text_Tanggal]));
' Number
' SELECT Table2.ID, Table2.text, Table2.number, Table2.datetime FROM Table2 WHERE (((Table2.number)=2));
' SELECT Table2.ID, Table2.text, Table2.number, Table2.datetime FROM Table2 WHERE (((Table2.number)=[Forms]![Query_AutoNumber]![Text_Number]));
' text
' SELECT Table2.ID, Table2.text, Table2.number, Table2.datetime FROM Table2 WHERE (((Table2.text)="Text1"));
' SEL ECT Table2.ID, Table2.text, Table2.number, Table2.datetime FROM Table2 WHERE (((Table2.text)=[Forms]![Query_AutoNumber]![Text_Text]));
Private Sub Form_Load()
Dim nilai As Integer
Dim mtext As String
Dim str As String
Dim date_Tanggal As Date
Dim strTanggal As String
' number
nilai = 1
str = "select * from Query_AutoNumber where Id = " & nilai
' text
mtext = "Text1"
str = "select * from Query_AutoNumber where Text = '" & mtext & "'"
'tanggal string
strTanggal = "12/25/2011"
str = "select * from Query_AutoNumber where datetime = #" & strTanggal & "#"
'tanggal datetime
date_Tanggal = #12/25/2011#
str = "select * from Query_AutoNumber where datetime = #" & date_Tanggal & "#"
Me.RecordSource = str
End Sub
'=================
To: belajar-access@yahoogroups.com
From: jkssbma@live.com
Date: Wed, 24 Aug 2011 16:27:10 +0700
Subject: RE: [belajar-access] Re: Bagaimana cara mendapatkan nilai berdasarkan kriteria tertentu???
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???
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:
From: roland@alkitab.or.id <roland@alkitab.or.id> Subject: Re: [belajar-access] Re: Bagaimana cara mendapatkan nilai berdasarkan kriteria tertentu??? To: belajar-access@yahoogroups.com Date: Wednesday, August 24, 2011, 1:11 AM
Field autonumber merupakan type data long integer (number). Pada where ID='" text0 "', seharusnya tidak menggunakan tanda '' karena penggunaan tanda kutip tsb dipakai untuk type data teks. Sehingga penulisannya dikoreksi menjadi where ID=" text0 ".
Salam, Roland
Powered by Telkomsel BlackBerry
|