Bom dia a todos, gostaria novamente de ajuda.
Uso o seguinte código em uma caixa de combinação pra me auxiliar quando o cliente não esta cadastrado.
Private Sub Combinação8_NotInList(NewData As String, Response As Integer)
If MsgBox("Cliente não cadastrado: '" & NewData & "'" & vbCrLf _
& "Deseja Cadastrar?", 32 + vbYesNo, " A T E N Ç Ã O .") = 6 Then
DoCmd.OpenForm "Frmclientes", , , , acFormAdd, _
acDialog, NewData
' A execução deste código fica interrompida aqui até o
' fechamento do segundo formulário.
Cidade = UCase(NewData) ' Converte o texto para maiúsculas.
Response = acDataErrAdded
Else
Response = acDataErrContinue
End If
OrcamentoDetalhe.Visible = True
End Sub
Funciona que é uma beleza, mas estou com um pequeno problema, tenho a opção Estilo da borda nenhum em todos os form., mas quando abre o frm.cliente ela aparece, teria como ela ficar como a opção das propriedade nenhum.(não aparecer a borda)
Sou grato a atenção de todos.
Uso o seguinte código em uma caixa de combinação pra me auxiliar quando o cliente não esta cadastrado.
Private Sub Combinação8_NotInList(NewData As String, Response As Integer)
If MsgBox("Cliente não cadastrado: '" & NewData & "'" & vbCrLf _
& "Deseja Cadastrar?", 32 + vbYesNo, " A T E N Ç Ã O .") = 6 Then
DoCmd.OpenForm "Frmclientes", , , , acFormAdd, _
acDialog, NewData
' A execução deste código fica interrompida aqui até o
' fechamento do segundo formulário.
Cidade = UCase(NewData) ' Converte o texto para maiúsculas.
Response = acDataErrAdded
Else
Response = acDataErrContinue
End If
OrcamentoDetalhe.Visible = True
End Sub
Funciona que é uma beleza, mas estou com um pequeno problema, tenho a opção Estilo da borda nenhum em todos os form., mas quando abre o frm.cliente ela aparece, teria como ela ficar como a opção das propriedade nenhum.(não aparecer a borda)
Sou grato a atenção de todos.