SoloCodigo
Bases de Datos => MS Access => Mensaje iniciado por: Gazu2005 en Viernes 4 de Febrero de 2005, 19:47
-
Hola, yo nuevamente, quiero intertar unos datos por medio de un formulario, el problema es que al momento de buscar un valor me dice que no puede entontrar la tabla, y la tabla la tengo creada, este es el código que estoy utilizando, estoy trabajando en Access 2000. Me dice que la Tabla "Tabla" no existe, le he cambiado el nombre y nada, ayudenme porfavor, se los agradeceré un montón, gracias.
Dim Equipo As String
Dim Origen As String
Dim Origen1 As Integer
Dim dbs As Database
Set dbs = OpenDatabase("d:\Documents and Settings\rhinojo\Escritorio\Pablo\Control Equipo.mdb")
Dim Equipo_id As String
Dim Origen_id As String
Dim rs1 As Recordset
Equipo_id = "SELECT Eq_id,Orig_id FROM Equipo,Tabla WHERE Eq_id ='" & Form_Test.Cuadro_combinado8.Value & "' AND Orig_id=" & Form_Test.Cuadro_combinado10.Value & ""
Set rs1 = dbs.OpenRecordset(Equipo_id, dbOpenDynaset)
Equipo = rs1("Eq_id")
Origen = rs1("Orig_id")
Origen1 = Val(Origen)
With rs3
.AddNew
!Adj_id = Form_Test.Texto0.Value
!Eq_id = Equipo
!Orig_id = Origen1
!Cant_CentralAcceso = 1 'Form_Test.Texto2.Value
!Cant_Cliente = 1 'Form_Test.Texto4.Value
!Cant_Repuesto = 0 'Form_Test.Texto6.Value
.Update
.Bookmark = .LastModified
End With
rs3.Close
Set rs3 = Nothing
dbs.Close
Set dbs = Nothing
-
Buenas asi a priemra vista tienes bastantes errores en el codigo que has colgado en esta pagina.
Primero mira si teiens una referencia a la biblioteca DAO 3.6, y define DAO.Database, y DAO.RecordSet.
Despues si quieres saber el valor de un cuadro combinado no uses la propiedad Value sino que debes usar la propiedad Column(n) donde n es el numero de la columna del cuadro combinado que contenga el valor a buscar.
Tambien debes declarar todas las variables, ejemplo rs3 no esta ni declarado ni instanciado, y tambien debes cerrar y eliminar de la memoria todas las variables set declaradas.
En fin revisa tu codigo, y seguimos
Un saludo desde Barna
Sk@keo