• Jueves 14 de Noviembre de 2024, 04:28

Mostrar Mensajes

Esta sección te permite ver todos los posts escritos por este usuario. Ten en cuenta que sólo puedes ver los posts escritos en zonas a las que tienes acceso en este momento.


Temas - Gazu2005

Páginas: [1]
1
MS Access / Error 3078 En Tiempo De Ejecucuón
« 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

2
MS Access / Insertar Datos A Partir De Un Formulario
« en: Lunes 31 de Enero de 2005, 21:13 »
Hola, tengo un problema y es que quiero hacer una inserción de datos a partir de un formulario, tengo 4 cuadros de texto y 2 cuadros combinados, la idea es que en los cuadros de texto se escriban los datos y de los cuadros combinados solo se seleccionen, el problema es que no se como tomar los valores de los cuadros combinados, ya que en los demás la inserción se hace sin problemas, la colsulta es la siguiente:

dbs.Execute " INSERT Nub Adj-Equipo Origen (Adj_id, Eq_id, Orig_id, Cant CentralAcceso, Cant Cliente Cant Repuesto) VALUES (" & Adj_id.Text & ",'" & Equipo_id.Text & "'," & Origen_id.Text & ","  CantAcceso.Text & "," & CantCliente.Text & "," & CantRepuesto.Text & ");"

Donde Equipo_id (String)y Origen_id.Text (numérico) son los cuadros combinados

Páginas: [1]