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
