MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

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

    [Resolvido]RowSource em caixa de combinação

    Compartilhe

    ton0612
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 269
    Registrado : 30/03/2011

    [Resolvido]RowSource em caixa de combinação

    Mensagem  ton0612 em Qui 6 Fev - 13:41

    Boa tarde.
    Estou iniciando um projeto, porém este, não gostaria que as tabelas fossem vinculadas, pois vou usa-lo via internet.
    o projeto conecta o access ao sql server express 2008. Eu fiz diversas pesquisas dentro do site e fora dele, parte deste código consegui no site do avelino. "usando access".

    a conexao funcionou perfeitamente, mas na hora de alimentar a origem da linha, fica em branco e nao gera nenhum erro.
    Código:

    Public Function ConIPStrOpen()

    Dim id As String, pass As String
    Dim Nome As String, Sexo As String
    DoCmd.Hourglass True

    strCaminho = "SERVER\SQLPEXPRESS,1433"
    strCaminhoBD = "BDTESTE"
    id = "userteste"
    pass = "teste12345"
    strConect = "Provider=SQLNCLI10;Server=" & strCaminho & ";Database=" & strCaminhoBD & ";Uid=" & id & ";Pwd=" & pass & ";"
    Consql.Open strConect

    strSelect = "SELECT * FROM [tbl Usuarios];"
    Me.txtUser.RowSource = strSelect
    Me.txtUser.Requery



    Consql.Close
    Set Consql = Nothing
    DoCmd.Hourglass False
    End Function


    alguém teria uma idéia?

    desde já agradeço muito.

    ton0612
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 269
    Registrado : 30/03/2011

    Re: [Resolvido]RowSource em caixa de combinação

    Mensagem  ton0612 em Qui 6 Fev - 14:01

    Peço desculpas.... mas achei meu erro, mas se alguém souber de uma forma em que a rowsourcetype seja = a tabela / Consulta, eu mudo no meu projeto.
    Ainda estudando o código do Avelino.

    faltou eu fazer ests linhas:

    Código:

    strSelect = "SELECT * FROM [tbl Usuarios];"
    rs1.Open strSelect, Consql, adOpenDynamic, adLockPessimistic

    Do While Not rs1.EOF

    Me.txtUser.RowSourceType = "Value List"
    Me.txtUser.AddItem rs1.Fields(0).Value & ";" & rs1.Fields(1).Value
    rs1.MoveNext

    Loop

    rs1.Close
    Set rs1 = Nothing

    Logo o código ficaria assim:

    Código:
    Public Function ConIPStrOpen()

    Dim id As String, pass As String
    DoCmd.Hourglass True

    strCaminho = "SERVER\SQLPEXPRESS,1433"
    strCaminhoBD = "BDTESTE"
    id = "userteste"
    pass = "teste12345"
    strConect = "Provider=SQLNCLI10;Server=" & strCaminho & ";Database=" & strCaminhoBD & ";Uid=" & id & ";Pwd=" & pass & ";"
    Consql.Open strConect

    strSelect = "SELECT * FROM [tbl Usuarios];"
    rs1.Open strSelect, Consql, adOpenDynamic, adLockPessimistic

    Do While Not rs1.EOF

    Me.txtUser.RowSourceType = "Value List"
    Me.txtUser.AddItem rs1.Fields(0).Value & ";" & rs1.Fields(1).Value
    rs1.MoveNext

    Loop

    rs1.Close
    Set rs1 = Nothing

    Consql.Close
    Set Consql = Nothing
    DoCmd.Hourglass False
    End Function


    Última edição por ton0612 em Sex 7 Fev - 7:17, editado 3 vez(es)

    ton0612
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 269
    Registrado : 30/03/2011

    Re: [Resolvido]RowSource em caixa de combinação

    Mensagem  ton0612 em Sex 7 Fev - 7:06

    Bom dia.
    Bom ontem eu pensei que havia dado um ponto final neste assunto. hehehe. mas percebi que cometi um erro.
    Pois quando eu utilizo o AddItem, nao consigo filtrar para evitar que apareçam alguns campos, por exemplo:

    Nome de usuario Ativo
    Adao S
    Eva S
    Joao N
    Maria S

    neste caso acima, gostaria que ele carregasse somente os ativos (S), e o sistema preenche com todos os dados.
    tentei a linha desta forma:
    Me.txtUser.RowSource = "SELECT Cod_Usuario, Nome, CPF, Inativo FROM [tbl Usuarios] WHERE ((([tbl Usuarios].Inativo)=False)) ORDER BY Nome;"

    Desde já obrigado.

    ton0612
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 269
    Registrado : 30/03/2011

    Re: [Resolvido]RowSource em caixa de combinação

    Mensagem  ton0612 em Sex 7 Fev - 7:19

    Bom dia a todos.
    Nossa... peço novamente desculpas a todos, já descobri o erro... e sempre depois que posto aqui.

    eu só tive que mudar a linha de cima, onde define o strSelect.

    strSelect = "SELECT * FROM [tbl Usuarios] WHERE ((([tbl Usuarios].Inativo)=0)) ORDER BY Nome;"

    obrigado a todos.

      Data/hora atual: Seg 5 Dez - 12:35