ifahidalgo 23/5/2014, 12:38
bom dia
criei a mascara de entrada 99999.99.99.99, o campo está como texto, e só receberá numeros conforme a marcara. Quando executo uma consulta, uma list box, um inputbox, se eu utilizar o codigo com a mascara, não é encontrado.
na listbox, é listado sem os pontos.
no inputbox tenho que digitar sem os pontos caso contrario não encontra.
para salvar os registros na tabela utilizo o seguinte codigo. Preciso salvar o registro coditem "texto", com os pontos.
__________________________
Private Sub cmdsalvar_Click()
Dim strSql As String, rstTemp As DAO.Recordset
strSql = "Select * from Tbitem where coditem = int(val('" & txtcoditem & "'))"
Set rstTemp = CurrentDb.OpenRecordset(strSql, dbOpenDynaset)
rstTemp.AddNew
rstTemp("coditem") = txtcoditem
rstTemp("descricaoitem") = txtdescricaoitem
rstTemp("unidade") = cmbunidade
rstTemp("valoritem") = txtvaloritem
rstTemp("usuario") = txtUser
rstTemp.Update
rstTemp.Close
txtcoditem = ""
txtdescricaoitem = ""
cmbunidade = ""
txtvaloritem = ""
txtUser = ""
Call ultimoreg
txtcoditem.SetFocus
If Not IsNull(DLookup("codigo", "tbitem")) Then
cmdeditar.Enabled = True
cmdconsultar.Enabled = True
End If
End Sub
___________________________________________