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

2 participantes

    [Resolvido]Como pegar um valor de um campo do banco e colocar em uma variavel

    marcos_vitorino
    marcos_vitorino
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 29
    Registrado : 24/03/2022

    [Resolvido]Como pegar um valor de um campo do banco e colocar em uma variavel Empty [Resolvido]Como pegar um valor de um campo do banco e colocar em uma variavel

    Mensagem  marcos_vitorino 13/7/2022, 22:17

    Ola, Estou tentando atribuir um valor de uma tabela em uma variavel, mas nao estou achando um jeito, sei que parece simples mas nao tenho muito conhecimento ..
    Agradeco ai a ajuda  
    Veja o codigo das partes do processo. quando executo da erro quano vou passar o valor para variavel GrupoSelecionado_V ...



    'Declarando variaves
       Dim db As DAO.Database
       Dim rs As DAO.Recordset
       Dim strSql As String
       
       On Error GoTo ErrorDivisao
           
           'instanciando as variaves do objeto DAO
           Set db = CurrentDb()
           strSql = "SELECT * FROM tbAnamneseCrianca WHERE ID_Paciente=" & Me.LinhaSelecionada_TT
           Set rs = db.OpenRecordset(strSql)
               
           'Abir o forlumario PacienteAnamneseCrianca_F
           'DoCmd.OpenForm "PacienteAnamneseCrianca_F"
           
           Call AbrirAnamneseGrupo    <<=========  CHAMO A SUB ROTINA AQUI...
    .
      'Editar os dados
           With rs
               .Edit
               Forms!PacienteAnamneseCrianca_F.Controls("ID_AnamneseCrianca_T") = .Fields("ID_AnamneseCrianca")
               Forms!PacienteAnamneseCrianca_F.Controls("ID_Paciente_T") = .Fields("ID_Paciente")
               Forms!PacienteAnamneseCrianca_F.Controls("Apelido_T") = .Fields("Apelido")
               Forms!PacienteAnamneseCrianca_F.Controls("Grupo_T") = .Fields("Grupo")  
               Forms!PacienteAnamneseCrianca_F.Controls("Naturalidade_T") = .Fields("Naturalidade")          
    .
    .
    .
          EndWith
    .
    .
    .

    Private Sub AbrirAnamneseGrupo()

       'inicializar variaval...
       Dim GrupoSelecionado_V As Integer
       
       'atribuindo varlor as variavais
       GrupoSelecionado_V = Grupo       <<============== ESTE CAMPO ESTÁ NA TABELA, COMO COLOCO O VALOR DELE NESTE VARIAVEL?
       
           
       'Filtro para ir ao formularios dependendo do Grupo ...
       Select Case GrupoSelecionado_V
           Case Is = 1 ' Crianca...
               DoCmd.OpenForm "PacienteAnamneseCrianca_F"
           Case Is = 2 ' Adolecente
               DoCmd.OpenForm "PacienteAnamneseAdolescente_F"
           Case Is = 3 ' Adulto
               DoCmd.OpenForm "PacienteAnamneseAdulto_F"
           Case Else   ' Idoso
               DoCmd.OpenForm "PacienteAnamneseIdoso_F"
       End Select
    End Sub


    Última edição por marcos_vitorino em 14/7/2022, 04:29, editado 1 vez(es)
    marcos_vitorino
    marcos_vitorino
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 29
    Registrado : 24/03/2022

    [Resolvido]Como pegar um valor de um campo do banco e colocar em uma variavel Empty Re: [Resolvido]Como pegar um valor de um campo do banco e colocar em uma variavel

    Mensagem  marcos_vitorino 14/7/2022, 04:29

    Ola consegui resolver, refiz minha logica e deu certo.. Very Happy
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Como pegar um valor de um campo do banco e colocar em uma variavel Empty Re: [Resolvido]Como pegar um valor de um campo do banco e colocar em uma variavel

    Mensagem  DamascenoJr. 18/7/2022, 01:06

    Tópico movido da repositórios de vbscript.


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

      Data/hora atual: 6/10/2022, 08:20