Sv Community El Salvador
Soporte y Tecnología => Programación => Base de Datos => Mensaje iniciado por: Jonathan_d en octubre 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.
-
antes que nada seria bueno que nos dijeras en lenguaje estas programando? :big_boss:
-
q no dice q en access la esta haciendo ??
-
Si en "Mocosoft" Access.
-
Hola, consultandole al maestro google, este me dice que utilice la función Not in list.
Está así en el procedimiento
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.