| Usuario |
NECESITO QUE ME AYUDEN POR FAVOR |
nayraeco
3 Mensaje(s)
|
| Enviado - 20/7/2004 |
| |
ESTOY REALIZANDO UN PROYECTO EN VISUAL BASIC 6.0 Y TEN GO L ASIGUIENTE SINTAXIS EN UN FORMULARIO CON EL NOMBRE DE VALES:
Private Sub localiza_vales()
Dim Nvales As Recordset
NOM = "select * from Vales"
NOM = NOM + " Where Numero='" + CmbVales.Text + "'"
***Set Nvales = B_Datos.OpenRecordset(NOM)
Set Nvales = B_Datos.OpenRecordset("select * from Vales Where Numero='" + CmbVales.Text + "'")
If Nvales.RecordCount > 0 Then
Txt1_Numero = Nvales!Numero
Txt2_Fecha = Nvales!Fecha
Txt3_Lugar = Nvales!Lugar
Txt4_Precio_Unitario = Nvales!Precio_uni
Txt5_Concepto = Nvales!Concepto
Txt6_Valea = Nvales!Vale_a
Txt7_Cantidad = Nvales!Cantidad
Txt8_Total = Nvales!Total
Txt9_Empresa = Nvales!Empresa
Nvales.Close
Else
R = MsgBox("Este Vale, NO EXISTE desea examinar la tabla de Vales", vbQuestion + vbOKCancel, " Mensaje del sistema")
If R = vbOK Then
llena_Grid
End If
End If
End Sub
****************
el error me lo marca en donde se encuentran los 3 asteriscos..
realmente no se porque...
esta es la sintaxis que utilizo para declararla en un modulo:
Global T_Vales As Recordset
Global Nvales As Recordset
El error que me marca es el siguinte:
Error 91 en tiempo de ejecucion
Variable de Tipo Object o la variable de bloque with no esta establecida
Por favor necesito su ayuda lo mas pronto posible... gracias de antemano
Nay
|
| |
|
Desconocido
|
| Enviado - 20/7/2004 |
| |
| y de donde sacas B_Datos, si está declarada? |
| |
|
apavez
5 Mensaje(s)
|
| Enviado - 20/7/2004 |
| |
Para ayudarte, debes indicar si utilizas ADOrecordset o DAOrecorset, te aconsejo que los querys los formes integramente en una variable string, para luego pasarlos en el open.
saludos,
apavez |
| |
|
nayraeco
3 Mensaje(s)
|
| Enviado - 21/7/2004 |
| |
Gracias por contestarme.. el Ddatos esta declarada en el modulo...de esta forma:
Global B_Datos As Database
Global T_Vales As Recordset
Global Nvales As Recordset
Con respecto a si utilizo adoc o dao
Estoy utilizando el Adoc Recorset.
Espero su respuesta.
Muchas gracias.
|
| |
|
Desconocido
|
| Enviado - 23/7/2004 |
| |
Proba con :
"as NEW Recordset" |
| |
|
