ACCESS FEED: Re: [belajar-access] tanya :data type mismatch in criteria expression

Kamis, 27 Maret 2014

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

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