Autor Tema: Agregar Registro en Tabla Relacionada desde Formulario [ACCESS]  (Leído 4661 veces)

0 Usuarios y 1 Visitante están viendo este tema.

Desconectado Jonathan_d

  • Sv Full Member
  • *
  • Mensajes: 698
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.

Desconectado JGuillen™

  • -^- Elite Silver -^-
  • The Communiter-
  • *
  • Mensajes: 3449
  • PHP,C#,MySQL,SQL
Re: Agregar Registro en Tabla Relacionada desde Formulario [ACCESS]
« Respuesta #1 : octubre 25, 2007, 02:04:21 pm »
antes que nada seria bueno que nos dijeras en lenguaje estas programando?  :big_boss:

Desconectado moyo18

  • The Communiter-
  • *
  • Mensajes: 1719
Re: Agregar Registro en Tabla Relacionada desde Formulario [ACCESS]
« Respuesta #2 : octubre 25, 2007, 02:09:57 pm »
q no dice q en access la esta haciendo ??

Desconectado Jonathan_d

  • Sv Full Member
  • *
  • Mensajes: 698
Re: Agregar Registro en Tabla Relacionada desde Formulario [ACCESS]
« Respuesta #3 : octubre 25, 2007, 02:11:16 pm »
Si en "Mocosoft" Access.

Desconectado Jonathan_d

  • Sv Full Member
  • *
  • Mensajes: 698
Re: Agregar Registro en Tabla Relacionada desde Formulario [ACCESS]
« Respuesta #4 : octubre 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

Código: [Seleccionar]
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.