Marcos José Lopez de Dios

Sveinbjorn El Rojo respondió: Así funciona perfectamente: Private Sub Nomb_AfterUpdate() Dim a As String If Not Me.NewRecord Then Exit Sub a = Me.Nomb.Value Me.Expediente = a & Format(Nz(DMax("Right(Expediente, 4)", "Expedientes", "Left(Expediente,4)='" & a & "'"), 0) + 1,...

Eduardo Pérez Fernández respondió: No creo que sea una referencia, revise este contenido en cualquiera de las líneas del código XML getImage="mifuncion" En donde "mifuncion" es el nombre una función o procedimiento que contiene las imágenes, no obstante, de acuerdo con la imagen...

Eduardo Pérez Fernández respondió: Y ahora con imágenes aunque a muchos no les gusta. Asumo que tiene una tabla con los códigos de países. Y tengo una tabla de consecutivos Y tengo el formulario Como Colombia ya tiene 2 consecutivos me asigna el 0003. Ahora tomo otro país. Como Costa...

Julián González Cabarcos respondió: Voy a darle unas dimensiones desmesuradas. Si tengo el formulario Cuando paso el cursor por encima de Anexar En este caso, el código del evento Al mover el mouse del botón(comando98) es Private Sub Comando98_MouseMove(Button As Integer, Shift As...

Eduardo Pérez Fernández respondió: No se si entendí su pregunta: Hago clic en la casilla de verificación y obtengo: Si desactivo la casilla obtengo como muestra la primera imágen. Código de la casilla de verificación Private Sub cambiar_AfterUpdate() Dim strNro As String strNro =...

Julián González Cabarcos respondió: Es de suponer que la columna dependiente de el cuadro de lista es la que corresponde al Codigo. Si es así basta con añadirle la línea forms!frmtrabajadores![nºtrabajador]=Listaespecialidad