Olá, voltei

 

Fiz tudo que queria no simlpes.

Estou com problema na inclusão, tenho um campo "codigo" que é o indice e não aceuta duplicação.

Exclui alguns registros, tudo bem. Quero incluir um novo, o foco vai para o campo do codigo mas não digito nada e passo para o nome e depois os outros dados, quando salvo dá erro de duplicação do código.

 

E agora?

Private Sub CmdInclui_Click()
On Error GoTo trataerro
If CmdInclui.Caption = "&Inclui" Then
   Rs.AddNew
   clear_ctrls
   TxtId.SetFocus
   CmdInclui.Caption = "&Grava"
   Exit Sub
End If
If CmdInclui.Caption = "&Grava" Then
   grava_rec
   Rs.Update
   CmdInclui.Caption = "&Inclui"
   marca = Rs.Bookmark
   Rs.Requery
   Rs.Bookmark = marca
   Atualiza
   MsgBox "Inclusão gravada ! "
End If
Exit Sub

trataerro:
  MsgBox "Ocorreu um erro no arquivo "
  Exit Sub
End Sub

 

Private Sub grava_rec()
   Rs("codigo") = "" & Text1.Text
   Rs("nome") = "" & TxtNome.Text
   Rs("rg") = "" & TxtRg.Text
   Rs("cpf") = "" & TxTCpf.Text
   End Sub

 

Flecha

Aleluiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiia.

Aos colaboradores, já consertei o erro acima, a primeira linha da sub_garva não pode ter, é comentada.

 

Tem algum professor de visual basic que more em São Paulo - Capital, Zona Norte ?

 

Mas eu volto...

 

Flecha

Envia seu formulário para mim e veremos o que fazer.

Omar, obrigado pela compreensão. Já consegui Alterar Gravar, localizar parece estar ok.

Só no excluir que quando eu estou no primeiro registro e o excluo a sub informa que é inicio de arquivo e fica aparecendo o "reg excluido" alterei de todo jeito que pude e não vai para o próximo, que passou a ser o primeiro. Só clicando em Next ou Min.

Eu cheguei a mudar de um jeito que ai funcionou mas mudou de lado passou a aconter a mesma coisa quando era o Ultimo reg. apaga mas não volta para o anterior.

 

A sub é essa

 

Private Sub CmdExclui_Click()
If (MsgBox("Deseja excluir -> " & " " & Rs.Fields(0) & "  " & "RG:" & Rs.Fields(1), vbYesNo, "Flecha Informa")) = vbYes Then
     Rs.Delete
     Rs.MovePrevious
    
     If Rs.BOF Then
    
        'MsgBox "Voce chegou no inicio do arquivo ! "
        clear_ctrls
        Rs.MoveNext
        Exit Sub
     Else
       Atualiza
End If
     End If
 
End Sub

 

OBS: Depois de resolver isso vou perguntar sobre um erro que deu ao alterar e gravar em dois Campos do registro.

 

Flecha