AL NO ESTAR EN LA LISTA DE UN CUADRO COMBINADO (AGREGA EL DATO QUE UNO ESCRIBE EN LA TABLA AJENA)

Procedimiento para agregar un vendedor que no existe en la base de datos.

 

Response = 0

    Dim X As Integer, newcode As Long

    

    X = MsgBox("El VENDEDOR QUE ESCRIBIO no existe en el programa, desea agregarlo?", vbYesNo)

    If X <> 6 Then Exit Sub

    

    Dim DB As DAO.Database

    Dim RS As DAO.Recordset

    Set DB = CurrentDb   'selecciona la base de datos como la actual

    Set RS = DB.OpenRecordset("Empleados", dbOpenDynaset) 'Nombre de la Tabla a la cual le agregamos el dato

    

    RS.AddNew              'se dirije a un nuevo registro

    RS(1) = NewData        ' e inserta en el registro el valor de lo que escribimos en el campo..

    [CdoVendedor] = RS(0)      'Nombre del campo de la ficha Otras

    RS(3) = Val(3)        'Agregue el valor de la tabla categoria num 3 que corresponde al vendedor

                           'en el campo de la tabla de empleados

    RS.Update            'actualiza

    RS.Close             'cierra el recorset o tabla

    DB.Close             'cierra la base de datos