| Usuario |
Ayuda con código |
Desconocido
|
| Enviado - 7/10/2004 |
| |
Hola, alguien podría ayudarme a corregir este código de VB para una BD en Access, es para un botón en un formulario que crea un filtro de selección de registros. Anexo el código. De antemano muchas gracias.
________________________________
Private Sub Aceptar_Click()
Dim NombreConsulta As String
Dim vMontoMáximo As String
Dim vAportación As String
Dim vFormadePago As String
Dim vAreaInvestigación As String
Dim vSiglas As String
Dim vAño As String
Dim vStatus As String
NombreConsulta = "Consulta1"
vMontoMáximo = MontoMáximo
vAportación = Aportación
vFormadePago = FormadePago
vAreaInvestigación = AreaInvestigación
vSiglas = Siglas
vAño = Año
vStatus = Status
Set dbs = CurrentDb
DoCmd.DeleteObject acQuery, NombreConsulta
cadSQL = "SELECT Programa.MontoMáximo, Financiamiento.Aportación, Financiamiento.FormadePago, AreaInvestigación.AreaInvestigación, Patrocinador.Siglas, Convocatoria.Año, Convocatoria.Status FROM Programa, Financiamiento, Convocatoria INNER JOIN (Financiamiento, Convocatoria INNER JOIN Programa ON Programa.IDPrograma = Financiamiento.IDPrograma) ON Programa.IdPrograma = Financiamiento.IdPrograma "
WHERE
(((Programa.MontoMáximo)" & "=" & "'" & vMontoMáximo & "'" & ") AND ((Financiamiento.Aportación)" & "=" & "'" & vAportación & "'" & ") AND ((Financiamiento.FormadePago)" & "=" & "'" & vFormadePago & "'" & ")AND((AreaInvestigación.AreaInvestigación)" & "=" & "'" & vAreaInvestigación & "'" & ") AND ((Patrocinador.Siglas)" & "=" & "'" & vSiglas & "'" & ") AND ((Convocatoria.Año)" & "=" & "'" & vAño & "'" & ")) AND ((Convocatoria.Status)" & "=" & "'" & vStatus & "'" & "));"
Set qdf = dbs.CreateQueryDef(NombreConsulta, cadSQL)
Tabla Campos
Programa Monto Máximo
Financiamiento Aportación, Forma de Pago
Área Investigación Área Investigación
Patrocinador Siglas
Convocatoria Año, Status
|
| |
|
|
|
