Sv Community El Salvador

Soporte y Tecnología => Programación => Base de Datos => Topic started by: Jonathan_d on October 25, 2007, 01:49:45 pm

Title: Agregar Registro en Tabla Relacionada desde Formulario [ACCESS]
Post by: Jonathan_d on October 25, 2007, 01:49:45 pm

Mi problema es el siguiente, tengo una base de datos en Access, la cual contiene dos tablas (Compras,Proveedores), contienen los sig. campos:

COMPRAS                  PROVEEDORES
ID                              ID
Fecha                         Cod
Comp                          Nombre
Proveedor
VGrav
VExe
Iva

Realice una consulta de selección para agregar campos calculados(Total,etc.), hice un formulario para la entrada de datos basado en la consulta, hasta allí todo bien, el problema lo tengo cuando ingreso el Cod del proveedor, si es un proveedor que no está en la tabla podría generar una macro que me tire el mensaje "El código que intenta ingresar no existe, desea crearlo en la Tabla Proveedores", y que luego actualice dicha tabla y pueda ingresar el registro completo, alguna sugerencia.

Title: Re: Agregar Registro en Tabla Relacionada desde Formulario [ACCESS]
Post by: JGuillen™ on October 25, 2007, 02:04:21 pm

antes que nada seria bueno que nos dijeras en lenguaje estas programando?  :big_boss:

Title: Re: Agregar Registro en Tabla Relacionada desde Formulario [ACCESS]
Post by: moyo18 on October 25, 2007, 02:09:57 pm

q no dice q en access la esta haciendo ??

Title: Re: Agregar Registro en Tabla Relacionada desde Formulario [ACCESS]
Post by: Jonathan_d on October 25, 2007, 02:11:16 pm

Si en "Mocosoft" Access.

Title: Re: Agregar Registro en Tabla Relacionada desde Formulario [ACCESS]
Post by: Jonathan_d on October 26, 2007, 03:03:18 pm

Hola, consultandole al maestro google, este me dice que utilice la función Not in list.

Está así en el procedimiento

Code: [Select]

Private Sub Compras_proveedor_NotInList(NewData As String, Response As Integer)

    Dim NewProv As String
    Dim i As Integer
    Dim Msg As String

    'Exit this sub if the combo box is cleared
    If NewData = "" Then Exit Sub

    Msg = "'" & NewData & "' no está en la lista." & vbCr & vbCr
    Msg = Msg & "desea agregarlo?"

    i = MsgBox(Msg, vbQuestion + vbYesNo, "Codigo desconocido...")
    If i = vbYes Then
        NewProv = "Insert Into proveedores ([cod]) " & _
                 "values ('" & NewData & "');"
        CurrentDb.Execute NewProv, dbFailOnError
        Response = acDataErrAdded
    Else
        Response = acDataErrContinue
    End If
End Sub
de momento solo me crea el nuevo codigo, pero necesito agregar ademas el nombre del proveedor, alguna sugerencia.