Pessoal,

 

           fiz um programinha de cadastro... bem simples, usando DAO e access 2000, aparentemente tudo ok, o problema é quando vou inserir meus dados no banco de dados e então apareçe a mensagem: "erro de conversão de tipo de dados", alguém sabe porque acontece isso?

 

Marcelo 

Voce tem um campo no BD diferente da variavel ou Text que voce quer gravar no campo, verifique a variavel e o campo que está dando erro na conversão, coloque do mesmo tipo: String=String, Valor=Valor, Data=Data.

vlu//

LCRamos,

           Dei uma olhada nos campos e aparentemente está tudo ok!, mas continua dando o erro!, o estranho é que quando excluo todos os registros e depois mando inserir registros novos ele aceita, mas aí e só sair e entrar de novo que acontece o mesmo erro.

           Se alguém poder me ajudar, agradeço muito!!!.

 

Se alguém quiser dar uma olhada no projeto me passa o e-mail que mando...

 

Obrigado

Marcelo

Vc poderia por favor colocar o trecho do código em q acontece o erro?

 

valeu... :)

se voce fizer a gravação por INSERT favor colocar a lista de campos com os tipos da base

segue os códigos:

 

Private Sub cmdcancelar_Click(Index As Integer)

dtaapart.Recordset.CancelUpdate
cmdnovo.Visible = True
cmdexcluir(1).Visible = True
cmdexcluir(1).Enabled = True
cmdincluir(0).Visible = False
cmdcancelar(1).Visible = False
cmdeditar(0).Visible = True
cmdfechar.Visible = True
Call Lock_Form_Controls(Me)
SSTab1.Tab = 0
 
End Sub

Private Sub cmdeditar_Click(Index As Integer)

If dtaapart.Recordset.RecordCount = 0 Then
MsgBox "O Banco de dados está vazio!", vbInformation, "Informação"
Exit Sub
End If

dtaapart.Recordset.Edit
cmdnovo.Visible = False
cmdexcluir(1).Visible = False
cmdincluir(0).Visible = True
cmdcancelar(1).Visible = True
cmdeditar(0).Visible = False
cmdfechar.Visible = False
cmdincluir(0).Caption = "&Salvar"
Call UnLock_Form_Controls(Me)

End Sub

Private Sub cmdexcluir_Click(Index As Integer)

If dtaapart.Recordset.RecordCount = 0 Then
MsgBox "Não há dados a excluir!", vbInformation, "Informação"
cmdexcluir(1).Enabled = False
Exit Sub
Else
If MsgBox("Deseja excluir esse registro?", vbExclamation + vbYesNo, "Aviso de exclusão") = vbYes Then
On Error Resume Next
With dtaapart.Recordset
.Delete
Call clear_Form_Controls(Me)
.MoveNext
If dtaapart.Recordset.EOF = True Then dtaapart.Recordset.MoveMin
End With
End If
End If

End Sub

Private Sub cmdfechar_Click()

Unload frmapartamentos

End Sub

Private Sub cmdincluir_Click(Index As Integer)

On Error GoTo AddErr
dtaapart.UpdateRecord

Dim sOrigem As String, sDestino As String
sOrigem = Image1(0).Picture
sDestino = App.Path & "fotos" & txtcodigo.Text & "_" & "fotos1" & ".jpg"
FileCopy sOrigem, sDestino

SavePicture Image1(0).Picture, App.Path & "fotos" & txtcodigo.Text & "_" & "fotos1" & ".jpg"

cmdincluir(0).Caption = "&Incluir"
cmdnovo.Visible = True
cmdexcluir(1).Visible = True
cmdexcluir(1).Enabled = True
cmdincluir(0).Visible = False
cmdcancelar(1).Visible = False
cmdeditar(0).Visible = True
cmdfechar.Visible = True
Call Lock_Form_Controls(Me)
SSTab1.Tab = 0
MsgBox "Registro Incluído com Sucesso!", vbOKOnly
Exit Sub
AddErr:
  MsgBox Err.Description

End Sub

Private Sub cmdnovo_Click()

On Error GoTo AddErr
dtaapart.Recordset.AddNew
cmdnovo.Visible = False
cmdexcluir(1).Visible = False
cmdincluir(0).Visible = True
cmdcancelar(1).Visible = True
cmdeditar(0).Visible = False
cmdfechar.Visible = False
Call UnLock_Form_Controls(Me)
Call clear_Form_Controls(Me)
txtcodigo.Locked = True
txtlogradouro.SetFocus
SSTab1.Tab = 0
Exit Sub
AddErr:
  MsgBox Err.Description

End Sub

Private Sub Form_Load()

Centraliza frmapartamentos

Dim DbName As String
Dim Wrk As Workspace
On Error GoTo Erro:
    DbName = App.Path & "simob.mdb"
'indica o banco de dados
    Set Wrk = DBEngine.Workspaces(0)
    Set Banco = Wrk.OpenDatabase(DbName, False, False, ";PWD=pb")
'indica a tabela
    Set Cliente = Banco.OpenRecordset("Apartamentos", dbOpenDynaset)

dtaapart.DatabaseName = App.Path & "simob.mdb"
Data1.DatabaseName = App.Path & "simob.mdb"
Data2(0).DatabaseName = App.Path & "simob.mdb"
Data4(0).DatabaseName = App.Path & "simob.mdb"
Data2(1).DatabaseName = App.Path & "simob.mdb"
Data4(1).DatabaseName = App.Path & "simob.mdb"

dtaapart.RecordSource = "apartamentos"
Data1.RecordSource = "cidadesgoias"
Data2(0).RecordSource = "padrão"
Data4(0).RecordSource = "padrão"
Data2(1).RecordSource = "conservação"
Data4(1).RecordSource = "conservação"

cmdnovo.Enabled = True
cmdeditar(0).Enabled = True
cmdexcluir(1).Enabled = True
cmdfechar.Enabled = True
cmdincluir(0).Visible = False
cmdcancelar(1).Visible = False

Call Lock_Form_Controls(Me)

Erro:
  MsgBox Err.Description

End Sub