Agregar registros a un formulario de consulta sin tabla vinculda
Publicado por JJ (2 intervenciones) el 29/01/2016 00:53:18
Buen día, de antemano agradezco el apoyo:
Desarrollé un aplicación con formularios y base de datos correspondiente, asi mismo menciona que la mayoría de los formularios despliegan contenido de tablas (como origen) y aplico mucho el "applyfilter".
Procedí a separar formularios y tablas de base de datos para funcionamiento multiusuario.
La pregunta si se puede y como podría llenar formulario de consulta sin vincular una tabla, me quedé en este punto:
**** El query lo executa correctamente-
Gracias nuevemante por su valiosa asesoría
JJ Durán
Desarrollé un aplicación con formularios y base de datos correspondiente, asi mismo menciona que la mayoría de los formularios despliegan contenido de tablas (como origen) y aplico mucho el "applyfilter".
Procedí a separar formularios y tablas de base de datos para funcionamiento multiusuario.
La pregunta si se puede y como podría llenar formulario de consulta sin vincular una tabla, me quedé en este punto:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
Private FiltraProyectos()
Dim dbsQAS As Database
Set dbsQAS = DBEngine.Workspaces(0).OpenDatabase(WRutaDB)
Me!WNombreCortoBusca = ""
WCadena1 = "A"
WCadena2 = "R"
WCont = 0Set selec = dbsQAS.OpenRecordset( _
"SELECT * FROM Proyectos " & _
"WHERE Status = '" & WCadena1 & "' " & _
" OR Status = '" & WCadena2 & "' ", _
dbOpenSnapshot)With selec
If Not .EOF Then .MoveFirst Do Until .EOF 'en este momento es cuando requiero iniciar el llenado del formulario, registro por registro de
'acuerdo a la condición "simulando un applyfilter.
.MoveNextLoop
End If
End With
selec.ClosedbsQAS.CloseEnd Sub
**** El query lo executa correctamente-
Gracias nuevemante por su valiosa asesoría
JJ Durán
Valora esta pregunta
0
