ERRO AO ADICIONAR REGISTRO

JPAULO101 30/05/2011 09:42:22
#375292
Bom dia pessoal, estou tentano adicionar os registro em um grid mais não estou conseguindo, alguém poderia analisar o código abaixo, será que tem algo errado.

MINHA TABELA EM ACCESS

TBLMANUTENCAO
CAMPOS

CÓDIGO => DO TIPO AUTONUMERAÇÃO
LANCAMENTO => DO TIPO DATA/HORA
ESPECIFICACAO => DO TEXTO
SAIDA => DO TIPO DATA/HORA
CONCLUSAO => DO TIPO TEXTO
CODFUNC => DO TIPO NUMERO


Private Sub cmdAdDep_Click()

On Error GoTo erro
Dim sSQL As String
AltDep = False

If Trim(atxtLançamento) = [Ô][Ô] Or Trim(cboEspecificaçao) = [Ô][Ô] Then
MsgBox [Ô]Preencha os campos para inclusão do registro.[Ô], vbExclamation, [Ô]Campo vazio[Ô]
Exit Sub
End If
sSQL = [Ô]INSERT INTO Tblmanutencao(lancamento,especificacao,saida,conclusao codfunc) [Ô]
sSQL = sSQL & [Ô]VALUES ([ô][Ô] & Format(atxtLançamento, [Ô]mm/dd/yyyy[Ô]) & [Ô][ô], [ô][Ô] & cboEspecificaçao & [Ô][ô], [ô][Ô] & Format(atxtSaida, [Ô]mm/dd/yyyy[Ô]) & [Ô][ô], [Ô] & cboConclusao & [Ô][ô], [Ô] & txtCódigo & [Ô])[Ô] [ô]Debug.Print sSQL
con.BeginTrans
con.Execute sSQL
con.CommitTrans
MsgBox [Ô]Registro incluído com sucesso![Ô]
Call LimparDependente
Call ListarDependente(CLng(txtCódigo))
Exit Sub

erro:
con.RollbackTrans
MsgBox [Ô]Ocorreu um erro ao incluir acessório.[Ô], vbExclamation, [Ô]Erro[Ô]

End Sub
KIKO.WIZZ 30/05/2011 11:48:23
#375312
Segue linha corrigida:

[txt-color=#0000f0]sSQL = sSQL & [Ô]VALUES ([ô][Ô] & Format(atxtLançamento, [Ô]mm/dd/yyyy[Ô]) & [Ô][ô], [ô][Ô] & cboEspecificaçao & [Ô][ô], [ô][Ô] & Format(atxtSaida, [Ô]mm/dd/yyyy[Ô]) & [Ô][ô], [ô][Ô] & cboConclusao & [Ô][ô], [Ô] & txtCódigo & [Ô])[Ô] [ô]Debug.Print sSQL[/txt-color]

Obs: Faltava uma aspa simples em cboConclusão.
JPAULO101 30/05/2011 11:52:56
#375313
Olá KIKO_WIZZ, fiz a alteração mais continua indo pra linha de erro.
ROBIU 30/05/2011 12:38:15
#375317
Está faltando uma vírgula entre conclusao e codfunc, neste trecho:
Citação:

sSQL = [Ô]INSERT INTO Tblmanutencao(lancamento,especificacao,saida,conclusao codfunc) [Ô]


E neste trecho uma aspa simples:
Citação:

[Ô][ô], [Ô] & cboConclusao & [Ô][ô], [Ô]



Tenta assim:
sSQL = [Ô]INSERT INTO Tblmanutencao(lancamento,especificacao,saida,conclusao, codfunc) [Ô]
sSQL = sSQL & [Ô]VALUES (#[Ô] & Format(atxtLançamento.Text, [Ô]mm/dd/yyyy[Ô]) & [Ô]#, [ô][Ô]
sSQL = sSQL & cboEspecificaçao.Text & [Ô][ô], #[Ô] & Format(atxtSaida.Text, [Ô]mm/dd/yyyy[Ô]) & [Ô]#, [ô][Ô]
sSQL = sSQL & cboConclusao.Text & [Ô][ô], [Ô] & txtCódigo.Text & [Ô])[Ô]
JPAULO101 30/05/2011 16:19:41
#375353
OLÁ ROBIU, OBRIGADO PELA AJUDA, OLHA FIZ A ALTERAÇÃO COM O CÓDIGO QUE POSTOU ESTÁ INCLUINDO NORMAL MAIS NO FINAL MOSTRA UM ERRO E SELECIONA con.RollbackTrans

IMAGEM DO ERRO
PETRONCO 30/05/2011 18:44:16
#375359
Desculpe a pergunta, mas, qual OCX você utiliza para usar esta Skin ???
JPAULO101 31/05/2011 08:18:42
#375388
Olá PETRONCO, uso a ultima coleção de skins. ALEVALE com a string do ROBIU, está incluindo normal no banco, so que depois do MsgBox [Ô]Registro incluído com sucesso![Ô] e clico em ok mostra o erro acima.


Abraços
ROBIU 31/05/2011 08:33:38
#375389 Resposta escolhida
Tira ou comenta essas linhas do seu:

Citação:

con.BeginTrans



Citação:

con.CommitTrans



Citação:

con.RollbackTrans



Se continuar, tira ou comenta também o tratamento de erro. O que está acontecendo é que a transação foi realizada e você está tentando cancela-la no tratamento de erro. Você precisa verificar o erro que precisa executar o [txt-color=#e80000]con.RollbackTrans[/txt-color]
JPAULO101 31/05/2011 11:27:26
#375419
Obrigado ROBIU pela força, consegui resolver o problema graças a vocês. Muito obrigados aos outros colega que também mim ajudaram.

Abraços a todos.
Tópico encerrado , respostas não são mais permitidas
Voltar