hi Syafrudin,
Coba pakai chekbox, dan textbox nya dibuat array.
Pada saat eksekusi command button, buat looping yang mengecek apakah chekbox
terisi.
klo terisi tambahkan dalam variabel kriteria yang anda buat.
dim sqlQuery as string
dim as integer
for a = 0 to 2
if chekbox1(a).value=vbchecked and a=0 then
sqlQuery= sqlquery & label1(a).caption & "=" & text1(a).text
else
sqlQuery= "and" & sqlquery & label1(a).caption & "=" &
text1(a).text
end if
next a
untuk penggunaan " nya tolong dicek lagi. :D
Semoga membantu
Thx
On 9/23/07, Syafruddin <[EMAIL PROTECTED]> wrote:
>
> Halo rekan ada yg bisa bantu gak?
>
> Gini. saya Bikin 3 buah text box dengan di beri 3 buah label masing2.
> serta 1 buah command button
> Label1.Caption="NAMA" , Label2.Caption="Alamat", Label3.Caption="Umur".
> hasilnya seperti ini :
>
> NAMA Text1
> Alamat Text2
> Umur Text3
>
> terus saya mau buat query pencarian data tabel dengan kriteria salah
> satu text box tersebut atau juga bisa tiga tiganya sekaligus
> tergantung user mengisinya atau tidak
> pada saat command1 di klik maka:
>
> Private Sub Command1_Click()
> dim msql as string
> msql = text1 + text2 + text3 <---- penjumlahan stringnya bagaimana ?
> set rs = cnn.execute(msql)
> end sub
>
> Bagaimana cara menjumlahkan nilai string dari ketiga text box di atas
> untuk di jadikan query.?
> Masalahnya belum tentu user mengisi ketiga text box tersebut. bisa
> saja salah satunya atau salah duanya atau juga ketiga tiganya yang di
> isi..
> Bagaimana ya kira2 logika kodingnya..?
> Mohon bantuan dong.. Pliisss. makaciii
>
>
>
[Non-text portions of this message have been removed]
