Kamis, 27 Maret 2014

Bls: [belajar-access] tanya :data type mismatch in criteria expression

 

ok pak hari..sudah bisa..

Trimakasih pak hari...





Pada Kamis, 27 Maret 2014 22:30, hari yanto <har_i20002000@yahoo.com> menulis:
 
Muhamad Safei ....,

Ketidaksesuaian type data memperlihatkan ketidaksamaan antara type data pada tabel dan variabel yang dikirim. Analisa sementara saya, berdasarkan script yang Sampeyan kirim:

s = "SELECT floor_tracktmpReport.* FROM
floor_tracktmpReport WHERE
(((floor_tracktmpReport.id)='" & Me!trId &
"'));"

Dan, menghasilkan type mismatch, memperlihatkan type field untuk floor_tracktmpReport.id adalah number. Ini tidak sesuai dengan varibel yang sampeyan kirim, bertype text. Petunjuk textnya dari ini (ada upperstropnya):

='" & Me!trId &
"'));"

Bila benar demikian script tersebut harus disesuaikan. Sehingga menjadi seperti ini (tanpa upperstrop):

)=" & Me!trId &
"));"

Akan lebih baik lagi apabila varibel sebelum dikirim diklarifikasi. Misal menggunakan Isnumeric.

if Isnumeric(Me!trId) Then
'ekseuksi
else
'beri pesan bahwa id harus numeric
end if

Semoga bisa membantu dan memberi semangat.

Hariyanto (Surabaya)

--------------------------------------------
On Thu, 27/3/14, Muhamad Safei <safeimuhamad@yahoo.com> wrote:

Subject: [belajar-access] tanya :data type mismatch in criteria expression [1 Attachment]
To: belajar-access@yahoogroups.com
Date: Thursday, 27 March, 2014, 8:38 AM

[Attachment(s) from Muhamad Safei
included below]


selamat pagi semuanya...mau
tanya kira ini kenapa ya??
notifikasi erorr terlampir..berikut
sorcecodenya..
mohon
bantuannya..


Thnks



On
Error GoTo errH
Dim db As Database, rs As Recordset, s As String
 Set db = CurrentDb

s = "SELECT floor_tracktmpReport.* FROM
floor_tracktmpReport WHERE
(((floor_tracktmpReport.id)='" & Me!trId &
"'));"
Set
rs = db.OpenRecordset(s)
 rs.edit



rs!id = Me!trId
rs!ft_id = Me!ft_id
rs!mch_code = Me!mch_code
rs!mc_side = Me!mc_side
rs!ft_gty = Me!q_qty
rs!ft_wsetup = Me!w_setup
rs!ft_remark = Me!Remark
rs!FINISHING = Me!waste
rs!mch_type_code = Me!mch_type_code
rs!ft_waste = Me!waste
rs.Update

MsgBox "Data Telah Tersimpan"
Refresh

DoCmd.close
Exit Sub
errH:
   MsgBox Error$
   Exit Sub
   Resume





__._,_.___
Reply via web post Reply to sender Reply to group Start a New Topic Messages in this topic (3)
SPAM IS PROHIBITED
.

__,_._,___

Tidak ada komentar:

Posting Komentar