Enviar valor una variable a otro procedimiento
Publicado por greg (10 intervenciones) el 05/03/2011 00:12:04
Hola!!
espero hacerme entender. en un formulario donde obtengo datos, un boton con el siguiente procedimiento; este es el codigo...
Private Sub CmdImprimir_Click()
Dim strSQL As String
' ****reviso si tengo valores en los combobox llamados idAsesor y
'**** idCiudad
If Me.IdAsesor.Column(0) <> "" Then
If Me.idCiudad.Column(0) <> "" Then
strCiud = "Asesores.NombreAsesor= " & Me.IdAsesor.Column(0) & " AND Ciudades.NombreCiudad= " & Me.idCiudad.Column(0)
End If
DoCmd.OpenReport "AsesoresCiudad", View:=acViewPreview
End If
End Sub
en el procedimiento que abre el reporte osea el OPENREPORT
tengo
la cadena de un select donde la adiciono con strCiud y luego
abro el reporte con la cadena que forme
me.Recordset=strSQL
pero no me trae los valores del procemiento CmdImprimir osea el strCiud que es el que necesito para conformar mi cadena y abrir el recordset
Espero que me entiendan y halla personas expertas en VBA yo estoy aprendiendo.
Gracias
espero hacerme entender. en un formulario donde obtengo datos, un boton con el siguiente procedimiento; este es el codigo...
Private Sub CmdImprimir_Click()
Dim strSQL As String
' ****reviso si tengo valores en los combobox llamados idAsesor y
'**** idCiudad
If Me.IdAsesor.Column(0) <> "" Then
If Me.idCiudad.Column(0) <> "" Then
strCiud = "Asesores.NombreAsesor= " & Me.IdAsesor.Column(0) & " AND Ciudades.NombreCiudad= " & Me.idCiudad.Column(0)
End If
DoCmd.OpenReport "AsesoresCiudad", View:=acViewPreview
End If
End Sub
en el procedimiento que abre el reporte osea el OPENREPORT
tengo
la cadena de un select donde la adiciono con strCiud y luego
abro el reporte con la cadena que forme
me.Recordset=strSQL
pero no me trae los valores del procemiento CmdImprimir osea el strCiud que es el que necesito para conformar mi cadena y abrir el recordset
Espero que me entiendan y halla personas expertas en VBA yo estoy aprendiendo.
Gracias
Valora esta pregunta


0