none
Consulta seleção em VBA RRS feed

  • Pergunta

  • Ola colegas,  até agora sempre trabalhei com formularios viculados às tabelas, mas estou mudando tudo, e preciso fazer a consulta seleção em VBA (recordset, querydefs, nao sei..) . preciso do ponto inicial ,  tenho uma tabela  (tab_clientes) e quero uma consulta que retorne as informocoes do registro, determinado pelo campo "codcli".  desde agradeço a cooperação!.
    domingo, 24 de maio de 2009 19:04

Respostas

  • Passe o comando SELECT via código VBA para o controle.

    Exemplo:

    Private Sub cboChaveCoord_BeforeUpdate(Cancel As Integer)
    Dim strSQL As String
    
        strSQL = "SELECT * FROM CON_PROCESSOS WHERE CHAVE_COORD='" & Me.cboChaveCoord & "'"
        Me.FORM_CONSULTAR_PROCESSOS_SUB.Form.RecordSource = strSQL
        Me.FORM_CONSULTAR_PROCESSOS_SUB.Requery
        
    End Sub
    
    terça-feira, 26 de maio de 2009 18:16
  • Dim query as String
    dim db as database
    dim rt as Dao.Recordset

    query="Select * From Table where codcli= '" & registo & "'"

    db=currentDB

    Set rt = db.OpenRecordset(query, dbOpenDynaset)


    with rt

    if .EOF then

    msgbox ("nao existe registo")

    else

    Me.Bookmark = rt.Bookmark

    end if


    DeepF1
    segunda-feira, 7 de setembro de 2009 21:31

Todas as Respostas

  • Passe o comando SELECT via código VBA para o controle.

    Exemplo:

    Private Sub cboChaveCoord_BeforeUpdate(Cancel As Integer)
    Dim strSQL As String
    
        strSQL = "SELECT * FROM CON_PROCESSOS WHERE CHAVE_COORD='" & Me.cboChaveCoord & "'"
        Me.FORM_CONSULTAR_PROCESSOS_SUB.Form.RecordSource = strSQL
        Me.FORM_CONSULTAR_PROCESSOS_SUB.Requery
        
    End Sub
    
    terça-feira, 26 de maio de 2009 18:16
  • Dim query as String
    dim db as database
    dim rt as Dao.Recordset

    query="Select * From Table where codcli= '" & registo & "'"

    db=currentDB

    Set rt = db.OpenRecordset(query, dbOpenDynaset)


    with rt

    if .EOF then

    msgbox ("nao existe registo")

    else

    Me.Bookmark = rt.Bookmark

    end if


    DeepF1
    segunda-feira, 7 de setembro de 2009 21:31