rgsnipper

Yo uso una pequeñas funciones que he creado. sql_and(c1,c2) Devuelve la condición logicia de encadenar c1 y c2, teniendo en cuenta que c1 o c2 pueden ser vacíos. Sql_clausula(cCampo, cValor, cTipo, cOperando) Que me construye una clausula SQL. Luego...

Hay una función que se llama Dlookup a la que pasas tres parámetros: - El campo a devolver - La tabla o consulta donde debe buscar - La condición a cumplir. En tu caso crea un cuadro de texto y en el origen pon:...

Para usar las funciones de abrir y guardar ficheros de Windows tienes que usar la API de windows. Es algo complicado pero tienes Librerías Yo uso la librería creado por Ken Getz que puedes encontrar en : http://www.mvps.org/access/api/api0001.htm Por...

Primero creas dos cuadros de texto Para ingresar las fechas. Llámales ct_desde y ct_hasta. Luego crea un botón sin el asistente. En el evento On click del botón pega el siguiente código. Is isNull(me.ct_desde. Value) then msgbox "falta fecha desde"...

Tienes qués usar la función left ej: left("futaba",3) = "fut" Creas un consulta nueva en modo diseño. Añades la tabla de items y fabricantes. En la primera columna de datos pones: campo: left(item;3) criterios: [fabricantes].fabricante_codigo] (si el...

He corregido lo de cincocientos Y añaido una nueva función con céntimos seria: NumerosEurosALetras(501.21, False,"euro","centimo") NumerosEurosALetras(501, False,"dolar","centavo") NumerosEurosALetras(501, False,"peso","centavo") El único problema es...

A las funciones que YA te pasado, le pegas esta otra: Código =================== Public Function NumerosKilosyGramosALetras(ByVal NumberStr As String) Dim nTemp, nDecimales nTemp = InStr(NumberStr, ",") If nTemp = 0 Then NumerosKilosyGramosALetras =...

Pega en un modulo la función que te adjunto ( la he encontrado en Internet) La función tiene tres parámetros - El numero - Valor lógico si es femenino (en vez de "un" devuelve "una") - La moneda o lo que quiera contar("euro","dolar", "coche", "peso"...

No tengo muy claro que quieres hacer... entiendo que no te importa la seguridad y coherencia de los datos que te proporciona un autonumérico, y que prefieres algo más manual, aunque eso pueda suponer: que algunos campos no tengan valor, problemas con...

El like de Access funcion con * y no con % y las comillas Van mal: Prueba con: (((d2003.nombre) Like "*" & [forms]![buscar]![nombre] & "*"));