MaximoAccess

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

Obrigado

Administração do MaximoAccess

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 100%

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

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

    Mensagem  Vanderlei em 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
    VIP
    VIP

    Respeito às Regras 50%

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

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

    Mensagem  crysostomo em 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 100%

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

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

    Mensagem  FranklinJSP em 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
    VIP
    VIP

    Respeito às Regras 50%

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

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

    Mensagem  crysostomo em 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 100%

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

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

    Mensagem  Vanderlei em 28/4/2020, 19:28

    Desculpa ai pela grafia incorreta.

      Data/hora atual: 16/7/2020, 14:03