MaximoAccess

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

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 : 273
    Registrado : 30/03/2011

    [Resolvido]RowSource em caixa de combinação

    Mensagem  ton0612 em Qui 06 Fev 2014, 17: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 : 273
    Registrado : 30/03/2011

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

    Mensagem  ton0612 em Qui 06 Fev 2014, 18: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 07 Fev 2014, 11:17, editado 3 vez(es)

    ton0612
    Avançado
    Avançado

    Respeito às Regras 100%

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

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

    Mensagem  ton0612 em Sex 07 Fev 2014, 11: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 : 273
    Registrado : 30/03/2011

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

    Mensagem  ton0612 em Sex 07 Fev 2014, 11: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: Qui 23 Nov 2017, 15:07