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

4 participantes

    [Resolvido]Inserir dados no listbox com condição

    avatar
    Vanderlei
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Inserir dados no listbox com condição Empty [Resolvido]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 75%

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

    [Resolvido]Inserir dados no listbox com condição Empty Re: [Resolvido]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 : 453
    Registrado : 25/02/2016

    [Resolvido]Inserir dados no listbox com condição Empty Re: [Resolvido]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 75%

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

    [Resolvido]Inserir dados no listbox com condição Empty Re: [Resolvido]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
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Vanderlei 28/4/2020, 19:28

    Desculpa ai pela grafia incorreta.
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3329
    Registrado : 22/11/2016

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

    Mensagem  DamascenoJr. 2/11/2021, 13:10

    Vanderlei, conseguiu resolver?

    Aguardamos...


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
    avatar
    Vanderlei
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Vanderlei 2/11/2021, 15:06

    resolvido

      Data/hora atual: 30/11/2021, 00:37