Mostra informacion en un MSHFlexgrid

[spiderman78]

Que tal de nuevo aqui con una consulta, tengo un combo en un formulario donde me muestra los apellidos de mis clientes, lo q estoy tratando de hacer es q al momento de selecionar uno registro me abra un formulario que contiene un mshflexgrid y ahi me muestre la informacion que encontro,

Código:

Private Sub Combo1_click()
    Call VisualizarPacientes
    recbd.Find ("apellidos='" & Combo1.List(Combo1.ListIndex) & "'")
    frmConsulta.Show
    Set mhs.DataSource = recbd------------ error
End Sub

cuando pongo el codigo de esta manera me marca q la variable no esta definida

Código:

Private Sub Form_Load()
    Call VisualizarPacientes
Set mhs.DataSource = recbd---------------------- error
End Sub

y cuando lo divido me manda error 424 objeto requerido

la verdad no se si este realizando bien mi codigo....


Saludos y muchas gracias por las respuestas

[David]

En ese caso el Recordset debe ser una variable pública (Public Variable As Recordset) o en la primera ventana o en la segunda. Y hacer referencia a ella antecediendo el nombre de la ventana. Por ejemplo:

Código vb:

Set Ventana2.Variable = recbd
 

[spiderman78]

Que tal gracias por la respuesta,ya hice la modificaciones pero ahora me muestra otro error

Código:

Public mhs As Recordset

Código:

Private Sub Combo1_click()
    Call VisualizarPacientes
    recbd.Find ("apellidos='" & Combo1.List(Combo1.ListIndex) & "'")
    frmConsulta.Show
    Set frmConsulta.mhs. = recbd - -----------Error
End Sub

error= method or data member not found


Saludos y Gracias por la ayuda

[David]

¿No será por el punto que tienes después de mhs?. Además, la definición Public debes ponerla dentro de frmConsulta (no sé si es ahí donde lo has puesto).

EDITO: Si mhc es el MSHFlexGrid dentro de frmConsulta es mucho más fácil. Solo coloca: Set frmConsulta.msh.DataSource = recdb y olvida todo lo que dije anteriormente.

[spiderman78]

ok mira el public lo puse dentro de un modulo y ya le quite el punto que tenia y me marca ahora el error "invalid use of property", no se si este haciendo bien las cosas, q creo q no por q sigue marcandome error...

Gracias por la ayuda

[David]

Iniciado por David el Grande

EDITO: Si mhc es el MSHFlexGrid dentro de frmConsulta es mucho más fácil. Solo coloca: Set frmConsulta.msh.DataSource = recdb y olvida todo lo que dije anteriormente.

¿Has intentado de esa forma?

[spiderman78]

ya coloque la instruccion dentro de mi formulario frmConsulta

Código:

Set frmConsulta.msh.DataSource = recbd

y me marca error 30023
Unable to access data.Datasourse settingns maybe incorrector the datasourse fuctionalitymay be limited. see help for more information


Saludos y gracias por las respuestas

[David]

¿Dónde tienes declarado recdb?

[spiderman78]

esta declarado en un modulo

[Avellaneda]

Iniciado por spiderman78

esta declarado en un modulo

Si es que estás declarando "msh" como un recordset y después lo quieres mostrar como un Grid

#3:
Public mhs As Recordset
Set frmConsulta.mhs. = recbd - -----------Error

Aunque después en el link #7 pones msh
Set frmConsulta.msh.DataSource = recbd

mhs debe ser el nombre que le pusiste a tu control MSHFlexGrid y no tienes que declararlo como una variable.

Consejo: Haz un copy-paste de tu código para evitar errores (y para mayor claridad, lo envuelves con la etiqueta [CODE]

[spiderman78]

Que tal miren ya anduve investigando un poco mas, y bueno sigo sin poder mostrar mi informacion de un consulta en un mshflexgrid, miren este es mi codigo de la consulta y este es el momento q le hago click a un registro, no me marca ningun error simplemente no me muestra mi informacion en el mshflexgrid, como comentario se q es por q no he agregado mis datos en el mshflexgrid, pero no se q instruccion ocupar para q en base a mi consulta me muestre la informacio

Código:

Private Sub ConsultaAgenda()
    Dim agenda As ADODB.Recordset
    Dim sql As String, cadena As String
    Dim X As Integer
        cadena = Combo1.Text
    Call VisualizarAgenda
        sql = "SELECT * FROM agenda WHERE paciente0 Like '" & cadena & "'"
    Set agenda = New ADODB.Recordset
        agenda.Open sql, BD, adOpenKeyset, adLockOptimistic
    If agenda.BOF = True Or agenda.EOF = True Then
        MsgBox "Paciente sin Citas Agendadas"
    Exit Sub
    End If
       
End Sub

Private Sub Combo1_Click()
    Call VisualizarAgenda
    agenda.Find ("paciente0='" & Combo1.List(Combo1.ListIndex) & "'")
    frmConsulta.Show
    Call ConsultaAgenda
End Sub

Saludos y gracias por la ayuda

[spiderman78]

Ok gracias por la ayuda, la solucion para q se viera mi table era de esta manera

Private Sub mshflex()
Call VisualizarAgenda
With msh
Set .DataSource = agenda
End With
End Sub

Saludos