[Resolvido]Uso de máscara por meio de função VBA

Boa noite amigos,

Me utilizei do seguinte código:

Private Sub Contrato_NotInList(NewData As String, Response As Integer)
Dim strSql As String
Dim I As Integer
Dim Msg As String

'Sair se a caixa de combinação estiver vazia

If NewData = "" Then Exit Sub

Msg = "'" & NewData & "' não é um item da lista." & vbCr & vbCr
Msg = Msg & "Deseja acrescentar?"

I = MsgBox(Msg, vbQuestion + vbYesNo, "Contrato desconhecido...")
   If I = vbYes Then
     strSql = "Insert Into Contrato ([ContratoP2]) values ('" & NewData & "')"
           CurrentDb.Execute strSql, dbFailOnError
           Response = acDataErrAdded
       Else
           Response = acDataErrContinue
   End If
End Sub


*** Este código me acrescenta um novo registro na lista por uma Combo, se não houver o mesmo cadastrado.
Funciona perfeitamente.
Problema: o problema é que esta entrada teria que ser por meio de uma máscara: 0000\.000\-00/0000;0;.
Na visualização da Combo aparece ok. Mas na tabela não entra como uma máscara. Precisaria definir isto mas não sei como.

Em anexo.

Realmente não vai salvar com a máscara porque ela serve apenas para visualização, porém o valor real na combo é sem ela.
Não tenho o Access instalado aqui, mas se não me engano você poderia pegar esse texto exatamente como é exibido com a propriedade .text da combobox. É este valor que deve ser passado para a função que você utiliza.

Boa tarde,

Não entendi onde uso a propriedade.

Em algum momento você passa o valor da combo para o parâmetro NewData da função, certo?
É nesse lugar que você deve passar o text da combobox.

Perdão amigo, ainda tá escura a idéia.
Eu não domino o vba ainda e estes termo que vc usou ainda não entendi.
Na verdade este código foi pego já pronto fiz minhas adaptações.

Seria assim:

Mas não deu certo.

Private Sub Contrato_NotInList(NewData As String, Response As Integer)
Dim strSql As String
Dim I As Integer
Dim Msg As String

'Sair se a caixa de combinação estiver vazia

If NewData = "" Then Exit Sub

Msg = "'" & NewData.0000\.000\-00/0000;0; & "' não é um item da lista." & vbCr & vbCr
Msg = Msg & "Deseja acrescentar?"

I = MsgBox(Msg, vbQuestion + vbYesNo, "Contrato desconhecido...")
If I = vbYes Then
strSql = "Insert Into Contrato ([ContratoP2]) values ('" & NewData & "')"
CurrentDb.Execute strSql, dbFailOnError
Response = acDataErrAdded
Else
Response = acDataErrContinue
End If
End Sub

Bom dia...
Sei não, mas acho que tem errado
Tente algo assim....
Msg ="O CNPJ " & me.NewData & "não é um item da lista." & vbcrlf & "Deseja acrescentar ?"

Erro de compilação:
Método ou membro de dados não encontrado.

Apontando o erro para: me.Newdata

tira o me. então

Caracter de declaracao de tipo não corresponde ao tipo de dados declarado.


Aponta o erro para....: vbcrlf

melhor, posta parte do teu projeto, que esta dando essa zica para analisarmos ele melhor..

Banco enviado.

Pois é....eu tenho apenas o Ac2007.

Salve o teu projeto no formato Ac2000/2003 para podermos vê-lo.

Grato,

Arquivo convertido.

Boa noite amigo Silvio,

A máscara está em: Formulário "Geral"; Campo "Contrato" para análise.
Desde já obrigado.

um pitacozinho, o teu problema é que o campo Contrato da tabela Geral está em formato numérico e ele tem que estar como texto da mesma forma que a tabela Contrato.

Então em uma Combobox não há possibilidades para tal feito?
É que se eu mudar para texto ele não vai me trazer os registros da tabela base.

Se não fosse possível não tinha sugerido a mudança, baixa o exemplo e faz o teste

Amigo Beto, muito bom. Deu certo.



Dúvida: Só não entendi como apareceu a mensagem:Falso (qual parte do código eu analiso?)
Para ficar perfeito só preciso mudar a msg para: ...não existe... deseja acrescentar?

Código utilizado.

Dim strSql As String
Dim I As Integer
Dim Msg As String

'Sair se a caixa de combinação estiver vazia
If NewData = "" Then Exit Sub

Msg = " O Contrato" & NewData & "' não é um item da lista." & vbCr _
& Msg = Msg & "Deseja acrescentar?"

I = MsgBox(Msg, vbQuestion + vbYesNo, "Contrato desconhecido...")
   If I = vbYes Then
     strSql = "Insert Into Contrato ([ContratoP2]) values ('" & NewData & "')"
           CurrentDb.Execute strSql, dbFailOnError
           Response = acDataErrAdded
       Else
           Response = acDataErrContinue
   End If
End Sub

Substitui o código existente por este:

Private Sub Contrato_NotInList(NewData As String, Response As Integer)

Dim strSql As String

If MsgBox("Este contrato não existe no cadastro... " & Chr(13) & "deseja acrescentar? " _
, vbYesNo, "Cadastro") = vbYes Then
strSql = "Insert Into Contrato ([ContratoP2]) values ('" & NewData & "')"
CurrentDb.Execute strSql, dbFailOnError
Response = acDataErrAdded
Else
Response = acDataErrContinue
End If

End Sub

Beto, Valeu estar acordado até esta hora. 00:54h.
Obrigado mestre por mais esta lição.
Fica mais um aprendizado para o futuro.
Agradeço também ao Silvio que se dispôs a ajudar.
Este Fórum é 10.