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


    Inserir dados no listbox com condição

    avatar
    Vanderlei
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 162
    Registrado : 20/01/2011

    Inserir dados no listbox com condição Empty Inserir dados no listbox com condição

    Mensagem  Vanderlei 28/4/2020, 18:46

    Olá

    Preciso inserir no código abaixo uma condição

    - Caso NOMEPACIENTE esteja em banco, não inserir no ListBox89

    Private Sub RG_AfterUpdate()
    If MsgBox("Deseja Inserir na Consulta Geral?", vbQuestion + vbYesNo, "Operador(a) Aviso Importante !!! ") = vbYes Then
     ' DoCmd.GoToRecord , , acNext
      Me.Lista89.Requery
      CurrentDb.Execute "INSERT INTO tblCadPacientegeral(NomePaciente, n_pront, N_Prontmp, rg, cpf, cns, data_nasc ) VALUES ('" & Me!NomePaciente & "','" & Me!N_PRONT & "','" & Me!N_PRONTMP & "','" & Me!RG & "','" & Me!CPF & "','" & Me!CNS & "','" & Me!DATA_NASC & "')"
    MsgBox "Resgistro Acrescentado"

    End If
    End Sub
    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP

    Respeito às regras : Respeito às Regras 50%

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

    Inserir dados no listbox com condição Empty Re: Inserir dados no listbox com condição

    Mensagem  crysostomo 28/4/2020, 18:55

    ?
    o questionario do vba não está funcionando? Se aperta não o sistema não faz nada


    .................................................................................
    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

    Inserir dados no listbox com condição Empty Re: Inserir dados no listbox com condição

    Mensagem  FranklinJSP 28/4/2020, 19:05

    Olá

    Código:
    Private Sub RG_AfterUpdate()
    If MsgBox("Deseja Inserir na Consulta Geral?", vbQuestion + vbYesNo, "Operador(a) Aviso Importante !!! ") = vbYes Then

      If isnull(Me!NomePaciente) then
        MsgBox "Nome requerido"
        Me!NomePaciente.setfocus
        exit Sub
      endif

     ' DoCmd.GoToRecord , , acNext
      Me.Lista89.Requery
      CurrentDb.Execute "INSERT INTO tblCadPacientegeral(NomePaciente, n_pront, N_Prontmp, rg, cpf, cns, data_nasc ) VALUES ('" & Me!NomePaciente & "','" & Me!N_PRONT & "','" & Me!N_PRONTMP & "','" & Me!RG & "','" & Me!CPF & "','" & Me!CNS & "','" & Me!DATA_NASC & "')"
    MsgBox "Resgistro Acrescentado"
    End If
    End Sub

    Saludos


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

    Respeito às regras : Respeito às Regras 50%

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

    Inserir dados no listbox com condição Empty Re: Inserir dados no listbox com condição

    Mensagem  crysostomo 28/4/2020, 19:07

    Frank boa tarde , kkk cara nem lembrei cara pensei que era banco  como escrito e não branco. Viajei

    Basketball  Basketball  Basketball  Basketball
    .


    .................................................................................
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    avatar
    Vanderlei
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 162
    Registrado : 20/01/2011

    Inserir dados no listbox com condição Empty Re: Inserir dados no listbox com condição

    Mensagem  Vanderlei 28/4/2020, 19:28

    Desculpa ai pela grafia incorreta.

    Conteúdo patrocinado

    Inserir dados no listbox com condição Empty Re: Inserir dados no listbox com condição

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 18/5/2021, 05:49