ERRO AO SALVAR

 Tópico anterior Próximo tópico Novo tópico

ERRO AO SALVAR

VB / VBA

 Compartilhe  Compartilhe  Compartilhe
#492570 - 07/02/2020 22:19:01

ROBSON1965
SAO LUIS
Cadast. em:Fevereiro/2019


 Anexos estao visíveis somente para usuários registrados

Boa Noite,

Alguns colega poderia me auxiliar sobre um erro no cadastro?
Ao cadastrar um novo membro - ocorre um erro ao salvar
clicando no botão CADASTRAR apos incluir novo dados do membro.

Segue o Arquivo zipado.

Desde já agradeço.






#492572 - 08/02/2020 03:01:42

KERPLUNK
RIO GRANDE DO SUL
Cadast. em:Junho/2009


Membro da equipe
Não creio que seja assim a melhor maneira de pedir ajuda. Seria melhor especificar o erro e mostrar o código específico onde está falhando. Aqui estamos para ajudar, não pra fazer o seu trabalho por você.

_______________________________________________________________________
Virei Oráculo!
The end is nigh, be ready for the nukes!


#492573 - 08/02/2020 10:02:03

ROBSON1965
SAO LUIS
Cadast. em:Fevereiro/2019


Citação:
:
Boa Noite,

Alguns colega poderia me auxiliar sobre um erro no cadastro?
Ao cadastrar um novo membro - ocorre um erro ao salvar
clicando no botão CADASTRAR apos incluir novo dados do membro.

Segue o Arquivo zipado.

Desde já agradeço.




Private Sub CmdCadastrar_Click()
Dim vResp, SQL As String
    
    If Valida_Caixas = True Then
    Exit Sub
    End If
    
    If vFoto = False Then
    vResp = MsgBox("Deseja colocar uma foto para este Sócio?", vbQuestion + vbYesNoCancel, "Foto do Sócio")
    If vResp = vbYes Then
    cmdFoto_Click
    Exit Sub
    ElseIf vResp = vbCancel Then
    Exit Sub
    End If
    End If
    
    If vFoto = True And vFotoAlte = True Then
    'FileCopy StrImagem, App.Path & "\BkpFto\" & lblCodi.Caption & ".jpg"
    'StrImagemBanco = "\BkpFto\" & lblCodi.Caption & ".jpg"
    
    FileCopy StrImagem, App.Path & "\BkpFto\" & vCodiUsua & lblCodi.Caption & ".jpg"
    StrImagemBanco = "\BkpFto\" & vCodiUsua & lblCodi.Caption & ".jpg"
    
    ElseIf vFoto = False Then
    StrImagemBanco = "\BkpFto\SemFoto.gif"
    End If
    
    Conexao
    ReabreRst Rst
    Set Rst = New ADODB.Recordset
    SQL = "SELECT * FROM tblSocios"
    Rst.Open SQL, Cnn, adOpenKeyset, adLockOptimistic
    
    If cmdCadastrar.Caption = "Cadastrar" Then
    Rst.AddNew
    
    Carrega_Campos
    Rst.Update
    Else
    Rst.Find "Codigo =" & vCodigo
    Carrega_Campos
    Rst.Update
    End If
    
    Limpa_Caixas
    If vTipo = "Alte" Then
    MsgBox "Sócio Alterado com êxito.", vbExclamation, "Alteração de Sócios"
    Unload Me
    FrmConsulta.Show
    Else
    MsgBox "Sócio cadastrado com sucesso, Verifique no módulo consulta.", vbExclamation, "Cadastro de Sócios"
    Gera_Codigo
    
    txtNome.SetFocus
    End If
    'FechaConexoes Rst
    Fecha_Recordset Rst

End If



#492574 - 08/02/2020 10:55:25

MARCELOKROL
REBOUCAS
Cadast. em:Julho/2004


Dúvidas:
- Aonde acontece o erro?
- Qual erro?

Creio que essas linhas poderiam ser alteradas para comandos SQL:
Rst.AddNew ==> insert into...
Rst.Update ==> update ...

Recomento o uso de transações também.

Espero ter ajudado



#492575 - 08/02/2020 11:22:18

ROBSON1965
SAO LUIS
Cadast. em:Fevereiro/2019


Citação:
:
Dúvidas:
- Aonde acontece o erro?
- Qual erro?

Creio que essas linhas poderiam ser alteradas para comandos SQL:
Rst.AddNew ==> insert into...
Rst.Update ==> update ...

Recomento o uso de transações também.

Espero ter ajudado


O Erro ocorre quando clico no Cadastrar/Salvar.




Resposta escolhida #492579 - 08/02/2020 16:46:27

OMAR2007
MONTES CLAROS
Cadast. em:Maio/2019


Bom fazer como MARCELOKROL postou.
If vFoto = False Then
    vResp = MsgBox("Deseja colocar uma foto para este Sócio?", vbQuestion + vbYesNoCancel, "Foto do Sócio")
    If vResp = vbYes Then
    cmdFoto_Click
    Exit Sub  'Verifica isto. Sabe o que significa?
    ElseIf vResp = vbCancel Then
    Exit Sub
    End If
    End If
Quanto aos campos da sua tabela, é melhor verificar Campo adequado para ser gravado.



 Tópico anterior Próximo tópico Novo tópico


Tópico encerrado, respostas não sao permitidas
Encerrado por ROBSON1965 em 11/02/2020 15:04:23