alguem pode conferir esta strsql  para mim, já não consigo ver onde esta o erro...

o campo codigo e o campo porcentagem são numéricos, os campos dt_inicio e dt_conclusao são data/hora, o campo descricao é memorando, o campo link é hiperlink e os demais são texto.

strsql = INSERT INTO eventuais (codigo,titulo,matricula,porcentagem,dt_inicio,dt_conclusao, status, prioridade, descricao,link)VALUES(cint('" & _
txtCodigo.Text & "'),'" & txtTitulo.Text & "', '" & dtcboMatricula.Text & "', cint(" & cboConclusao.Text & "), cdate('" & _
mskInicio.Text & "'), cdate( '" & mskConclusão.Text & "'), '" & cboStatus.Text & "', '" & cboPrioridade.Text & "', '" & _
rtbDescrição.Text & "', '" & txtlink.Text & "');

 

a conexão é ADO com access. Gera o erro: "Tipo de dados incompatíveis na expressão de critério."

Só uma ajuda, debuga isso.... vai no imediate e verifica o que tem na variavel

copie e cole em uma consulta no seu banco de dados....la vai retornar o erro e qual o campo selecionado;

 

 

O Comando cint não pode ficar entre aspas...

Coloque ele depois do &

 

Abraços

TENTE ASSIM :

 

Dim Codigo As Integer, _
    Titulo As String, _
    Matricula As String, _
    Percentagem As Long, _
    Dt_Inicio As Date, _
    Dt_Conclusão As Date, _
    Status As String, _
    Prioridade As String, _
    Descricao As String, _
    Link As String
   
Codigo = CInt(txtCodigo.Text)
Titulo = txtTitulo.Text
Matricula = dtccboMatricula.Text
Percentagem = 0 '????????? VOCÊ ESQUECEU DESTA VARIAVEL.....
Dt_Inicio = CDate(mskInicio.Text)
Dt_Conclusão = CDate(mskConclusão.Text)
Status = cboStatus.Text
Prioridade = cboPrioridade.Text
Descricao = rtbDescrição.Text
Link = txtlink.Text

strsql = "INSERT INTO eventuais (codigo,titulo,matricula,porcentagem,dt_inicio,dt_conclusao, status, prioridade, descricao,Link) VALUES (" & _
          "Codigo, Titulo, Matricula, Percentagem, Dt_Inicio, Dt_Conclusão, Status, Prioridade, Descricao, Link);"

 

Vê se funciona assim !!!

 

ALEXANDRE COSTA

ARTSOFTSYSTEMS

AJUSTE NA ROTINA :

 

strsql = "INSERT INTO eventuais (codigo,titulo,matricula,porcentagem,dt_inicio,dt_conclusao, status, prioridade, descricao,Link) VALUES (" & _
          Codigo, Titulo, Matricula, Percentagem, Dt_Inicio, Dt_Conclusão, Status, Prioridade, Descricao, Link & ");"

ALEXANDRE COSTA

ARTSOFTSYSTEMS

Obrigado gustavo, eu não encontraria mesmo este erro, pois não tinha conhecimento deste grande detalhe.

 

Obrigado pessoal, pela ajuda tão imediata...

ninh@