Textbox como parametro de una funcion en un modulo
Publicado por Javier (1 intervención) el 11/08/2009 04:25:34
Buenas, he batallado tratando de poner como parametro un textbox con matriz, por si no me entienden aqui va:
* Tengo un module1.bas, ahi tengo una funcion hecha de la siguiente manera:
Sub editar(dg As DataGrid, editForm As Form, rs As Recordset, cuadroTexto(i) As TextBox)
If dg.Row = -1 Then Exit Sub
With editForm
For i = 0 To rs.RecordCount
.cuadroTexto(i) = rs(i)
Next i
.accion = editar_registro
.Show vbModal
dg.Refresh
End With
End Sub
* Luego llamo la funcion en un boton del formulario:
Private Sub cmdOpciones_Click(Index As Integer)
Select Case Index
'Case 0: Call agregar(frmEditAgent, rs)
Case 1: Call editar(dgAgentes, frmEditAgent, rs, frmEditAgent.Text1(i))
'Case 2: Call eliminar
'Case 3: Unload Me
End Select
End Sub
* la funcion la llamo en el case 1.
Pero me da error, no se si esta bien declarar así el textbox o si tengo que hacer un contador a donde lo hago ?
Saludos !
* Tengo un module1.bas, ahi tengo una funcion hecha de la siguiente manera:
Sub editar(dg As DataGrid, editForm As Form, rs As Recordset, cuadroTexto(i) As TextBox)
If dg.Row = -1 Then Exit Sub
With editForm
For i = 0 To rs.RecordCount
.cuadroTexto(i) = rs(i)
Next i
.accion = editar_registro
.Show vbModal
dg.Refresh
End With
End Sub
* Luego llamo la funcion en un boton del formulario:
Private Sub cmdOpciones_Click(Index As Integer)
Select Case Index
'Case 0: Call agregar(frmEditAgent, rs)
Case 1: Call editar(dgAgentes, frmEditAgent, rs, frmEditAgent.Text1(i))
'Case 2: Call eliminar
'Case 3: Unload Me
End Select
End Sub
* la funcion la llamo en el case 1.
Pero me da error, no se si esta bien declarar así el textbox o si tengo que hacer un contador a donde lo hago ?
Saludos !
Valora esta pregunta


0