Private Sub Command3_Click()
If Trim(placa.Text) = Empty Then
MsgBox " A placa deve ser informada!", vbCritical, "CONPROPEN - Tratamento de erro..."
placa.SetFocus
Exit Sub
End If
If Trim(Protocolo.Text) = Empty Then
MsgBox " O protocolo deve ser informado!", vbCritical, "CONPROPEN - Tratamento de erro..."
Protocolo.SetFocus
Exit Sub
End If
If Trim(txtCNPJ.Text) = Empty Then
MsgBox "Você deve informar o número do CNPJ.", vbInformation, "CONPROPEN - Tratamento de Erro..."
txtCNPJ.SetFocus
Exit Sub
End If
If VerificaCNPJ(txtCNPJ) = False Then
MsgBox "O número do CNPJ informado não é válido!", vbCritical, "CONPROPEN - Tratamento de Erro..."
txtCNPJ.SetFocus
Exit Sub
Else
Call AbreBanco
sql = "select Placa,Protocolo,Documento from Processos where protocolo = '" & Protocolo.Text & "'"
Dim rsProcessos As Recordset
Set rsProcessos = db.OpenRecordset(sql)
Data1.DatabaseName = db.Name
Data1.RecordSource = sql
Data1.Refresh
If rsProcessos.EOF Then
MsgBox "Não foi encontrado nenhum registro pendente com os dados informados!", vbInformation, "CONPROPEN - Atualização de Registros"
Else
rsProcessos.MoveMax
If IsNull(rsProcessos("Documento")) Then
rsProcessos.Edit
rsProcessos("Documento") = txtCNPJ.Text
rsProcessos.Update
rsProcessos.Close
MsgBox "Registro atualizado com sucesso!", vbInformation, "CONPROPEN - Atualização de Registros"
placa.Text = ""
txtCNPJ.Text = ""
Protocolo.Text = ""
Else
MsgBox "O registro já está atualizado!", vbCritical, "CONPROPEN - Atualização de Registro"
End If
End If
End If
End Sub
Se puderem me ajudar, mais uma vez, ficarei muito grato.
Um abraço a todos,
Daniel.
