Ralat:
replace(qty,",",".")
Alhamdulillah, akhirnya udah bisa mas, ternyata ada fungsi replace()
replace(qty,',','.')
Terimakasih untuk saran dan masukannya.
On Sep 27, 2013 10:34 AM, "aksan kurdin" <aksan.kurdin@gmail.com> wrote:
yang dibutuhkan adalah input numerik berformat xxxx.xxx (format english)
coba bereksperimen dengan satu texbox dan satu command button
di event click command button coba tangkap kombinasi format yang bisa dipakai generik untuk segala setting di bawa ke english format
dim strmsg as string
strmsg = format (text1,"0.0")
strmsg = strmsg & vbcrlf
strmsg = strmsg & format (text1,"#.#")
strmsg = strmsg & vbcrlf
strmsg = strmsg & val(text1)
msgbox strmsg
On 9/27/2013 9:58 AM, Nafan . wrote:
Gmn kalo tanda # diganti dengan 0
Salam,
Sent from Yahoo! Mail for iPhone
From: Tri Widodo <triwidodo78@gmail.com>;
To: <belajar-access@yahoogroups.com>;
Subject: Re: [belajar-access] RE: Input data pecahan
Sent: Thu, Sep 26, 2013 12:36:12 PM
Maaf nih belum bisa juga dengan kode ini, sudah dicoba:
sSQL = "INSERT INTO tbBarangMasuk (kode_barang,nama_barang,qty,harga) "_ & "VALUES ('" & kode_barang & "','" & nama_barang & "','" & format(qty,"#.#") & "','" & format(harga,"#.#") & "')"Tapi, kalau format textbox qty saya kosongkan (jadi tipenya string, rata kiri) justru bisa. Tapi ya lucu ya kalau data numeric rata kiri, terus tanda koma pakai titik.
On Sep 26, 2013 5:31 PM, "aksan kurdin" <aksan.kurdin@gmail.com> wrote:
seting dengan indonesia ya ?
salah satunya bisa pake fungsi format:
sSQL = "INSERT INTO tbBarangMasuk (kode_barang,nama_barang,qty,harga) "_
& "VALUES ('" & kode_barang & "','" & nama_barang & "','" & format(qty,"#.#") & "','" & format(harga,"#.#") & "')"
On 9/26/2013 5:16 PM, Tri Widodo wrote:
> sSQL = "INSERT INTO tbBarangMasuk (kode_barang,nama_barang,qty,harga)
> VALUES ('" & kode_barang & "','" & nama_barang & "','" & qty & "','" &
> harga & "')"
| Reply via web post | Reply to sender | Reply to group | Start a New Topic | Messages in this topic (12) |
Tidak ada komentar:
Posting Komentar