como resolver esse erro "Run-time error '-2147217904 (80040e1

[fpetrucc 0]

Tenho a seguinte tabela no access 2000:Tabela LivrosCodLivros NúmeroTitulo TextoAutor TextoCodEditora NúmeroCodCategoria NúmeroAcompCD sim/nãoAcompDisquete sim/nãoIdioma NúmeroObservacoes MemorandoEmprestado sim/nãoCodUsuario NúmeroDataEmprestimo data/horaDataDevolucao data/horaEsse é o código em VB6:CódigoPrivate Sub GravarDados() Dim cnnComando As New ADODB.Command Dim vSQL As String Dim vCod As Long Dim vConfMsg As Integer Dim vErro As Boolean 'On Error GoTo errGravacao 'Converte o código digitado para gravação: vCod = Val(txtCodLivro.Text) 'Verifica os dados digitados: vConfMsg = vbExclamation + vbOKOnly + vbApplicationModal vErro = False If vCod = 0 Then MsgBox "O campo Código não foi preenchido.", vConfMsg, "Erro" vErro = True End If If txtTitulo.Text = Empty Then MsgBox "O campo Título não foi preenchido.", vConfMsg, "Erro" vErro = True End If If txtAutor.Text = Empty Then MsgBox "O campo Autor não foi preenchido.", vConfMsg, "Erro" vErro = True End If If vCodEditora = 0 Then MsgBox "Não foi selecionada uma Editora.", vConfMsg, "Erro" vErro = True End If If vCodCategoria = 0 Then MsgBox "Não foi selecionada uma Categoria.", vConfMsg, "Erro" vErro = True End If 'Se aconteceu um erro de digitação, sai da sub sem gravar: If vErro Then Exit Sub End If Screen.MousePointer = vbHourglass 'Constrói o comando SQL para gravação: If vInclusao Then 'Se é uma inclusão: vSQL = "INSERT INTO Livros (CodLivro, Titulo, Autor, CodEditora, " & _ "CodCategoria, AcompCD, AcompDisquete, Idioma, Observacoes) " & _ "VALUES (" & vCod & ",'" & _ txtTitulo.Text & "','" & _ txtAutor.Text & "'," & _ vCodEditora & "," & _ vCodCategoria & "," & _ vAcompCD & "," & _ vAcompDisquete & "," & _ vIdioma & ",'" & _ txtObservacoes.Text & "');" Debug.Print vSQL Else 'Senão, alteração: vSQL = "UPDATE Livros SET Titulo = '" & txtTitulo.Text & _ "', Autor = '" & txtAutor.Text & _ "', CodEditora = " & vCodEditora & _ ", CodCategoria = " & vCodCategoria & _ ", AcompCD = " & vAcompCD & _ ", AcompDisquete = " & vAcompDisquete & _ ", Idioma = " & vIdioma & _ ", Observacoes = '" & txtObservacoes.Text & _ "' WHERE CodLivro = " & vCod & ";" End If Debug.Print vSQL 'Executa o comando de gravação: With cnnComando .ActiveConnection = CnnBiblio .CommandType = adCmdText .CommandText = vSQL .Execute End With MsgBox "Gravação concluída com sucesso.", _ vbApplicationModal + vbInformation + vbOKOnly, _ "Gravação OK" 'Chama a sub que limpa os dados do formulário: LimparTelaSaida: Screen.MousePointer = vbDefault Set cnnComando = Nothing Exit SuberrGravacao: With Err If .Number <> 0 Then MsgBox "Erro durante a gravação dos dados no registro." & vbCrLf & _ "A operação não foi completada.", _ vbExclamation + vbOKOnly + vbApplicationModal, _ "Operação cancelada" .Number = 0 GoTo Saida End If End WithEnd SubEsse é o erro:Erro que está dandoRun-time error '-2147217904 (80040e10)':nenhum valor foi fornecido para um ou mais parâmetros necessários.no debug imprime tudo certo mas em execução dá esse erro aí acima. :unsure:

[Macêdo 0]

Execute novamente o programa e quando der o erro Click em Debug, verifique a linha do código que aparece em destaque, este erro se refere a algum campo da tabela ou controle do formulario que você tenha colocado nome errado, cuidado com acentos, um simples caractere pode causar um erro grave, ex:você colocou os nomes dos campos de sua tabela no inicio de seu post e você citou que existia o nome do campo:Tenho a seguinte tabela no access 2000:Tabela LivrosCodLivros NúmeroTitulo TextoAutor Textopreste atenção: você pôs o nome CodLivros e no código você pôs: CodLivrovSQL = "INSERT INTO Livros (CodLivro, Titulo, Autor, CodEditora, " & _"CodCategoria, AcompCD, AcompDisquete, Idioma, Observacoes) " & _Não sei se é este o erro, mas estou chamando sua atenção para que os campos e nomes dos controles estejam exatamente iguais.Mas, é isto ai amigão, verifique cuidadosamente seu código, pois tenho certeza que o erro está no parâmetro entre os nomes dos campos da tabela do banco de dados e os controles onde estão os valores no form.Obs: conheço esta apostila que você está estudando, comecei com ela também, é muito boa, mas antes e ir logo digitando todos os códigos para o programa procure ler bastante, estudar para poder entender cada comando e se certificar do que está fazendo, por sinal, existe em alguns lugares desta apostila alguns erros que já verifiquei, inclusive num desses comandos de inclusão onde se me lembro falta um "," ou um "&" esteja atento! Qualquer duvida manda que ajudo no que puder!AtenciosamenteMacêdo.

[fpetrucc 0]

Olá Mâcedo tudo bem?verificando o código vi que está digitado corretamente, apenas digitei errado no tópico, me desculpem, já comparei os campos do bd com o código e estão exatamente com os mesmos nomes também estão iguais os do formulário. Vai uma demostração da janela imediata de um livro que tentei cadastrar:INSERT INTO Livros (CodLivro, Titulo, Autor, CodEditora, CodCategoria, AcompCD, AcompDisquete, Idioma, Observacoes) VALUES (1,'Lkdfçakdçfa','Lçkdçflkaçdflkça',2,1,Verdadeiro,Verdadeiro,0,'dfjkakdflakdflas');supostamente está tudo certo :unsure: :unsure: :unsure:

[Macêdo 0]

Viu qual linha aparece o erro? pode ser também que um dos campos não aceite NULO!, tente inserir preenchendo todos os campos pra ver o que acontece, tem outra coisa também, faça o seguinte teste:Altere esta parte do código:vSQL = "INSERT INTO Livros (CodLivro, Titulo, Autor, CodEditora, " & _"CodCategoria, AcompCD, AcompDisquete, Idioma, Observacoes) " & _Ponha assim:vSQL = "INSERT INTO Livros (CodLivro, Titulo, Autor, CodEditora, _CodCategoria, AcompCD, AcompDisquete, Idioma, Observacoes) " & _pois na verdade a segunda linha é continuação da primeira, então deve ter apenas o "_" e continuar relacionando os campos, ou coloque numa linha só, assim:vSQL = "INSERT INTO Livros (CodLivro, Titulo, Autor, CodEditora..., Observacoes) " & _Beleza?

[fpetrucc 0]

Para evitar falta de aspas ou qualquer pontuação modifiquei o código: With cnnComando .ActiveConnection = CnnBiblio .CommandType = adCmdText '.CommandText = vSQL If vInclusao Then 'Se é uma inclusão: .CommandText = "INSERT INTO Livros (CodLivro, Titulo, Autor, CodEditora, CodCategoria, AcompCD, AcompDisquete, Idioma, Observacoes) " & _ "VALUES (" & vCod & ",'" & txtTitulo.Text & "','" & txtAutor.Text & "'," & vCodEditora & "," & vCodCategoria & "," & vAcompCD & "," & vAcompDisquete & "," & vIdioma & ",'" & txtObservacoes.Text & "');" Debug.Print .CommandText Else 'Senão, alteração: .CommandText = "UPDATE Livros SET Titulo = '" & txtTitulo.Text & _ "', Autor = '" & txtAutor.Text & _ "', CodEditora = " & vCodEditora & _ ", CodCategoria = " & vCodCategoria & _ ", AcompCD = " & vAcompCD & _ ", AcompDisquete = " & vAcompDisquete & _ ", Idioma = " & vIdioma & _ ", Observacoes = '" & txtObservacoes.Text & _ "' WHERE CodLivro = " & vCod & ";" End If 'Executa o comando de gravação: .Execute <<<<<<<<<<<<<<<< - [[[[[ --- AQUI É A LINHA DO ERRO --- ]]]]]Resultado na janela imediata:INSERT INTO Livros (CodLivro, Titulo, Autor, CodEditora, CodCategoria, AcompCD, AcompDisquete, Idioma, Observacoes) VALUES (1,'Çlfçdksçfa','Lkjadflkaj',1,2,Verdadeiro,Verdadeiro,2,'kfjaljdlfjla');mas continua dando erro. :unsure: :unsure: :unsure:

[Macêdo 0]

Quando o erro aparece no (.execute) quer dizer que o erro realmente esta em um dos campos do INSERT, faça o seguinte, tente inserir um campo de cada vez, com certeza irá achar o campo que está dando o erro, ex:1º insira só o autor:= "INSERT INTO Livros (autor)values ('" & _ textautor & "');" .executeveja se inseriu o autor, depois altere o código e tente inserir um valor em outro campo, ex:titulo= "INSERT INTO Livros (titulo)values ('" & _ txttitulo & "');" .executecom certeza irá achar o ou os campos que estão dando erro.

[fpetrucc 0]

Boa Mâcedo,ao fazer o que você mostrou descobri que o problema está nos campos acompcd, acompdisquete do banco de dados e os objetos vacompcd e vacompdisquete do projeto.Só não entendi porque?no banco de dados ambos estão como sim/não na estrutura, e no projeto estão como boolean.já testei convertendo pra texto e string e funcionou mas não é o método correto, como faço pra corrigir isso ou porque não está aceitando se as propriedades são compatíveis?um abraço.

[Claudio Neto 3]

Boa Mâcedo,ao fazer o que você mostrou descobri que o problema está nos campos acompcd, acompdisquete do banco de dados e os objetos vacompcd e vacompdisquete do projeto.Só não entendi porque?no banco de dados ambos estão como sim/não na estrutura, e no projeto estão como boolean.já testei convertendo pra texto e string e funcionou mas não é o método correto, como faço pra corrigir isso ou porque não está aceitando se as propriedades são compatíveis?um abraço.

E você está passando os valores como bit para a tabela, 1 ou 0, sendo 1 para sim e 0 para não?Onde suas variáveis vAcompCD e vAcompDisquete estão recebendo valores?Põe essa parte do código para dar uma olhada.Abraços...

[fpetrucc 0]

Boa Mâcedo,ao fazer o que você mostrou descobri que o problema está nos campos acompcd, acompdisquete do banco de dados e os objetos vacompcd e vacompdisquete do projeto.Só não entendi porque?no banco de dados ambos estão como sim/não na estrutura, e no projeto estão como boolean.já testei convertendo pra texto e string e funcionou mas não é o método correto, como faço pra corrigir isso ou porque não está aceitando se as propriedades são compatíveis?um abraço.

E você está passando os valores como bit para a tabela, 1 ou 0, sendo 1 para sim e 0 para não?Onde suas variáveis vAcompCD e vAcompDisquete estão recebendo valores?Põe essa parte do código para dar uma olhada.Abraços...

Dim vAcompCD, vAcompDisquete As booleanPrivate Sub chkAcompCD_Click() 'Verifica se chkAcompCD está ou não marcada, e atribui a vAcompCD o valor 'correspondente: If chkAcompCD.Value = vbChecked Then vAcompCD = true Else vAcompCD = false End IfEnd SubPrivate Sub chkAcompDisquete_Click() 'Verifica se chkAcompDisquete está ou não marcada, e atribui a vAcompCD o valor 'correspondente: If chkAcompDisquete.Value = vbChecked Then vAcompDisquete = true Else chkAcompDisquete = false End IfEnd SubPrivate Sub GravarDados() Dim cnnComando As New ADODB.Command Dim vSQL As String Dim vCod As Long Dim vConfMsg As Integer Dim vErro As Boolean 'On Error GoTo errGravacao 'Converte o código digitado para gravação: vCod = Val(txtCodLivro.Text) 'Verifica os dados digitados: vConfMsg = vbExclamation + vbOKOnly + vbApplicationModal vErro = False If vCod = 0 Then MsgBox "O campo Código não foi preenchido.", vConfMsg, "Erro" vErro = True End If If txtTitulo.Text = Empty Then MsgBox "O campo Título não foi preenchido.", vConfMsg, "Erro" vErro = True End If If txtAutor.Text = Empty Then MsgBox "O campo Autor não foi preenchido.", vConfMsg, "Erro" vErro = True End If If vCodEditora = 0 Then MsgBox "Não foi selecionada uma Editora.", vConfMsg, "Erro" vErro = True End If If vCodCategoria = 0 Then MsgBox "Não foi selecionada uma Categoria.", vConfMsg, "Erro" vErro = True End If 'Se aconteceu um erro de digitação, sai da sub sem gravar: If vErro Then Exit Sub End If Screen.MousePointer = vbHourglass 'Constrói o comando SQL para gravação: With cnnComando .ActiveConnection = CnnBiblio .CommandType = adCmdText '.CommandText = vSQL If vInclusao Then 'Se é uma inclusão: .CommandText = "INSERT INTO Livros (CodLivro, Titulo, Autor, CodEditora, CodCategoria, AcompCD, AcompDisquete, Idioma, Observacoes)" _ & "VALUES (" & vCod & ",'" & txtTitulo.Text & "','" & txtAutor.Text & "'," & vCodEditora & "," & vCodCategoria & "," & vAcompCD & "," & vAcompDisquete & "," & vIdioma & ",'" & txtObservacoes.Text & "')" Debug.Print .CommandText Else 'Senão, alteração: .CommandText = "UPDATE Livros SET Titulo = '" & txtTitulo.Text & _ "', Autor = '" & txtAutor.Text & _ "', CodEditora = " & vCodEditora & _ ", CodCategoria = " & vCodCategoria & _ ", AcompCD = " & vAcompCD & _ ", AcompDisquete = " & vAcompDisquete & _ ", Idioma = " & vIdioma & _ ", Observacoes = '" & txtObservacoes.Text & _ "' WHERE CodLivro = " & vCod & ";" End If 'Executa o comando de gravação: .Execute End With MsgBox "Gravação concluída com sucesso.", _ vbApplicationModal + vbInformation + vbOKOnly, _ "Gravação OK" 'Chama a sub que limpa os dados do formulário: LimparTelaSaida: Screen.MousePointer = vbDefault Set cnnComando = Nothing Exit SuberrGravacao: With Err If .Number <> 0 Then MsgBox "Erro durante a gravação dos dados no registro." & vbCrLf & _ "A operação não foi completada.", _ vbExclamation + vbOKOnly + vbApplicationModal, _ "Operação cancelada" .Number = 0 GoTo Saida End If End WithEnd Sub

[Claudio Neto 3]

Boa Mâcedo,ao fazer o que você mostrou descobri que o problema está nos campos acompcd, acompdisquete do banco de dados e os objetos vacompcd e vacompdisquete do projeto.Só não entendi porque?no banco de dados ambos estão como sim/não na estrutura, e no projeto estão como boolean.já testei convertendo pra texto e string e funcionou mas não é o método correto, como faço pra corrigir isso ou porque não está aceitando se as propriedades são compatíveis?um abraço.

E você está passando os valores como bit para a tabela, 1 ou 0, sendo 1 para sim e 0 para não?Onde suas variáveis vAcompCD e vAcompDisquete estão recebendo valores?Põe essa parte do código para dar uma olhada.Abraços...

Dim vAcompCD, vAcompDisquete As booleanPrivate Sub chkAcompCD_Click() 'Verifica se chkAcompCD está ou não marcada, e atribui a vAcompCD o valor 'correspondente: If chkAcompCD.Value = vbChecked Then vAcompCD = true Else vAcompCD = false End IfEnd SubPrivate Sub chkAcompDisquete_Click() 'Verifica se chkAcompDisquete está ou não marcada, e atribui a vAcompCD o valor 'correspondente: If chkAcompDisquete.Value = vbChecked Then vAcompDisquete = true Else chkAcompDisquete = false End IfEnd SubPrivate Sub GravarDados() Dim cnnComando As New ADODB.Command Dim vSQL As String Dim vCod As Long Dim vConfMsg As Integer Dim vErro As Boolean 'On Error GoTo errGravacao 'Converte o código digitado para gravação: vCod = Val(txtCodLivro.Text) 'Verifica os dados digitados: vConfMsg = vbExclamation + vbOKOnly + vbApplicationModal vErro = False If vCod = 0 Then MsgBox "O campo Código não foi preenchido.", vConfMsg, "Erro" vErro = True End If If txtTitulo.Text = Empty Then MsgBox "O campo Título não foi preenchido.", vConfMsg, "Erro" vErro = True End If If txtAutor.Text = Empty Then MsgBox "O campo Autor não foi preenchido.", vConfMsg, "Erro" vErro = True End If If vCodEditora = 0 Then MsgBox "Não foi selecionada uma Editora.", vConfMsg, "Erro" vErro = True End If If vCodCategoria = 0 Then MsgBox "Não foi selecionada uma Categoria.", vConfMsg, "Erro" vErro = True End If 'Se aconteceu um erro de digitação, sai da sub sem gravar: If vErro Then Exit Sub End If Screen.MousePointer = vbHourglass 'Constrói o comando SQL para gravação: With cnnComando .ActiveConnection = CnnBiblio .CommandType = adCmdText '.CommandText = vSQL If vInclusao Then 'Se é uma inclusão: .CommandText = "INSERT INTO Livros (CodLivro, Titulo, Autor, CodEditora, CodCategoria, AcompCD, AcompDisquete, Idioma, Observacoes)" _ & "VALUES (" & vCod & ",'" & txtTitulo.Text & "','" & txtAutor.Text & "'," & vCodEditora & "," & vCodCategoria & "," & vAcompCD & "," & vAcompDisquete & "," & vIdioma & ",'" & txtObservacoes.Text & "')" Debug.Print .CommandText Else 'Senão, alteração: .CommandText = "UPDATE Livros SET Titulo = '" & txtTitulo.Text & _ "', Autor = '" & txtAutor.Text & _ "', CodEditora = " & vCodEditora & _ ", CodCategoria = " & vCodCategoria & _ ", AcompCD = " & vAcompCD & _ ", AcompDisquete = " & vAcompDisquete & _ ", Idioma = " & vIdioma & _ ", Observacoes = '" & txtObservacoes.Text & _ "' WHERE CodLivro = " & vCod & ";" End If 'Executa o comando de gravação: .Execute End With MsgBox "Gravação concluída com sucesso.", _ vbApplicationModal + vbInformation + vbOKOnly, _ "Gravação OK" 'Chama a sub que limpa os dados do formulário: LimparTelaSaida: Screen.MousePointer = vbDefault Set cnnComando = Nothing Exit SuberrGravacao: With Err If .Number <> 0 Then MsgBox "Erro durante a gravação dos dados no registro." & vbCrLf & _ "A operação não foi completada.", _ vbExclamation + vbOKOnly + vbApplicationModal, _ "Operação cancelada" .Number = 0 GoTo Saida End If End WithEnd Sub

Ta vendo, não estão recebendo como 1 ou 0, e sim como true ou false. Eu fiz esse teste antes de postar esse pergunta justamente por isso, tentei passar os valores como true ou false e deu erro.Faz o seguinte, declare suas variáveis como integer, ai faça assim: If chkAcompCD.Value = vbChecked Then vAcompCD = 1 Else vAcompCD = 0 End IfTbm acho que deveria funcionar da forma como você colocou, mas realmente dá erro. Dessa forma acima dará certo, tenta lá...Abraços..

[fpetrucc 0]

Boa Mâcedo,ao fazer o que você mostrou descobri que o problema está nos campos acompcd, acompdisquete do banco de dados e os objetos vacompcd e vacompdisquete do projeto.Só não entendi porque?no banco de dados ambos estão como sim/não na estrutura, e no projeto estão como boolean.já testei convertendo pra texto e string e funcionou mas não é o método correto, como faço pra corrigir isso ou porque não está aceitando se as propriedades são compatíveis?um abraço.

E você está passando os valores como bit para a tabela, 1 ou 0, sendo 1 para sim e 0 para não?Onde suas variáveis vAcompCD e vAcompDisquete estão recebendo valores?Põe essa parte do código para dar uma olhada.Abraços...

Dim vAcompCD, vAcompDisquete As booleanPrivate Sub chkAcompCD_Click() 'Verifica se chkAcompCD está ou não marcada, e atribui a vAcompCD o valor 'correspondente: If chkAcompCD.Value = vbChecked Then vAcompCD = true Else vAcompCD = false End IfEnd SubPrivate Sub chkAcompDisquete_Click() 'Verifica se chkAcompDisquete está ou não marcada, e atribui a vAcompCD o valor 'correspondente: If chkAcompDisquete.Value = vbChecked Then vAcompDisquete = true Else chkAcompDisquete = false End IfEnd SubPrivate Sub GravarDados() Dim cnnComando As New ADODB.Command Dim vSQL As String Dim vCod As Long Dim vConfMsg As Integer Dim vErro As Boolean 'On Error GoTo errGravacao 'Converte o código digitado para gravação: vCod = Val(txtCodLivro.Text) 'Verifica os dados digitados: vConfMsg = vbExclamation + vbOKOnly + vbApplicationModal vErro = False If vCod = 0 Then MsgBox "O campo Código não foi preenchido.", vConfMsg, "Erro" vErro = True End If If txtTitulo.Text = Empty Then MsgBox "O campo Título não foi preenchido.", vConfMsg, "Erro" vErro = True End If If txtAutor.Text = Empty Then MsgBox "O campo Autor não foi preenchido.", vConfMsg, "Erro" vErro = True End If If vCodEditora = 0 Then MsgBox "Não foi selecionada uma Editora.", vConfMsg, "Erro" vErro = True End If If vCodCategoria = 0 Then MsgBox "Não foi selecionada uma Categoria.", vConfMsg, "Erro" vErro = True End If 'Se aconteceu um erro de digitação, sai da sub sem gravar: If vErro Then Exit Sub End If Screen.MousePointer = vbHourglass 'Constrói o comando SQL para gravação: With cnnComando .ActiveConnection = CnnBiblio .CommandType = adCmdText '.CommandText = vSQL If vInclusao Then 'Se é uma inclusão: .CommandText = "INSERT INTO Livros (CodLivro, Titulo, Autor, CodEditora, CodCategoria, AcompCD, AcompDisquete, Idioma, Observacoes)" _ & "VALUES (" & vCod & ",'" & txtTitulo.Text & "','" & txtAutor.Text & "'," & vCodEditora & "," & vCodCategoria & "," & vAcompCD & "," & vAcompDisquete & "," & vIdioma & ",'" & txtObservacoes.Text & "')" Debug.Print .CommandText Else 'Senão, alteração: .CommandText = "UPDATE Livros SET Titulo = '" & txtTitulo.Text & _ "', Autor = '" & txtAutor.Text & _ "', CodEditora = " & vCodEditora & _ ", CodCategoria = " & vCodCategoria & _ ", AcompCD = " & vAcompCD & _ ", AcompDisquete = " & vAcompDisquete & _ ", Idioma = " & vIdioma & _ ", Observacoes = '" & txtObservacoes.Text & _ "' WHERE CodLivro = " & vCod & ";" End If 'Executa o comando de gravação: .Execute End With MsgBox "Gravação concluída com sucesso.", _ vbApplicationModal + vbInformation + vbOKOnly, _ "Gravação OK" 'Chama a sub que limpa os dados do formulário: LimparTelaSaida: Screen.MousePointer = vbDefault Set cnnComando = Nothing Exit SuberrGravacao: With Err If .Number <> 0 Then MsgBox "Erro durante a gravação dos dados no registro." & vbCrLf & _ "A operação não foi completada.", _ vbExclamation + vbOKOnly + vbApplicationModal, _ "Operação cancelada" .Number = 0 GoTo Saida End If End WithEnd Sub

Ta vendo, não estão recebendo como 1 ou 0, e sim como true ou false. Eu fiz esse teste antes de postar esse pergunta justamente por isso, tentei passar os valores como true ou false e deu erro.Faz o seguinte, declare suas variáveis como integer, ai faça assim: If chkAcompCD.Value = vbChecked Then vAcompCD = 1 Else vAcompCD = 0 End IfTbm acho que deveria funcionar da forma como você colocou, mas realmente dá erro. Dessa forma acima dará certo, tenta lá...Abraços..

beleza Claudio Neto,eu já tinha feito isso aí e funcionou legal só fiquei sem entender o motivo do erro, mas o importante é que está funcionandopra quem tá começando e já se depara com esses erros inexplicáveis é bronca.Mas valeu muito obrigado pela tua ajudaum forte abraço e Deus te abençoe.