calvuch

Te equivocaste en la sintaxis : Private Sub Txt_01_KeyPress(KeyAscii As Interger) If Not IsNumeric(Chr(KeyAscii)) And KeyAscii <> 8 Then KeyAscii = 0 End If End Sub Private Sub Txt_02_KeyPress(KeyAscii As Interger) Declaraste como "Interger" pero es...

Ya respondí a esto

Prueba esto: Copia esta función en algún modulo de tu libro: Public Function sistema(dato As String) Dim sh As Integer Dim sl As Integer dato = UCase(dato) sh = InStr(1, dato, "SH", vbTextCompare) sl = InStr(1, dato, "SL", vbTextCompare) If sh > 0...

Para agregar, utiliza una consulta de Anexación. Paso 1: Primero crea una consulta de no coincidentes utilizando el asistente de consultas de Access. Abre el Asistente y seleeciona "Busquead de no coincidentes". Luego nada más seguir el asistente. Es...

¿Qué es lo que no te funciona? Corre bien, da este resultado 2 - 4 - 6 -8 - 10 La secuencia la carga desde A1 hasta A5

"El sub indice esta fuera del intervalo" Este error básicamente ocurre en los bucles ( for do... etc) y se da por que estas tratando de accesar a un indice que no existe. En este caso tu recorres los valores de la matriz Datos() Debes saber que el...

Indicame un mail, y te envío los apuntes con los que yo aprendí, son muy buenos y viene con ejemplos

Revisa este link, acá hay algunos ejemplos http://www.recursosvisualbasic.com.ar/htm/listado-api/api-23.htm

Mmm... ¿el criterio de búsqueda que intentas definir esta basado en 2 variables? Es decir si no hay resultados por criterio 1, ¿entonces buscar por criterio 2 o necesitas que se cumplan ambos criterios en forma copulativa?

¿A qué te refieres con que se cancelen?