
05/12/2014, 18:09
|
| | Fecha de Ingreso: octubre-2013 Ubicación: Loreto, Zacatecas
Mensajes: 24
Antigüedad: 11 años, 4 meses Puntos: 0 | |
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" |