Início![[Resolvido]nao esta cadastrado avisar Empty](https://2img.net/i/empty.gif)
msilveir 14/10/2022, 00:56Olá pessoal
preciso quando clicar no botão salvar , me diga código invalido limpe o campo
essa seria minha duvida
preciso quando clicar no botão salvar , me diga código invalido limpe o campo
essa seria minha duvida
2 participantes
[Resolvido]nao esta cadastrado avisar
msilveir- Avançado
- Respeito às regras :
Sexo :
Localização :
Mensagens : 391
Registrado : 13/03/2011
Alexandre Fim- Developer
- Respeito às regras :
Sexo :
Localização :
Mensagens : 3491
Registrado : 13/12/2016
Olá Marcio,
Sua dúvida ficou muito vaga.
Especifique melhor o que desejas.
Se possível, compartilhe uma copia do seu bd para analise e solução do problema.
Att,
Alexandre Fim
Sua dúvida ficou muito vaga.
Especifique melhor o que desejas.
Se possível, compartilhe uma copia do seu bd para analise e solução do problema.
Att,
Alexandre Fim
.................................................................................
Marcar tópico como Resolvido: clique aqui Postar anexos no fórum: clique aqui ![[Resolvido]nao esta cadastrado avisar Setinf11](https://i.servimg.com/u/f50/19/64/99/05/setinf11.png)
Sistemas e Tecnologia Ltda
msilveir- Avançado
- Respeito às regras :
Sexo :
Localização :
Mensagens : 391
Registrado : 13/03/2011
Olá Alexandre Fim
consegui com esse código , desculpe não disse que era uma combox
Response = acDataErrContinue ' Inibe msg padrão do Access.
If MsgBox("Palette não Cadastrado no Sistema: '" & NewData & "'" & vbCrLf _
& "Deseja Cadastrar?", 32 + vbYesNo) = 6 Then
DoCmd.OpenForm "Frm_Produto", , , , acFormAdd, _
acDialog, NewData
Response = acDataErrAdded
Else
Response = acDataErrContinue
End If
desculpa pela demora
consegui com esse código , desculpe não disse que era uma combox
Response = acDataErrContinue ' Inibe msg padrão do Access.
If MsgBox("Palette não Cadastrado no Sistema: '" & NewData & "'" & vbCrLf _
& "Deseja Cadastrar?", 32 + vbYesNo) = 6 Then
DoCmd.OpenForm "Frm_Produto", , , , acFormAdd, _
acDialog, NewData
Response = acDataErrAdded
Else
Response = acDataErrContinue
End If
desculpa pela demora