O.W.E.
Dpto de Sistemas
'Aca van las variables de base de datos y registros'
Dim Db As Database
Dim RS As Recordset
Dim Temp As Long
Dim Vcontrol As Boolean
'Se establece la referencia a la base de datos'
Set Db = CurrentDb()
'Se establece la referencia la conjunto de registros'
Set RS = Db.OpenRecordset("REMITENTES", dbOpenDynaset) Aca me tira el error
'Se establece la variable a 0'
Temp = 0
'Se establece el bucle'
Do Until RS.EOF Or Vcontrol = True
Temp = Temp + 1
If Val(RS![Codigo]) > Temp Then
Vcontrol = True
Else
RS.MoveNext
End If
Loop
If Vcontrol = False Then
Temp = Temp + 1
End If
'Se cierran la referencias'
RS.Close
Db.Close
'Se hace referencia a los campos que se utilizan'
Me.Codigo = Format$(Str(Temp), "0000")
Me.FqsG = Me.F
Me.HqsG = Me.H
Me.TqG = Me.T
Me.UqG = Me.U
Dim RS As ADODB.Recordset 'en el caso de DAO sería DAO.Recordset
Salu2
--
José Mª Fueyo
[MS MVP Access]
Variable de objeto o bloque with no establecido y se muere en donde te dije
anteriormente acordate que es un proyecto se debe conectar a al sql server
2000 desde ya gracias y saludos desde aregntina.
O.W.E.
Dpto de Ssitemas
Me temo que vas a tener que cambiar el acceso de DAO a ADO. Y si no,
tendr�s que volver a MDB y acceder mediante ODBC.
�chale un vistazo a este documento que lo explica muy clarito
http://personales.unican.es/ZORRILLM/PDFs/Docencia/BasesDatos/proyectos%20ADP%20de%20Access%20vs%20tablas%20vinculadas.pdf
Un saludo
Eva
"Omar Walter Estran" <o...@integralexpress.com> escribi� en el mensaje
news:%23SydQuE...@TK2MSFTNGP03.phx.gbl...