MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

3 participantes

    Salvando numero no lugar de nome

    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP

    Respeito às regras : Respeito às Regras 50%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1757
    Registrado : 23/01/2018

    Salvando numero no lugar de nome Empty Salvando numero no lugar de nome

    Mensagem  crysostomo 27/8/2019, 20:37

    boa tarde, tenho uma combox  que tem os nomes de convenio, mas ela salvando números, consertei ela que estava duplicando ,mas continua salvando números.
    o problema esta dentro do código abaixo, mas eu não posso deixar de fazer verificação nos campos;
    Código:
     Private Sub salvarConsulta_Click()
    If IsNull(Me.cboM) Then
        MsgBox "qual é o médico?", vbInformation, "Aviso"
        Me.cboM.SetFocus
        Me.cboM.BackColor = 646464
        DoCmd.CancelEvent
        ''

    ElseIf IsNull(Me.cboP) = True Then
        MsgBox "Qual paciente", vbInformation, "Atenção"
        Me.cboP.SetFocus
        Me.cboP.BackColor = 646464
        ''

    ElseIf IsNull(Me.Data) = True Then
        MsgBox "Qual seria a data marcada?", vbInformation, "Atenção"
        Me.Data.SetFocus
        Me.Data.BackColor = 646464
        ''
    ElseIf IsNull(Me.hora) = True Then
        MsgBox "Qual seria o horário da consulta?", vbInformation, "Atenção"
        Me.hora.SetFocus
        Me.hora.BackColor = 646464
        ''
    ElseIf IsNull(Me.TipoDaConsulta) = True Then
        MsgBox "Tipo da consulta?", vbInformation, "Atenção"
        Me.TipoDaConsulta.SetFocus
        Me.TipoDaConsulta.BackColor = 646464

    ''
    ElseIf IsNull(Me.retorno) = True Then
        MsgBox "O campo retorno está vazio", vbInformation, "Atenção"
        Me.retorno.SetFocus
        Me.retorno.BackColor = 646464
        ''
    ElseIf IsNull(Me.preço) = True Then
        MsgBox "Seria de graça a consulta?", vbInformation, "Atenção"
        Me.preço.SetFocus
        Me.preço.BackColor = 646464

    Else
    Call salvarreg
     MsgBox "Consulta Marcada", vbInformation, "ConsulMED"
     Me.cboM.BackColor = vbWhite
     Me.Data.BackColor = vbWhite
     Me.hora.BackColor = vbWhite
     Me.cboP.BackColor = vbWhite
     Me.TipoDaConsulta = vbWhite
     Me.retorno.BackColor = vbWhite
     Me.preço.BackColor = vbWhite
     DoCmd.GoToRecord , , acNewRec

    'DoCmd.RunCommand acCmdSaveRecord
    End If
    End Sub

    Salvando numero no lugar de nome Duplic11


    .................................................................................
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP

    Respeito às regras : Respeito às Regras 50%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1757
    Registrado : 23/01/2018

    Salvando numero no lugar de nome Empty Re: Salvando numero no lugar de nome

    Mensagem  crysostomo 27/8/2019, 21:42

    identifiquei que o que atrapalha a salvar os nomes na cbo é o codigo
    Me.preço.BackColor = vbWhite, mas não posso deixar ele de cor verde para chamar atenção ao usuário.

    Fico sem entender o porque .


    .................................................................................
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1577
    Registrado : 13/12/2016

    Salvando numero no lugar de nome Empty Re: Salvando numero no lugar de nome

    Mensagem  Alexandre Fim 28/8/2019, 21:23

    Crysostomo,

    O sistema gravou o VALOR DECIMAL da cor branca (16777215)o campo TipoConsulta,

    Poste seu bd pra analisarmos.

    Abraços


    .................................................................................
    - Procure sempre anexar seu projeto para análise do problema/dúvida.
    - Ao copiar/colar um código VBA, procure entender seu funcionamento.
    - Se o problema foi resolvido, não se esqueça de marcar o tópico como RESOLVIDO.
    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP

    Respeito às regras : Respeito às Regras 50%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1757
    Registrado : 23/01/2018

    Salvando numero no lugar de nome Empty Re: Salvando numero no lugar de nome

    Mensagem  crysostomo 29/8/2019, 05:30

    Fala  camarada, boa noite, eu não entendi não , mas fiz uma cambiarra , para o campo ficar em branco antes dele gravar o valor, pois ao gravar o nome do convenio ele já coloca o numero decimal.
    Você pode ver no cbo do convênio que depois de clicar para gravar ele joga o numero rápido.
    quando voce tirar o código
    Código:
    Me.TipoDaConsulta = ""
    ele vai gravar o número!

    Código:
    ...............
    Call salvarreg
       MsgBox "Consulta Marcada", vbInformation, "ConsulMED"
       DoCmd.GoToRecord , , acNewRec
       Me.cboM.BackColor = vbWhite
       Me.Data.BackColor = vbWhite
       Me.Hora.BackColor = vbWhite
       Me.cboP.BackColor = vbWhite
       Me.TipoDaConsulta = vbWhite
       Me.Preço.BackColor = vbWhite
       Me.TipoDaConsulta.BackColor = vbWhite
       Me.TipoDaConsulta = ""
       Me.Refresh
    End If
    Anexos
    Salvando numero no lugar de nome Attachmentgravando a decimal ao inves de nome.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (329 Kb) Baixado 5 vez(es)


    .................................................................................
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    FranklinJSP
    FranklinJSP
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 440
    Registrado : 25/02/2016

    Salvando numero no lugar de nome Empty Re: Salvando numero no lugar de nome

    Mensagem  FranklinJSP 3/9/2019, 14:35

    Bom día!

    Código:
    MsgBox "Consulta Marcada", vbInformation, "ConsulMED"
      DoCmd.GoToRecord , , acNewRec
      Me.cboM.BackColor = vbWhite
      Me.Data.BackColor = vbWhite
      Me.Hora.BackColor = vbWhite
      Me.cboP.BackColor = vbWhite
      Me.TipoDaConsulta = vbWhite  '---> É aqui que o valor 16777215 está sendo gravado.
      Me.Preço.BackColor = vbWhite
      Me.TipoDaConsulta.BackColor = vbWhite
      Me.TipoDaConsulta = ""

    Saludos


    .................................................................................
    Meu Português não é muito bom,
    mas eu gosto de colaborar... em qualquer idioma
    Smile "Access... minha paixão"

      Data/hora atual: 1/8/2021, 10:40