Error de conversión de tipos de datos error 3421 en tiempo de ejecución
Alguien que me pueda dar solución a mi pregunta adjunto parte del código para mejor entendimiento.
Set bd = OpenDatabase(App.Path + "\verifik.mdb")
Set tabla1 = bd.OpenRecordset("autos", dbOpenDynaset)
tabla1.FindFirst "FOLIO = " & Text1.Text
FOLIO = "&VAL(CLAVE.TEXT)"
If Not tabla1.NoMatch Then
MsgBox "EL FOLIO YA EXISTE...", 48
SendKeys "{home}+{end}"
Text1.SetFocus
Exit Sub
Else
With tabla1
.AddNew
.Fields("FOLIO") = Text1.Text
.Fields("PLACAS") = Text2.Text
.Fields("MARCA") = Text3.Text
.Fields("SUBMARCA") = Text4.Text
.Fields("PRECIO") = Combo1.Text -----> aquí el error
.Fields("FECHA") = DTPicker1
.Update
End With
Mencionar que el combo despliega estos datos $ 180, $ 473 y $ 650, este error solo aparece con algunas bd y en otras no "echa en access 2000"
1 Respuesta
Respuesta de hakuario
1