felixec

yodelmis respondió: Private Sub creaBarra() Dim barra as new collection barra(0) = "Barra 1" barra(1) = "Barra 2" barra(2) = "Barra 3" 'Quiero llamar a una sub que reciba ' este arrglo ShwBarra barra End Sub Public Sub ShwBarra(x as collection) Dim i As Integer For i =...

xabi respondió: ¿Te sirve esto? Private Sub Command1_Click() Dim i As Integer Dim sTipo As String For i = 0 To Me.Count - 1 If TypeOf Me.Controls(i) Is Label Then sTipo = "Label" ElseIf TypeOf Me.Controls(i) Is TextBox Then sTipo = "TextBox" ElseIf TypeOf...

foxuser respondió: Yo te recomendaría que en vez de ADO utilices vistas remotas por medio de una conexión ODBC, y entonces así establecer el RecordSource del Grid al nombre de la vista y desde ahí modificar los datos que quieras... si tienes más dudas avisame