Dim WS As Workspace
Dim DB As Database
Dim TB As Recordset
Dim Numero As String
Dim Linhas As String
Dim Criterio As String
Dim Linha As String
Dim Codigo As Integer

 

Private Sub CboLocalizarPor_Change()
    '
    Call Limpar_Tela
    Call Desligar_Tela
    '
End Sub

Private Sub CboLocalizarPor_Click()
    '
    Call Limpar_Tela
    Call Desligar_Tela
    If CboLocalizarPor.ListIndex = 0 Then
        TxtInformacao.Text = "Codigo"
        Exit Sub
    End If
    If CboLocalizarPor.ListIndex = 1 Then
        TxtInformacao.Text = "Nome"
        Exit Sub
    End If
    If CboLocalizarPor.ListIndex = 2 Then
        TxtInformacao.Text = "Telefone"
        Exit Sub
    End If
    '
End Sub

Private Sub CboLocalizarPor_KeyPress(KeyAscii As Integer)
    '
    If Trim(TxtProcurarPor.Text) = Empty Then
        x = MsgBox("Deseja  consultar todos os registros ?", 36, "Aviso")
            If x = vbYes Then
                If TB.RecordCount = 0 Then
                    Call Limpar_Tela
                    Call Desligar_Tela
                    MsgBox "Não contem registros com esta especificação.", 64, "Aviso"
                    TxtProcurarPor.SetFocus
                    TxtProcurarPor.SelStart = 0
                    TxtProcurarPor.SelLength = Len(TxtProcurarPor.Text)
                Else
                    TB.MoveMin
                    Tabela.Cols = 4
                    Tabela.Rows = 2
                    Tabela.Row = 1
                    Tabela.Col = 1
                    Tabela.Text = TB("Codigo")
                    Tabela.Row = 1
                    Tabela.Col = 2
                    Tabela.Text = TB("Nome")
                    Tabela.Row = 1
                    Tabela.Col = 3
                    Tabela.Text = TB("Telefone")
                    Numero = 1
                    Linhas = 2
                    TrmProcurarTodos1.Enabled = True
                End If
                If x = vbNo Then
                    Call Limpar_Tela
                    Call Desligar_Tela
                End If
            End If
        Exit Sub
    Else
        Criterio = TxtInformacao.Text & " LIKE '*" & TxtProcurarPor.Text & "*'"
        TB.FindMin Criterio
            If TB.NoMatch Then
                Call Limpar_Tela
                Call Desligar_Tela
                MsgBox "Não contem registros com esta especificação.", 64, "Aviso"
                TxtProcurarPor.SelStart = 0
                TxtProcurarPor.SelLength = Len(TxtProcurarPor.Text)
            Else
                Tabela.Cols = 4
                Tabela.Rows = 2
                Tabela.Row = 1
                Tabela.Col = 1
                Tabela.Text = TB("Codigo")
                Tabela.Row = 1
                Tabela.Col = 2
                Tabela.Text = TB("Nome")
                Tabela.Row = 1
                Tabela.Col = 3
                Tabela.Text = TB("Telefone")
                Numero = 1
                Linhas = 2
                TrmProcurarOutros1.Enabled = True
            End If
        Exit Sub
    End If
    '
End Sub

Private Sub Form_Load()
    '
    Set WS = DBEngine.Workspaces(0)
    Set DB = WS.OpenDatabase(App.Path & "Reg.mdb")
    Set TB = DB.OpenRecordset("TabAgenda", dbOpenDynaset)
   
    CboLocalizarPor.AddItem "Código"
    CboLocalizarPor.AddItem "Nome"
    CboLocalizarPor.AddItem "Telefone"
    CboLocalizarPor.ListIndex = 0
   
    CboOrdem.AddItem "Código"
    CboOrdem.ListIndex = 0
    '
End Sub

Private Sub Limpar_Tela()
    '
    Tabela.Rows = 2
    Tabela.Cols = 4
    Tabela.Row = 1
    Tabela.Col = 1
    Tabela.Text = Clear
    Tabela.Row = 1
    Tabela.Col = 2
    Tabela.Text = Clear
    Tabela.Row = 1
    Tabela.Col = 3
    Tabela.Text = Clear
    Tabela.FormatString = "    | Código | Nome                                                                       | Telefone                     "
    '
End Sub

Private Sub Ligar_Tela()
    '
    Tabela.Visible = True
    '
End Sub

Private Sub Desligar_Tela()
    '
    Tabela.Visible = False
    '
End Sub

 

 

 

Private Sub Tabela_Click()

Text1.Text = TB("codigo")
Text2.Text = TB("nome")

End Sub

 

 

Private Sub TrmProcurarOutros1_Timer()
    '
    Me.MousePointer = 13
    Dim Criterio As String
    Criterio = TxtInformacao.Text & " LIKE '*" & TxtProcurarPor.Text & "*'"
    TB.FindNext Criterio
        If TB.NoMatch Then
            TrmProcurarOutros1.Enabled = False
            TrmProcurarOutros2.Enabled = False
            TrmProcurarOutros3.Enabled = True
            Exit Sub
        Else
            Numero = Numero + 1
            Linhas = Linhas + 1
            Tabela.Rows = Linhas
            Tabela.Row = Numero
            Tabela.Col = 1
            Tabela.Text = TB("Codigo")
            Tabela.Row = Numero
            Tabela.Col = 2
            Tabela.Text = TB("Nome")
            Tabela.Row = Numero
            Tabela.Col = 3
            Tabela.Text = TB("Telefone")
            Tabela.Row = Numero
            TrmProcurarOutros1.Enabled = False
            TrmProcurarOutros2.Enabled = True
        End If
    '
End Sub

Private Sub TrmProcurarOutros2_Timer()
    '
    Me.MousePointer = 13
    Dim Criterio As String
    Criterio = TxtInformacao.Text & " LIKE '*" & TxtProcurarPor.Text & "*'"
    TB.FindNext Criterio
        If TB.NoMatch Then
            TrmProcurarOutros1.Enabled = False
            TrmProcurarOutros2.Enabled = False
            TrmProcurarOutros3.Enabled = True
            Exit Sub
        Else
            Numero = Numero + 1
            Linhas = Linhas + 1
            Tabela.Rows = Linhas
            Tabela.Row = Numero
            Tabela.Col = 1
            Tabela.Text = TB("Codigo")
            Tabela.Row = Numero
            Tabela.Col = 2
            Tabela.Text = TB("Nome")
            Tabela.Row = Numero
            Tabela.Col = 3
            Tabela.Text = TB("Telefone")
            TrmProcurarOutros1.Enabled = True
            TrmProcurarOutros2.Enabled = False
        End If
    '
End Sub

Private Sub TrmProcurarOutros3_Timer()
    '
    Me.MousePointer = 0
    TrmProcurarOutros3.Enabled = False
    Call Ligar_Tela
    '
End Sub

Private Sub TrmProcurarTodos1_Timer()
    '
    Me.MousePointer = 13
    TB.MoveNext
        If TB.EOF Then
            TrmProcurarTodos1.Enabled = False
            TrmProcurarTodos2.Enabled = False
            TrmProcurarTodos3.Enabled = True
            Exit Sub
        Else
            Numero = Numero + 1
            Linhas = Linhas + 1
            Tabela.Rows = Linhas
            Tabela.Row = Numero
            Tabela.Col = 1
            Tabela.Text = TB("Codigo")
            Tabela.Row = Numero
            Tabela.Col = 2
            Tabela.Text = TB("Nome")
            Tabela.Row = Numero
            Tabela.Col = 3
            Tabela.Text = TB("Telefone")
            TrmProcurarTodos1.Enabled = False
            TrmProcurarTodos2.Enabled = True
        End If
    '
End Sub

Private Sub TrmProcurarTodos2_Timer()
    '
    Me.MousePointer = 13
    TB.MoveNext
        If TB.EOF Then
            TrmProcurarTodos1.Enabled = False
            TrmProcurarTodos2.Enabled = False
            TrmProcurarTodos3.Enabled = True
            Exit Sub
        Else
            Numero = Numero + 1
            Linhas = Linhas + 1
            Tabela.Rows = Linhas
            Tabela.Row = Numero
            Tabela.Col = 1
            Tabela.Text = TB("Codigo")
            Tabela.Row = Numero
            Tabela.Col = 2
            Tabela.Text = TB("Nome")
            Tabela.Row = Numero
            Tabela.Col = 3
            Tabela.Text = TB("Telefone")
            TrmProcurarTodos1.Enabled = True
            TrmProcurarTodos2.Enabled = False
        End If
    '
End Sub

Private Sub TrmProcurarTodos3_Timer()
    '
    Me.MousePointer = 0
    TrmProcurarTodos3.Enabled = False
    Call Ligar_Tela
    '
End Sub

Private Sub TxtProcurarPor_GotFocus()
    '
    TxtProcurarPor.SelStart = 0
    TxtProcurarPor.SelLength = Len(TxtProcurarPor.Text)
    Call Limpar_Tela
    Call Desligar_Tela
    '
End Sub

Private Sub TxtProcurarPor_KeyPress(KeyAscii As Integer)
    '
    If KeyAscii = 13 Then
        If Trim(TxtProcurarPor.Text) = Empty Then
            x = MsgBox("Deseja  consultar todos os registros ?", 36, "Aviso")
                If x = vbYes Then
                    If TB.RecordCount = 0 Then
                        Call Limpar_Tela
                        Call Desligar_Tela
                        MsgBox "Não contem registros com esta especificação.", 64, "Aviso"
                        TxtProcurarPor.SetFocus
                        TxtProcurarPor.SelStart = 0
                        TxtProcurarPor.SelLength = Len(TxtProcurarPor.Text)
                    Else
                        TB.MoveMin
                        Tabela.Cols = 4
                        Tabela.Rows = 2
                        Tabela.Row = 1
                        Tabela.Col = 1
                        Tabela.Text = TB("Codigo")
                        Tabela.Row = 1
                        Tabela.Col = 2
                        Tabela.Text = TB("Nome")
                        Tabela.Row = 1
                        Tabela.Col = 3
                        Tabela.Text = TB("Telefone")
                        Numero = 1
                        Linhas = 2
                        TrmProcurarTodos1.Enabled = True
                    End If
                    If x = vbNo Then
                        Call Limpar_Tela
                        Call Desligar_Tela
                    End If
                End If
            Exit Sub
        Else
            Criterio = TxtInformacao.Text & " LIKE '*" & TxtProcurarPor.Text & "*'"
            TB.FindMin Criterio
                If TB.NoMatch Then
                    Call Limpar_Tela
                    Call Desligar_Tela
                    MsgBox "Não contem registros com esta especificação.", 64, "Aviso"
                    TxtProcurarPor.SelStart = 0
                    TxtProcurarPor.SelLength = Len(TxtProcurarPor.Text)
                Else
                    Tabela.Cols = 4
                    Tabela.Rows = 2
                    Tabela.Row = 1
                    Tabela.Col = 1
                    Tabela.Text = TB("Codigo")
                    Tabela.Row = 1
                    Tabela.Col = 2
                    Tabela.Text = TB("Nome")
                    Tabela.Row = 1
                    Tabela.Col = 3
                    Tabela.Text = TB("Telefone")
                    Numero = 1
                    Linhas = 2
                    TrmProcurarOutros1.Enabled = True
                End If
            Exit Sub
        End If
    End If
    '
End Sub

 

 

 

 

 

 

acima o codigo completo ok

Bom se você já passou para o grid o seu banco de dados agora é só fazer a rotina ao clicar no grid.

 

Private sub grid1xxxx_Click()

'Sempre jogará para a coluna de nome, se nome for a coluna numero 1

grid1.col=1

text1.text=grid1.text

 

'dai voce faz outras referencias com o text1

 

 

end sub

Você quer clicar na linha do flexgrid e quer que os dados contidos nesta vá para um textbox, é isso?

 

Verifique se o código abaixo supre sua necessidade:

 

'Sintaxe

seuTextBox.Text = MsFlexgrid1.TextMatrix(Linha, Coluna)

 

'Exemplo (.RowSel é a linha que esta selecionada, 1 é o numero referente à coluna desejada)

 

seuTextBox = MsFlexgrid1.TextMatrix(MsFlexgrid1.RowSel, 1)

 

--

Rodrigo R. Yamamoto

 

Pessoal perfeito, as informações estão corretas testei as duas,
agradeço desde já.

Agora eu usei um Botao de Comando para chamar outro form e lançar os
dados, no caso para selecionar e usar a Tecla Enter qual processo
poderia usar?

Roberto