MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    Método .Edit - Salvar Edição de Registro

    avatar
    Pretor
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 31
    Registrado : 27/02/2010

    Método .Edit - Salvar Edição de Registro Empty Método .Edit - Salvar Edição de Registro

    Mensagem  Pretor em 6/12/2020, 04:51

    Pessoal, boa noite!

    Estou tentando utilizar o código abaixo para acrescentar e editar registros em um formulário desvinculado.

    Porém, quando tento atualizar os registros surge o seguinte erro:

    "Erro em tempo de execução '3157':
    ODBC - falha ao atualizar em uma tabela vinculada 'tblProgrCompra'

    A falha ocorre no método .Update


    Private Sub cmdSalvar_Click()

    Dim intResponse As Integer
    Dim Msg As String
    Dim rst1 As Recordset
    Set rst1 = CurrentDb.OpenRecordset("tblProgrCompra")

    On Error GoTo 1

    intResponse = MsgBox("Deseja Salvar o Registro?", vbInformation + vbYesNoCancel)
       
    Select Case intResponse
               
    'Salva tudo o que foi feito
    Case vbYes
               
    If IsNull(Me.UnidNeg) Or IsNull(Me.UnidProd) Or IsNull(Me.CodChaveForn) Or IsNull(Me.DataInicialProgr) Or IsNull(Me.DataFinalProgr) Or IsNull(Me.QZ) Or IsNull(Me.DataEntrega) Or IsNull(Me.DataPrevPG) Or IsNull(Me.CodChaveTipoCompra) Or IsNull(Me.CodChaveFormaPG) Or IsNull(Me.CodChaveStatus) Then
                   
    MsgBox "FALTAM CAMPOS A SEREM PREENCHIDOS" & vbLf & vbLf & "Verifique.", vbInformation, "Aviso"
               
    ElseIf DCount("[CodChaveProgrCompra]", "tblProgrCompra", "[CodChaveProgrCompra]= " & Me.CodChaveProgrCompra & " ") > 0 Then

    rst1.Edit
    rst1![CodChaveProgrCompra] = Me.CodChaveProgrCompra
    rst1![UnidNeg] = Me.UnidNeg
    rst1![UnidProd] = Me.UnidProd
    rst1![CodChaveForn] = Me.CodChaveForn
    rst1![DataInicialProgr] = Format(Me.DataInicialProgr, "dd/mm/yyyy hh:nn:ss")
    rst1![DataFinalProgr] = Format(Me.DataFinalProgr, "dd/mm/yyyy hh:nn:ss")
    rst1![QZ] = Me.QZ
    rst1![DataEntrega] = Format(Me.DataEntrega, "dd/mm/yyyy hh:nn:ss")
    rst1![DataPrevPG] = Format(Me.DataPrevPG, "dd/mm/yyyy hh:nn:ss")
    rst1![CodChaveTipoCompra] = Me.CodChaveTipoCompra
    rst1![CodChaveFormaPG] = Me.CodChaveFormaPG
    rst1![CodChaveStatus] = Me.CodChaveStatus
    rst1![NºNF] = Me.NºNF
    rst1![DataEmissaoNF] = Me.DataEmissaoNF
    rst1.Update
    rst1.Close

    MsgBox "REGISTRO MODIFICADO", vbInformation, "Aviso"
    Call Limpar
    Me.CodChaveProgrCompra.SetFocus

    Else
               
                       
    rst1.AddNew
    rst1![CodChaveProgrCompra] = Me.CodChaveProgrCompra
    rst1![UnidNeg] = Me.UnidNeg
    rst1![UnidProd] = Me.UnidProd
    rst1![CodChaveForn] = Me.CodChaveForn
    rst1![DataInicialProgr] = Format(Me.DataInicialProgr, "dd/mm/yyyy hh:nn:ss")
    rst1![DataFinalProgr] = Format(Me.DataFinalProgr, "dd/mm/yyyy hh:nn:ss")
    rst1![QZ] = Me.QZ
    rst1![DataEntrega] = Format(Me.DataEntrega, "dd/mm/yyyy hh:nn:ss")
    rst1![DataPrevPG] = Format(Me.DataPrevPG, "dd/mm/yyyy hh:nn:ss")
    rst1![CodChaveTipoCompra] = Me.CodChaveTipoCompra
    rst1![CodChaveFormaPG] = Me.CodChaveFormaPG
    rst1![CodChaveStatus] = Me.CodChaveStatus
    rst1![NºNF] = Me.NºNF
    rst1![DataEmissaoNF] = Me.DataEmissaoNF
    rst1.Update
    rst1.Close

    MsgBox "REGISTRO INSERIDO", vbInformation, "Aviso"
    Call Limpar
    Me.CodChaveProgrCompra.SetFocus

    End If
               
    'Não salva
     Case vbNo
     Me.Undo
                 
     'Cancela
      Case vbCancel
       
       Exit Sub
           
       End Select
           
    Exit_1:
    DoCmd.Hourglass False
    DoCmd.Echo True
    Exit Sub

    1 a:
    DoCmd.Hourglass False
    DoCmd.Echo True
    Msg = "Erro # " & Str(Err.Number) _
    & vbNewLine & "Descrição: " & Err.Description _
    & vbNewLine & vbNewLine & "Por favor contate o Administrador de Sistema."
    MsgBox Msg, vbExclamation, "Atenção"
    Resume Exit_1

    End Sub
    marcelo3092
    marcelo3092
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 245
    Registrado : 19/08/2010

    Método .Edit - Salvar Edição de Registro Empty Re: Método .Edit - Salvar Edição de Registro

    Mensagem  marcelo3092 em 6/12/2020, 21:23

    Uma pergunta ta usando driver obdc o banco de dados e mysql local ou online?
    avatar
    Pretor
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 31
    Registrado : 27/02/2010

    Método .Edit - Salvar Edição de Registro Empty Re: Método .Edit - Salvar Edição de Registro

    Mensagem  Pretor em 6/12/2020, 21:30

    Sim!!
    avatar
    Pretor
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 31
    Registrado : 27/02/2010

    Método .Edit - Salvar Edição de Registro Empty Re: Método .Edit - Salvar Edição de Registro

    Mensagem  Pretor em 6/12/2020, 21:31

    Online

      Data/hora atual: 22/1/2021, 01:08