Boa tarde a todos...
Pessoal, tenho uma combo box chamada cb_TIPO_CERTIFICADO, no evento Após Atualizar dessa combo box tem o seguinte código:
Private Sub cb_TIPO_CERTIFICADO_AfterUpdate()
If Me.cb_TIPO_CERTIFICADO = "INTERNACIONAL" Then
' Máscara de entrada para tipo de certificado INTERNACIONAL
Me.CERTIFICADO.InputMask = """I0-""00000000/385/00"
Me.SUBSTITUIDO_POR.InputMask = """I0-""00000000/385/00"
ElseIf Me.cb_TIPO_CERTIFICADO = "NACIONAL" Then
' Máscara de entrada para tipo de certificado NACIONAL
Me.CERTIFICADO.InputMask = """N0-""00000000/385/00"
Me.SUBSTITUIDO_POR.InputMask = """N0-""00000000/385/00"
End If
End Sub
Esse código altera a máscara de entrada do campo CERTIFICADO de acordo com o que foi selecionado na combo box, até ai tudo bem, o problema é que preciso que seja salvo na tabela da mesma forma que está no campo, ou seja, com a máscara de entrada que foi definida pela escolha do usuário. O formulário principal se chama frmES_PROCESSOS e a tabela se chama tbl_ES_PROCESSOS onde tem diversos campos inclusive o campo CERTIFICADO no qual deveria receber o registro junto com a máscara, porem é armazenado apenas o que foi digitado....
O mesmo acontece com a combo box cb_TIPOTRANSPORTE que altera a máscara de entrada do campo CONTAINER_PLACA, porem não armazena o registro com a máscara...
Código da combo box cb_TIPOTRANSPORTE:
Private Sub cb_TIPOTRANSPORTE_AfterUpdate()
' Verifica se o campo CONTAINER_PLACA já está preenchido
If Not IsNull(Me.CONTAINER_PLACA) Then
' Exibe uma mensagem de confirmação
If MsgBox("Você está alterando o tipo de transporte. Isso irá EXCLUIR O VALOR DO CAMPO CONTAINER_PLACA. Deseja prosseguir?", vbQuestion + vbYesNo, "Confirmação de Exclusão") = vbYes Then
' Se o usuário confirmar, limpa o valor do campo CONTAINER_PLACA
Me.CONTAINER_PLACA = Null
Else
' Se o usuário cancelar, reverte a seleção na caixa de combinação
Me.cb_TIPOTRANSPORTE.Undo
Exit Sub ' Sai do evento para evitar alterar a máscara de entrada
End If
End If
' Define a máscara de entrada de acordo com o tipo de transporte selecionado
If Me.cb_TIPOTRANSPORTE = "CONTAINER" Then
' Definir a máscara de entrada para o tipo CONTAINER
Me.CONTAINER_PLACA.InputMask = ">???? 000000-0"
ElseIf Me.cb_TIPOTRANSPORTE = "RODOVIARIO" Then
' Definir a máscara de entrada para o tipo RODOVIÁRIO
Me.CONTAINER_PLACA.InputMask = ">???-0000"
End If
End Sub
Anexei o banco de dados no post, see alguma alma bondosa puder me ajudar ficaria extremamente grato...
Desde já meu muito obrigado!
Pessoal, tenho uma combo box chamada cb_TIPO_CERTIFICADO, no evento Após Atualizar dessa combo box tem o seguinte código:
Private Sub cb_TIPO_CERTIFICADO_AfterUpdate()
If Me.cb_TIPO_CERTIFICADO = "INTERNACIONAL" Then
' Máscara de entrada para tipo de certificado INTERNACIONAL
Me.CERTIFICADO.InputMask = """I0-""00000000/385/00"
Me.SUBSTITUIDO_POR.InputMask = """I0-""00000000/385/00"
ElseIf Me.cb_TIPO_CERTIFICADO = "NACIONAL" Then
' Máscara de entrada para tipo de certificado NACIONAL
Me.CERTIFICADO.InputMask = """N0-""00000000/385/00"
Me.SUBSTITUIDO_POR.InputMask = """N0-""00000000/385/00"
End If
End Sub
Esse código altera a máscara de entrada do campo CERTIFICADO de acordo com o que foi selecionado na combo box, até ai tudo bem, o problema é que preciso que seja salvo na tabela da mesma forma que está no campo, ou seja, com a máscara de entrada que foi definida pela escolha do usuário. O formulário principal se chama frmES_PROCESSOS e a tabela se chama tbl_ES_PROCESSOS onde tem diversos campos inclusive o campo CERTIFICADO no qual deveria receber o registro junto com a máscara, porem é armazenado apenas o que foi digitado....
O mesmo acontece com a combo box cb_TIPOTRANSPORTE que altera a máscara de entrada do campo CONTAINER_PLACA, porem não armazena o registro com a máscara...
Código da combo box cb_TIPOTRANSPORTE:
Private Sub cb_TIPOTRANSPORTE_AfterUpdate()
' Verifica se o campo CONTAINER_PLACA já está preenchido
If Not IsNull(Me.CONTAINER_PLACA) Then
' Exibe uma mensagem de confirmação
If MsgBox("Você está alterando o tipo de transporte. Isso irá EXCLUIR O VALOR DO CAMPO CONTAINER_PLACA. Deseja prosseguir?", vbQuestion + vbYesNo, "Confirmação de Exclusão") = vbYes Then
' Se o usuário confirmar, limpa o valor do campo CONTAINER_PLACA
Me.CONTAINER_PLACA = Null
Else
' Se o usuário cancelar, reverte a seleção na caixa de combinação
Me.cb_TIPOTRANSPORTE.Undo
Exit Sub ' Sai do evento para evitar alterar a máscara de entrada
End If
End If
' Define a máscara de entrada de acordo com o tipo de transporte selecionado
If Me.cb_TIPOTRANSPORTE = "CONTAINER" Then
' Definir a máscara de entrada para o tipo CONTAINER
Me.CONTAINER_PLACA.InputMask = ">???? 000000-0"
ElseIf Me.cb_TIPOTRANSPORTE = "RODOVIARIO" Then
' Definir a máscara de entrada para o tipo RODOVIÁRIO
Me.CONTAINER_PLACA.InputMask = ">???-0000"
End If
End Sub
Anexei o banco de dados no post, see alguma alma bondosa puder me ajudar ficaria extremamente grato...
Desde já meu muito obrigado!