Subformulario

Que tal expertos, mi pregunta es la siguiente: tengo un subformulario en cual tiene un campo vinculado a un combo cada vez que selecciono un elemento en la lista me aparecen los datos vinculados a dicho formulario, pero cuando ese dato seleccionado no existe me aparecen (como es lógico) los text vacíos ¿como crear un mensaje que indique "Ese dato no existe"
gracias de antemano
Desde Mexico City
Armin Canto

1 respuesta

Respuesta
1
Cuando Generas el Combo genera una instrucción.. solo es cosa de que pongas esta:
Seleccionas el Combobox y le das con el botón derecho en Generar Evento... debe de haber ya un código...
Y pones esto:
Debe de ir en el evento Afterupdate no BeforeUpdate..
If rs.EOF Then Msgbox "No hay datos"
Cualquier duda... aquí estamos...
Muchas gracias de antemano por tu tiempo... mira el código lo puse tal como me lo explicas y ahora no hay ningún efecto (tampoco me lanza error), voy a volver a explicar cuando yo escribo directamente un dato en el cuadro_combinado y no me aparece ningún dato en el subformulario, me debería aparecer "no hay datos"... de verdad muchas gracias por tu tiempo
Que crees error 424 "se requiere un objeto" en Afterupdate
Achis achis... como esta eso... Mira te pongo el Código de un Combobox Completo... es de una aplicación que yo hice...
Private Sub Cuadro_combinado6_AfterUpdate()
' Buscar el registro que coincida con el control.
Dim rs As Object
Set rs = Me.Recordset.Clone
rs.FindFirst "[IDAsignatura] = '" & Me![Cuadro combinado6] & "'"
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
If rs.EOF Then Msgbox "No hay Datos"
End Sub
En teoría, solo cambia los datos en base a lo que tu tengas... solo tienes que agregar un linea... If rs. Eof then ...
Si aun así te manda un error.. me dices... y vemos que pasa..

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Al seleccionar celda extraer sus dígitos automáticamente

Necesito dos favores, la idea es que al seleccionar una celda numérica de 4 dígitos del rango "af1;aj42" esta automáticamente extraiga sus cifras a la columna "a1, b1, c1, d1" como se muestra en la imagen Y lo segundo como puedo quitarle el msgbox a...
2 respuestas

Ingresar información en una hoja y rescatar los datos principales en otra hoja ordenadamente.

Debo hacer cotizaciones y necesito guardar la información de los datos de las personas en una BD, sin ocupar Tablas. Lo principal de esto es que queden ordenada según el número de la cotización y mantener el número correlativo de la cantidad de...
1 respuesta

¿Cómo ajustar con VBA un rango de impresión a partir de un rango dinámico?

Recurro a su amplia experiencia para resolver un inconveniente: He creado una plantilla para hacer una consulta de ordenes de pedido por medio del RFC del cliente, la plantilla esta dividida en tres rangos: Primer rango B1:I22 se ubican los datos...
1 respuesta

How do you perform Change Data Capture when replicating Salesforce data?

A challenge that comes with using these cloud-based CRMs is in integrating them with the internal data systems and reporting modules that rely upon getting up to date data from the CRM.
5 respuestas

Macro eliminar filas con valor

Tengo esta macro que me elimina las filas cuando el valor es #N/D, pero me ha dejado de funcionar cuando el valor es #CALC! Me podéis echar una mano. Muchas gracias. Sub Borrar_Filas() Dim ultifila As Integer 'guardo la última fila utilizada en la...
2 respuestas

¿Cómo ajustar texto automáticamente en celdas combinadas en Excel 2019?

Solicito amablemente su valiosa ayuda para ajustar automáticamente un rango de celdas de una columna, he intentado con la opción de ajuste autamático de filas, también con al opción de ajustar texto de la pestaña inicio e incluso con la siguiente...
1 respuesta

Conversión de números a letras en LPP

Necesito desarrollar un algoritmo con la función MIENTRAS que permita la entrada de un numero de un dígito y escriba su valor en letras, el algoritmo se debe repetir hasta que se ingrese una letra. Ejemplo: si el usuario digita el número 4, el...
3 respuestas

Macro para copiar valor de texbox a hoja2

Necesito un poco de ayuda con una macro estoy aprendiendo mi duda es la siguiente tengo una hoja llamada Principal utilizo un botón de comando para llamar a userform1 el cual tiene varios texbox numerados 1,2,3,4,5,6,7,8,9,10,11 aquí utilizo solo...
1 respuesta

Poner contraseña en visual basic thisworkbook

Tengo una función en ThisWorkbook que elimina el libro al llegar a una fecha de caducidad, ahora requiero colocar una contraseña para protección, la cual, al colocar una contraseña errónea, ejecute el borrado de la hoja
2 respuestas

Macro exportar excel a sentencia SQL

Desde un archivo excel necesito crear un archivo *.txt para incorporar a mi base sql. Te adjunto lo que necesitaría en una imagen. (En este caso son dos filas pero podrían ser más). Se que traspasa lo que es una duda, pero es que los conocimientos en...
2 respuestas