MS ACCESS MAILING LIST: RE: [belajar-access] Re: Bagaimana cara mendapatkan nilai berdasarkan kriteria tertentu???

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