Dim rs As Recordset
Set rs = CurrentDb().OpenRecordset("Elementos")
rs.Index = "PrimaryKey"
rs.Seek "=", [Numero Elemento]
If Not rs.NoMatch Then
MsgBox "El elemento ya existe."
SendKeys "{ESC}"
End If
Esto, tal como esta, funciona correctamente si las tablas
son de Access 97, pero ahora no es asi. Ahora las tablas
estan vinculadas a SQL Server. Y cuando llega a la
instruccion:
rs.Index = "PrimaryKey"
me dice que:
Se ha producido el error '3251' en tiempo de ejecucion:
Operacion no valida para este tipo de objeto.
Alguien sabe a que es debido este error?
Como puedo usar los indices ahora?
Gracias de antemano.
--
HTH/EQTA,
T.S.U. Mario Osorio
Punto Fijo, Falcón , Venezuela
Página personal:
http://www.mipagina.cantv.net/hotbudare/
Carlos <csa...@teleline.es> escribió en el mensaje de noticias
f51101c11fe3$35812d60$9be62ecf@tkmsftngxa03...
Que seria lo equivalente a usar ...
rs.index = "PrimaryKey"
rs.seek "=", [Numero Elemento]
???
O debo seguir otra estrategia?
Gracias.
dim rs as recordset
'se asume una búsqueda por el campo 1
set rs = mibase.openrecordset ("SELECT campo1, campo2 FROM tabla WHERE
campo1 = " & parámetro, dbopendynaset)
IF rs.EOF then
'registro no encontrado, hay que agregarlo
rs.addnew
rs(0) = ...
rs(1) = ...
rs.update
else
'registro encontrado, se puede editar o solo que muestre datos
rs.edit
...
end if
rs.close
Salu2
--
Augusto Barragán C.
Ing. Industrial
E-mail: abar...@yahoo.com
Bogotá, Colombia
--
HTH/EQTA,
T.S.U. Mario Osorio
Punto Fijo, Falcón , Venezuela
Página personal:
http://www.mipagina.cantv.net/hotbudare/
Carlos <csa...@teleline.es> escribió en el mensaje de noticias
cffb01c1209f$ad037b60$a5e62ecf@tkmsftngxa07...