Ver Mensaje Individual
  #1 (permalink)  
Antiguo 05/12/2014, 18:09
oso_reyes
 
Fecha de Ingreso: octubre-2013
Ubicación: Loreto, Zacatecas
Mensajes: 24
Antigüedad: 11 años, 4 meses
Puntos: 0
Pregunta Asignar valor de consulta a una variable

Hola amigos, necesito su ayuda, quiero agregar un valor de una consulta a una variable, soy nuevo en vba y necesito su ayuda, lo he intentado realizar de la soguiente manera:

Dim tipoperiodo As String
Dim perio As String
Dim eje As String

tipoperiodo = Me.tipo_periodo.Value
perio = periodo.Value
eje = ejercicio.Value

Dim rst As Recordset
Dim afecta As Variant
Dim D As Integer
Dim afe As Boolean

afecta = "SELECT dbo_nom10002.afectado FROM dbo_nom10002 WHERE (((dbo_nom10002.idtipoperiodo)=" & tipoperiodo & ") AND ((dbo_nom10002.numeroperiodo)=" & perio & ") AND ((dbo_nom10002.ejercicio)=" & eje & "))"
Set rst = CurrentDb.OpenRecordset(afecta, dbOpenSnapshot)

afe = rst.RecordCount


If afe = True Then
MsgBox "Soy Verdadero"

Else
MsgBox "Soy Falso"