(Call) trae solo 1 registro
Publicado por Antonio (81 intervenciones) el 20/07/2020 16:39:24
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
'CARGA EN LOS 12 BOTONES DE GRADE LAS OPCIONES DISPONIBLES PARA CADA FMAPublic Function MENU(S As String)
Dim rs As DAO.RecordsetSet rs = CurrentDb.OpenRecordset("SELECT N°FMA FROM DIA GROUP BY N°FMA HAVING N°FMA =" & S & ";")
For I = 1 To rs.RecordCount
Forms!CORRELATIVO.Controls("G" & I & "").Caption = rs.Fields("N°FMA")
rs.MoveNextNext I
For I = rs.RecordCount + 1 To 12
Forms!CORRELATIVO.Controls("G" & I & "").Caption = ""
Next I
rs.CloseEnd Function
Estimados junto con saludar, me dirijo con la siguiente consulta. El codigo mencionado me trae en un recordset de la tabla llamada DIA los N°FMA de una determinada fecha. El FOR recorre los registros asociados a esa fecha y los muestra en los botones del formulario (son 12 botones). Pero cuando llamo la fincion con "CALL" me trae solo el primer registro, y lo que necesito es que me traiga todos los registros asociados a "x" fecha.
Acá llamo la funcion con un botón :
1
2
3
4
5
6
7
8
9
10
Private Sub Comando89_Click()
Call MENU(Me.G1.Caption)
MsgBox "LISTO"End Sub
- call.rar(21,6 KB)
Valora esta pregunta
0