Lotus Approach - Error de read o writted

   
Vista:

Error de read o writted

Publicado por fenix (97 intervenciones) el 28/05/2009 22:13:04
Saludos a tod@s.

Se me estan dando dos errores al correr un SQL:

1- (nombre de ventana) approach.exe - Error de Aplicacion
La instruccion en "0x003dca69" hace referencia a la memoria en 0x02969000". La memoria no se puede "read"

(dos botones) aceptar, cancelar

2- (nombre de ventana) Approach - [lasttaller.apr:entEqTaller]: approach.exe - Error de Aplicacion
La instruccion en "0x040c2030" hace referencia a la memoria en 0x001bb000". La memoria no se puede "written"

(dos botones) aceptar, cancelar

Estos errores se presentan cuando intento ejecutar la rutina que abajo he colocado. Debo aclarar que de cinco registros que intento ingresar dos fallan. lo cargo en una pc con xp y soy el administrador.

Sub CreaNewGestion
Dim Path As String
Dim File As String
'------------------
CD = Chr(34) '--------- Comillas dobles para formar sentencias SQL
Path = CurrentDocument.Path '------ Via al documento
' Path ="c: egisared"
File = "LLTC01.DBF" '------ Nombre de archivo
mAnnio_Actual = Year(Today())
'----------------------- Inicializar variables
Set CON = New Connection
Set QRY = New Query
Set RST = New ResultSet
CON.ConnectTo("dBASE IV")
Set QRY.Connection = CON
QRY.TableName = Path + File
Set RST.Query = QRY

Table = Path + File

'------------ Ahora formamos la sentencia SQL. Sólo funciona la sentencia SELECT
'------------ no proebes con ninguna otra sentencia SQL, sólo va la SELECT.
QRY.SQL = "SELECT * FROM " & CD & Path & File & CD & " WHERE PERIODO ='" & mAnnio_Actual & "' ORDER BY cod_lla"
Set RST.Query = QRY
RST.Execute
NumRecords = RST.NumRows
ActualReg = RST.CurrentRow
RST.LastRow
ActualReg = RST.CurrentRow

' Messagebox "El último número es:" & RST.GetValue("cod_lla")
NewGestion = RST.GetValue("cod_lla")
NewGestion=Right(Str( Val(NewGestion) + 100001),5)
'Messagebox "El último número es:" & NewGestion
CurrentView.Body.COD_LLA.ReadOnly = False
'CurrentView.Body.COD_LLA.Text=Right(Str( Val(NewGestion) + 100001),5)
CurrentView.Body.COD_LLA.Text = NewGestion
Messagebox "El Número de Gestion es:" & CurrentView.Body.COD_LLA.Text
CurrentView.Body.COD_LLA.ReadOnly = True
CurrentWindow.Refresh
'=================== fin de la secuencia
End Sub
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
información
Otras secciones de LWP con contenido de Lotus Approach
- Cursos de Lotus Approach
información
Cursos y Temas de Lotus Approach
- Manual de Lotus Approach