Jump to content
Fórum Script Brasil
  • 0

Problema Com Vba


Guest --cheikspirit --
 Share

Question

Guest --cheikspirit --

Estou com um problema para validar um campo num formulário access utilizando vba.

O que eu quero é que a tabela Teste de Bd seja percorrida do primeiro ao último registro e encontrando a condição proposta não permita a inserção de novo registro.

O código é o seguinte:

Public Sub Matrícula_AfterUpdate()

Dim d As Database

Dim r As Recordset

Set d = CurrentDb

Set r = d.OpenRecordset("Teste de BD", dbOpenTable)

r.MoveFirst

Do Until r.EOF

If Baixa = False And Matrícula = Me![Matrícula] Then

MsgBox "Existe registro não baixado para este servidor." & Chr(13) & "Baixe o registro antes de fazer outro."

Me![Matrícula].SetFocus

End If

r.MoveNext

Loop

r.Close

Set d = Nothing

Exit Sub

End Sub

Mas não está funcionando: Aparece a msg de erro e não há o teste efetivo da condição.

O que será que está errado?

Link to comment
Share on other sites

3 answers to this question

Recommended Posts

  • 0
Fera dá uma olhada no link, com uma ou outra adaptação deve servir para seu problema!

http://scriptbrasil.com.br/forum/index.php?showtopic=104265

Vou verificar e e te falo.

Olá MrMALJ, verifiquei a dica do link que você me indicou mas eu sou inexperiente e estou começando agora no vba por isso não consegui entender como implementar essa solução.

Se puder me dar mais dicas a respeito dessa implementação para o meu problema, desde já agradeço.

Link to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

 Share

  • Forum Statistics

    • Total Topics
      149.8k
    • Total Posts
      646.6k
×
×
  • Create New...