[Resolvido] Como criar uma rotina em programação VBA

Boa Tarde,

Como criar uma rotina em programação VBA, a qual detecta que o item ainda não foi cadastrado e aí abre um formulário para, primeiro cadastrar o item e depois seguir

Veja essas aulas que postei em meu canal

Cadastrar em sair do formulário - Parte 1

Cadastrar em sair do formulário - Parte 2

Olá, Gilberlanio

Obrigado pela resposta.

Tente alterar o nome do formulário para que fique sem espaço, tipo:
frmCadFornecedor

Boa Noite, Gilberlanio

Mais uma vez obrigado pela ajuda e paciência.

Fiz isso que você pediu frmCadFornecedor

Também mudei de nome o formulário de Cadastro Fornecedores, mas continua dando o erro:

Coloque essa parte do seu banco aqui que dou uma olhada onde pode está o erro

Boa Tarde, Gilberlanio

Mais um vez, obrigado pela ajuda e paciência.

Agora consegui abrir o formulário.

O erro foi não fazer a cópia do formulário. Exemplo:
FMCadastroClientes
FMCadastroClientes2

Mas não ficou igual ao seu exemplo ensinado na vídeo aula do Youtube.

Eu preciso digitar duas vezes a mesma palavra. Já no seu vídeo eu digito apenas uma vez.

Retire a linha de código abaixo que está no formulário cadastro de cliente2

DoCmd.GoToRecord , , acNewRec

Desculpem a intromissão, eu utilizo ao criar se não existir estes códigos:

https://www.maximoaccess.com/t19963-resolvidoatualizar-caixa-de-combinacao#147430

Mensagem 6

Boa Noite,

Obrigado também pela ajuda, Toyebom.

Olá, Giberlanio

Fiz o que o senhor pediu:
Retire a linha de código abaixo que está no formulário cadastro de cliente2
DoCmd.GoToRecord , , acNewRec

Mas ainda continua a necessidade de digitar duas vezes para cadastrar o novo item.

Diferente do modelo ensinado pelo senhor de digitar apenas uma vez.

Enviei o programa para o seu contato.

Tenta Assim:

Colocas a caixa de combinação limitada á lista
No evento se não estiver na lista da caixa de combinação:

Código:

Private Sub CboNomedaEmpresa_NotInList(NewData As String, Response As Integer)
Response = acDataErrContinue
    If MsgBox("O Cliente  '" & NewData & "'" & vbCrLf _
        & "não está cadastrado. Deseja Cadastrar?", 32 + vbYesNo) = 6 Then
        DoCmd.OpenForm "CadastrodeClientes", , , , acFormAdd, _
          acDialog, NewData
        CboNomedaEmpresa = UCase(NewData)  ' Converte o texto para maiúsculas.
        Response = acDataErrAdded
    Else
        Response = acDataErrContinue
    End If
End Sub

No evento ao sair da caixa de combinação:

Código:

Private Sub CboNomedaEmpresa_Exit(Cancel As Integer)
Texto23.Requery
End Sub

Estuda o código da minha mensagem anterior nas minhas bds funciona

Tens aqui o exemplo de como foi criado o código que utilizo:

https://www.maximoaccess.com/t17563p13-resolvidoduvida-com-caixa-de-combinacao#131538

Obrigado,

Giberlanio pela ajuda e vídeo aula no Youtube.

Também obrigado a todos que tentou me ajudar.

Consegui resolver o problema em parte, mas já estou bem satisfeito.