Juan Rueda

Anónimo respondió: Que tal puedes probar lo siguiente: dim i as integer dim NumeroCadena as string dim cadena as string cadena = "Juan19Cardenas" for i =1 to len (minumero) if isnumeric (mid (cadena,i,1)) then NumeroCadena = (mid (cadena,i,1)) debug.print NumeroCadena...

Anónimo respondió: Declaramos las variables Dim db as Database dim rs as Recordset ' activamos la BD Set db=Currentdb ' Creamos el Recordset: Set rs=db.OpenRecordset("Select * from Tabla_mes") ' Recorremos el recordset: Do while not rs. Eof (es decir: mientras no sea...

Neckkito Nck respondió: Supongamos que la tabla se llama "TDatos", y que el campo a modificar se llama [Población] Ojo, si utilizas 2003 deberás comprobar si tienes la referencia "Microsoft DAO 3.6 Object Library" (en el editor de VB, menú Herramientas -> Referencias...) El...

Neckkito Nck respondió: Es normal que, así como lo tienes configurado, no te guarde el valor. Te explico cómo hacerlo, partiendo de unos supuestos: - En la tabla tienes un campo que puede recoger los valores decimales (tipo número->Doble). Para la explicación yo llamaré a...

Anónimo respondió: Supongamos que el cuadro combinado se llama selNombre y la tabla se llama Proyectos, en el origen del control del cuadro de texto dónde quieres que te visualice el código pones:...

jopil001 respondió: Utiliza: =mes()