|
Esta sección te permite ver todos los posts escritos por este usuario. Ten en cuenta que sólo puedes ver los posts escritos en zonas a las que tienes acceso en este momento.
Mensajes - lavi
1
« en: Miércoles 19 de Noviembre de 2008, 14:24 »
Hola, estoy terminando una tarea, y el Turbo C me tira este error al compilar... "247: Too much data defined in file"... error del compilador¿? o de codigo? Saben como solucionarlo? Gracias..
2
« en: Martes 18 de Noviembre de 2008, 03:54 »
ok, si ese era un error, ya lo solcioné, ahora me surge otro; mayor, me da error en la línea 392, lo que no tiene sentido, porque està vacìa..Error: Group overflowed maximum size: DGROUP. ¿? muestro código; pero es una chorrera de lineas y la verdad no se ni por donde puede surgir un overflowed en C.. gracias.. #include <stdio.h> #include <conio.h> #include <stdarg.h> #include <string.h> #include <malloc.h> void buscarDoc(); void modificarDoc(); void ingresarEst(); void ingresarDoc(); #define sizeEst 100 #define sizeDoc 100 #define sizeNoDoc 100 main(){ int grado; int mnuDocente=0, mnuNoDocente=0, mnuEst=0, mnuExit =0; printf ("SISTEMA DE GESTION DOCENTES-ESTUDIANTES n"); printf ("Menu principal n"); printf ("Opciones para ingresar a los modulos:n"); printf ("1--> Acceso al menu principal Docente n"); printf ("2--> Acceso al menu principal No Docente n"); printf ("3--> Acceso al menu Estudiantes n"); printf ("4--> Salir n"); scanf("%d", &grado); if(grado==1){ printf ("1--> Menu principal Docente n"); printf ("MODULO DOCENTEn"); printf ("______________n"); printf ("1--> Alta nuevo Estudianten"); printf ("2--> Modificacion de estudiante existenten"); printf ("3--> Baja de estudianten"); printf ("4--> Consulta la informacion de un estudianten"); printf ("5--> Listado completo de estudiantesn"); printf ("6--> VOLVER AL MENU PRINCIPALn"); printf ("Indique la opcion: n"); int opt; scanf("%d", &opt); if(opt==1){ printf("ALTA ESTUDIANTEn"); } if(opt==2){ printf("MODIFICACION ESTUDIANTEn"); } if(opt==3){ printf("BAJA ESTUDIANTEn"); } if(opt==4){ printf("CONSULTA ESTUDIANTEn"); } if(opt==5){ printf("LISTADO ESTUDIANTEn"); } if(opt==6){ printf("VOLVERn"); } } if(grado==2){ printf ("2--> Menu principal No Docente n"); printf ("MODULO NO DOCENTE n"); printf ("______________n"); printf ("1--> Alta nuevo funcionario no docenten"); printf ("2--> Modificacion de funcionarion"); printf ("3--> Baja de funcionarion"); printf ("4--> Consulta la informacionn"); printf ("5--> Listado completon"); printf ("6--> VOLVER AL MENU PRINCIPALn"); printf ("Indique la opcion: n"); int opt; scanf("%d", &opt); if(opt==1){ printf("ALTA DOCENTEn"); } if(opt==2){ printf("MODIFICACION DOCENTEn"); } if(opt==3){ printf("BAJA DOCENTEn"); } if(opt==4){ printf("CONSULTAn"); } if(opt==5){ printf("LISTADO DOCENTEn"); } if(opt==6){ printf("VOLVERn"); } } if(grado==3){ printf ("3--> Menu principal Estudiantes n"); printf ("MODULO DOCENTEn"); printf ("______________n"); printf ("1--> Alta nuevo docenten"); printf ("2--> Modificacion de docente existenten"); printf ("3--> Baja de docenten"); printf ("4--> Consulta la informacion de un docenten"); printf ("5--> Listado completo de docentesn"); printf ("6--> VOLVER AL MENU PRINCIPALn"); printf ("Indique la opcion: n"); int opt; scanf("%d", &opt); if(opt==1){ printf("ALTA DOCENTEn"); ingresarDoc(); } if(opt==2){ printf("MODIFICACION DOCENTEn"); modificarDoc(); } if(opt==3){ printf("BAJA DOCENTEn"); } if(opt==4){ printf("CONSULTAn"); } if(opt==5){ printf("LISTADOn"); } if(opt==6){ printf("VOLVERn"); } } if(grado==4){ printf ("4--> Salir n"); /*menu(4);*/ } return 0; } struct estudiante{ int CI; char nombre1[31]; char apellido1[31]; char nombre2[31]; char apellido2[31]; char fechaNac[21]; char sexo[10]; char nacionalidad[20]; char nroCredencial[20]; long telefono; char direccion[31]; char estadoCivil[10]; }; struct docente{ int CI; char nombre1[31]; char apellido1[31]; char nombre2[31]; char apellido2[31]; char fechaNac[21]; char sexo[10]; char nacionalidad[20]; char nroCredencial[20]; }; struct noDocente{ int CI; char nombre1[31]; char apellido1[31]; char nombre2[31]; char apellido2[31]; char fechaNac[21]; char sexo[10]; char nacionalidad[20]; char nroCredencial[20]; }; struct asignatura{ long cod; char nombreAsig[20]; }; int topeEst; int topeNoDoc; int topeDoc; noDocente arrayNoDoc[sizeNoDoc]; docente arrayDoc[sizeDoc]; estudiante arrayEst[sizeEst]; void ingresarDoc(){ int mCI; char mNombre1[31], mNombre2[31], mApellido1[31], mApellido2[31], mFechaNac [21], mSexo[10], mNacionalidad[20], mNroCredencial[20]; printf("Ingrese los datos del Docenten"); printf("CI:n"); scanf("%d", &mCI); if (mCI == 0){ printf("No ha ingresado correctamente la CI del alumno"); printf("CI:n"); scanf("%d", &mCI); }else{ printf("Primer nombre:n"); scanf("%c",arrayDoc[topeDoc].nombre1); printf("Segundo nombre:n"); scanf("%c", arrayDoc[topeDoc].nombre2); printf("Primer Apellido:n"); scanf("%c", arrayDoc[topeDoc].apellido1); printf("Segundo Apellido:n"); scanf("%c", arrayDoc[topeDoc].apellido2); printf("Fecha de Nacimiento:n"); scanf("%c", arrayDoc[topeDoc].fechaNac); printf("Sexo:n"); scanf("%c", arrayDoc[topeDoc].sexo); printf("Nacionalidadn"); scanf("%c", arrayDoc[topeDoc].nacionalidad); printf("Nro. Credencialn"); scanf("%c", arrayDoc[topeDoc].nroCredencial); } int existe=0; int i=0; for(i=0; i<=topeDoc; i++){ if (arrayDoc[i].CI == mCI){ existe=1; }else{ existe=0; } } /*if (existe==0){ arrayDoc[topeDoc].CI = mCI; arrayDoc[topeDoc].nombre1 = mNombre1; arrayDoc[topeDoc].nombre2 = mNombre2; arrayDoc[topeDoc].apellido1 = mApellido1; arrayDoc[topeDoc].apellido2 = mApellido2; arrayDoc[topeDoc].fechaNac = mFechaNac; arrayDoc[topeDoc].sexo = mSexo; arrayDoc[topeDoc].nacionalidad = mNacionalidad; arrayDoc[topeDoc].nroCredencial = mNroCredencial; } */ } /*MODIFICAR DOCENTE*///////////////////////////////////////////////////// void modificarDoc(){ int mCI; char mNombre1[31], mNombre2[31], mApellido1[31], mApellido2[31], mFechaNac [21], mSexo[10], mNacionalidad[20], mNroCredencial[20]; printf("Ingrese la CI del docente del cual modificara los datos.n"); printf("CI:n"); scanf("%d", &mCI); if (mCI == 0){ printf("No ha ingresado correctamente la CI del alumnon"); printf("CI:n"); scanf("%d", &mCI); }else{ int i=0; int e=0; int ced = 0; for(i=0; i<=topeDoc; i++){ ced=arrayDoc[i].CI; if (ced==mCI){ printf("Primer nombre:n"); scanf("%s", &mNombre1); printf("Segundo nombre:n"); scanf("%s", &mNombre2); printf("Primer Apellido:n"); scanf("%s", &mApellido1); printf("Segundo Apellido:n"); scanf("%s", &mApellido2); printf("Fecha de Nacimiento:n"); scanf("%s", &mFechaNac); printf("Sexo:n"); scanf("%s", &mSexo); printf("Nacionalidadn"); scanf("%s", &mNacionalidad); printf("Nro. Credencialn"); scanf("%s", &mNroCredencial); e=1; } } if (e==0){ printf("El Docente que quiere modificar no existen"); }else{ printf("Datos modificadosn"); } } } /*ELIMINAR DOCENTE*///////////////////////////////////////////////////// /*BUSCAR Y LISTAR DOCENTE*///////////////////////////////////////////////////// void buscarDoc(){ int mCI; char mNombre1[31], mNombre2[31], mApellido1[31], mApellido2[31], mFechaNac [21], mSexo[10], mNacionalidad[20], mNroCredencial[20]; printf("Ingrese la CI del docente a buscar.n"); printf("CI:n"); scanf("%d", &mCI); if (mCI == 0){ printf("No ha ingresado correctamente la CI del alumnon"); printf("CI:n"); scanf("%d", &mCI); }else{ int i=0; int e=0; for(i=0; i<=topeDoc; i++){ if (arrayDoc[i].CI == mCI){ printf("Primer nombre:n"); printf("%s", arrayDoc[i].nombre1); printf("Segundo nombre:n"); printf("%s", arrayDoc[i].nombre2); printf("Primer Apellido:n"); printf("%s", arrayDoc[i].apellido1); printf("Segundo Apellido:n"); printf("%s", arrayDoc[i].apellido2); printf("Fecha de Nacimiento:n"); printf("%s", arrayDoc[i].fechaNac); printf("Sexo:n"); printf("%s", arrayDoc[i].sexo); printf("Nacionalidadn"); printf("%s", arrayDoc[i].nacionalidad); printf("Nro. Credencialn"); printf("%s", arrayDoc[i].nroCredencial); e=1; } } if (e==0){ printf("El Docente que busca no existen"); }else{ printf("Datos encontradosn"); } } } void ingresarEst(){ }
3
« en: Lunes 17 de Noviembre de 2008, 20:18 »
Hola, estoy empezando con C y tengo errores, no me reconoce las funciones, trabajo con el TurboC 4.5, lo unico que hago es en un solo modulo, tengo el main; y fuera de él tengo 3 structs, y 3 arrays, y alli funciones de ingreso, modificacion y búsqueda; el problema surge cuando llamo desde dentro de unas funciones (todas las que están fuera del main) a otras; por ejemplo tira error el llamar dentro de la funcion ingresarDoc, la funciòn existeDoc; tengo importado #include <stdio.h> #include <conio.h>.... alguien puede mirar el cod. y decirme que parece es?? GRACIASS. void ingresarDoc(){ int mCI; char mNombre1[31], mNombre2[31], mApellido1[31], mApellido2[31], mFechaNac [21], mSexo[10], mNacionalidad[20], mNroCredencial[20]; printf("Ingrese los datos del Docenten"); printf("CI:n"); scanf("%d", &mCI); if (mCI == 0){ printf("No ha ingresado correctamente la CI del alumno"); printf("CI:n"); scanf("%d", &mCI); }else{ printf("Primer nombre:n"); scanf("%s", &mNombre1); printf("Segundo nombre:n"); scanf("%s", &mNombre2); printf("Primer Apellido:n"); scanf("%s", &mApellido1); printf("Segundo Apellido:n"); scanf("%s", &mApellido2); printf("Fecha de Nacimiento:n"); scanf("%s", &mFechaNac); printf("Sexo:n"); scanf("%s", &mSexo); printf("Nacionalidadn"); scanf("%s", &mNacionalidad); printf("Nro. Credencialn"); scanf("%s", &mNroCredencial); } int existeDoc(){ int i=0; for(i=0; i<=topeDoc; i++){ if (arrayDoc[i].CI == mCI){ existeDoc=1; }else{ existeDoc=0; } } if (existeDoc() ==0){ ArrayDoc[topeDoc].CI = mCI; ArrayDoc[topeDoc].nombre1 = mNombre1; ArrayDoc[topeDoc].nombre2 = mNombre2; ArrayDoc[topeDoc].apellido1 = mApellido1; ArrayDoc[topeDoc].apellido2 = mApellido2; ArrayDoc[topeDoc].fechaNac = mFechaNac; ArrayDoc[topeDoc].sexo = mSexo; ArrayDoc[topeDoc].nacionalidad = mNacionalidad; ArrayDoc[topeDoc].nroCredencial = mNroCredencial; } }
4
« en: Lunes 17 de Noviembre de 2008, 20:10 »
Hola, estoy empezando con C y tengo errores, no me reconoce las funciones, trabajo con el TurboC 4.5, lo unico que hago es en un solo modulo, tengo el main; y fuera de él tengo 3 structs, y 3 arrays, y alli funciones de ingreso, modificacion y búsqueda; el problema surge cuando llamo desde dentro de unas funciones (todas las que están fuera del main) a otras; por ejemplo tira error el llamar dentro de la funcion ingresarDoc, la funciòn existeDoc; tengo importado #include <stdio.h> #include <conio.h>.... alguien puede mirar el cod. y decirme que parece es?? GRACIASS. void ingresarDoc(){ int mCI; char mNombre1[31], mNombre2[31], mApellido1[31], mApellido2[31], mFechaNac [21], mSexo[10], mNacionalidad[20], mNroCredencial[20]; printf("Ingrese los datos del Docenten"); printf("CI:n"); scanf("%d", &mCI); if (mCI == 0){ printf("No ha ingresado correctamente la CI del alumno"); printf("CI:n"); scanf("%d", &mCI); }else{ printf("Primer nombre:n"); scanf("%s", &mNombre1); printf("Segundo nombre:n"); scanf("%s", &mNombre2); printf("Primer Apellido:n"); scanf("%s", &mApellido1); printf("Segundo Apellido:n"); scanf("%s", &mApellido2); printf("Fecha de Nacimiento:n"); scanf("%s", &mFechaNac); printf("Sexo:n"); scanf("%s", &mSexo); printf("Nacionalidadn"); scanf("%s", &mNacionalidad); printf("Nro. Credencialn"); scanf("%s", &mNroCredencial); } int existeDoc(){ int i=0; for(i=0; i<=topeDoc; i++){ if (arrayDoc[i].CI == mCI){ existeDoc=1; }else{ existeDoc=0; } } if (existeDoc() ==0){ ArrayDoc[topeDoc].CI = mCI; ArrayDoc[topeDoc].nombre1 = mNombre1; ArrayDoc[topeDoc].nombre2 = mNombre2; ArrayDoc[topeDoc].apellido1 = mApellido1; ArrayDoc[topeDoc].apellido2 = mApellido2; ArrayDoc[topeDoc].fechaNac = mFechaNac; ArrayDoc[topeDoc].sexo = mSexo; ArrayDoc[topeDoc].nacionalidad = mNacionalidad; ArrayDoc[topeDoc].nroCredencial = mNroCredencial; } }
5
« en: Martes 7 de Octubre de 2008, 23:28 »
En realidad hace tiempo que colgué la consulta, pero solo para decirles que no funcionò apuntando a esa unidad de red; y no lo he podido solucionar, lo que hago es actualizar la bd todas las semanas, pero el sistema no trabaja en red... si alguien me puede ayudar estaria bueno! je
Gracias..
Salu2
Lau
6
« en: Martes 19 de Agosto de 2008, 14:50 »
HOLA.. He buscado la forma de conectarme desde una alicaciòn de visual de una pc con wind xp a una base (con la que trabaja la misma apicacion duplicada) en otra pc que està en red punto a punto; pero siempre me tira ERROR AL ABRIR LA RUTA DE LA BASE??? Yo utilizo la path que para acceder a la base q esta en la otra pc con el nombre de la máquina en la red también.. esto es correcto? .. Ej: \PC2cProgramaBase.mdb ¿? Espero puedan ayudarm pronto!! gracias lau
7
« en: Jueves 13 de Marzo de 2008, 16:13 »
gracias, ya tengo la bd lista. El problema sale ahora en conectar mi sitio en asp a un webserver q utiliza mysql.. ibPanel... se pude? como hago la cedena de conexiòn? salu2
8
« en: Miércoles 12 de Marzo de 2008, 00:31 »
Quiero conectar una bd .. q ya subi en sql al servidor.. con q lineas de cod. logro q el servidor abra dicha bd ? con estas... Dim cnn Dim str Dim rs Dim SQL DBName = "driver={Microsoft Access Driver (*.mdb)};dbq=C:\Inetpub\wwwroot\foros\Foro.mdb" Set cnn = Server.CreateObject("ADODB.Connection") cnn.Open DBName Set rs = CreateObject("ADODB.Recordset") rs.ActiveConnection = cnn
espero puedan ayduarme pd. en caso d q la base de datos este en sql y el server utilize mysql.. cual seria el driver?.. porq claramente el de access no lo sera? gracias..
9
« en: Lunes 10 de Marzo de 2008, 12:42 »
Hola, necesito crear una bd en sql; y en realidad no sé x donde emepezar porq nunca lo hice antes (solo programo en vb)..alguien me puede decir a q web recurrir para un ejemplo o pasar alguno por el foro?? Es recomendable utilizar alguna herramienta o no? Desde ya gracias. lavi
10
« en: Jueves 6 de Marzo de 2008, 14:36 »
Hola, soy nueva en esto de la prog. web... en realidad yo programo en vbasic pero ahora tengo que crear un foro para una web y la verdad NO SE POR DONDE EMPEZAR... si alguien me recomienda alguna herramienta o alguna web.. o info. lo agradezco..
salu2
11
« en: Miércoles 13 de Febrero de 2008, 17:08 »
OK, entiendo lo que decís pero lo tengo que realizar trabajando con esa función; de igual forma yo ya tengo definido mBase como una Base al comienzo del módulo; ese no es el error... Ta, buscaré otra forma, el tema es que no he podido encontrar un código de ORDENO para una colección que no demore mucho yyy ya hace tiempo ando en la búsqueda, por favor si alguien tiene uno me lo pasa... gracias..
12
« en: Miércoles 13 de Febrero de 2008, 02:02 »
abrirtabla proviene d esta función que se encuentra en otro módulo llamado mBase; aqui cito el cód de abrirtabla... es un openrecordset.. El nombre de la bd access es Odontocop, de la tabla a abrir es Afiliado1, y del campo por el que quiero ordenar es Apellido. Public Function abrirtabla(tb As String) As Recordset Set abrirtabla = BASE.OpenRecordset(tb, dbOpenTable) End Function
y con respecto a la separación, es Afiliado1, sin espacio, por lo q entiendo no debería generar problemas... el error que tira es el que cité en el mensaje anterior... espero ayuda ... gracias.
13
« en: Martes 12 de Febrero de 2008, 17:06 »
este... "Error 3011 en tiempo de ejecución: El motor de base de datos Microsoft Jet no pudo encontrar el objeto "Select * from Afiliado 1 order by Apellido". Asegurese de que el objeto existe y que ha escrito el nombre y la ruta de acceso correctamente "
espero respuesta.. gracias.
14
« en: Martes 12 de Febrero de 2008, 00:50 »
Puedo utilizar el SELECT * FROM Tabla ORDER BY Nombre en medio de éste código...?? Me tira un semejate error... pero en realidad mi idea es levantar la tabla ordenada por apellidos... el abrirtabla alli sería un OpenRecordset que está en otro módulo... espero PUEDAN AYUDARME.... GRACIAS.. Public Function CargarTodos() As Collection Set CargarTodos = New Collection Set rs = mBASE.abrirtabla("Select * from Afiliado1 order by Apellido") Do While Not rs.EOF Set ficha = New cAfiliado1 'ficha.ID = rs!ID ficha.Numero = rs!Numero ficha.CI = rs!CI ficha.Nombre = rs!Nombre ficha.Apellido = rs!Apellido ficha.Direccion = rs!Direccion ficha.Telefono = rs!Telefono ficha.FechaIng1 = rs!FechaIng1 ficha.FechaIng2 = rs!FechaIng2 ficha.FechaIng3 = rs!FechaIng3 ficha.FechaBaja1 = rs!FechaBaja1 ficha.FechaBaja2 = rs!FechaBaja2 ficha.FechaBaja3 = rs!FechaBaja3 ficha.IDCategoria = rs!IDCategoria ficha.HABILITADO = rs!HABILITADO CargarTodos.Add ficha Set ficha = Nothing rs.MoveNext Loop
15
« en: Sábado 12 de Enero de 2008, 17:46 »
Podrias usar el Inno Setup y probar si te tira los mismos errores; es práctico para empaquetar, a mi nunca que me generado conflicto. http://inno-setup.uptodown.com/chau
16
« en: Martes 8 de Enero de 2008, 14:56 »
holas! yo otra vez con el tema de impresión; ya logré solucionar los otros problemas pero me quedó en el tintero el hecho de acortar el tamaño de una hoja a un ancho de 25 cm y un alto de 10; cosa que con el PaperSize no pude resolver y usando: Printer.Height = 1010 Printer.Width = 2510
tampoco funcionó .... espero ideas... gracias.
17
« en: Jueves 20 de Diciembre de 2007, 19:37 »
Gracias, busqué allí y encontré unos algoritmos pero lo que tengo como base es este cód; que claro no me lo ordena... como puedo hacer para que lo ordene por nombre...
Public Function REORDENAR(DESORDENADA As Collection) As Collection Set REORDENAR = New Collection Dim cl As New cAfiliado1 Dim i As Integer For i = 0 To DESORDENADA.Count - 1 For Each cl In DESORDENADA If cl.Nombre < DESORDENADA.Item(i).Nombre Then REORDENAR.Add cl Exit For End If Next Next End Function
a ver si alguien me tira una idea... gracias...
18
« en: Miércoles 19 de Diciembre de 2007, 18:21 »
Con respecto a impresión te digo que lo mejor es trabajar con las coordenadas x e y; asi ubicar el objeto y luego lo mandas a imprimir... mira...
Printer.CurrentX = 85 Printer.CurrentY = 125 Printer.Print "HOLA MUNDO"
Printer.EndDoc
Y más info hay en este txt q te adjunto... esta claro y sintético...
19
« en: Miércoles 19 de Diciembre de 2007, 13:31 »
Holas... a ver si alguien puede ayudarme.. tengo que pasar como parametro una coleccion y ordenar sus items por apellidos; y no puedo hacerlo desde la consulta sql con el sort sino con un algoritmo.. si alguien tiene algún código sobre esto se lo agradeceria...
gracias.
20
« en: Viernes 14 de Diciembre de 2007, 20:31 »
Si claro, por esto que vos decis; como es solo para realizar consultas el snapshot lo utilizo en esta función. En realidad aquí: If Not rs.EOF And Not rs.BOF Then rs.MoveLast MsgBox "Ultimo ID Registrado: " & Val(rs!ID) NuevoID.ID = Val(rs!ID) + 1Else NuevoID.ID = 1 End If no existe una modificación en la base, lo único que hace es levantar el NuevoID.ID y llevarlo al formulario; lee el registro de la bd y levanta a el form... por esto sigo con el problema y realmente creo q no es de código.....
21
« en: Lunes 10 de Diciembre de 2007, 23:33 »
la idea es que genere un autonumérico mediante el programa... trabajo en 3 capas para acceder a bd; presentación (forms), dominio (conecta presentación y persistencia) , persistencia (accede directamente a la bd);;; y miren el cód. q lo q no logro es que de un id 417 pase al 418 automaticamente... presentación (frmingreso) luego de hacer el alta; insertaria el nuevo id en la caja de texto; txtId.TEXT = CLDAFILIADO1.NuevoID.ID en dominio; busca la de persistencia para el nuevo id del afiliado Public Function NuevoID() As cAfiliado2 Set NuevoID = New cAfiliado2 NuevoID.ID = clpAfiliado2.NuevoID.ID End Function en persistencia,,,, seria donde estaría el error... supongo MIREN EL COD! Public Function NuevoID() As cAfiliado2 'Agrego un nuevo id a cada afiliiado que voy ingresando Set NuevoID = New cAfiliado2 Set rs = mBASE.abrirsnapshot("Afiliado2") If Not rs.EOF And Not rs.BOF Then rs.MoveLast NuevoID.ID = Val(rs!ID) + 1 Else NuevoID.ID = 1 End If End Function NO SE; QUEDA TRABADO Y CON ESTE COD NO PASA DEL 417 AL 418 ... DESDE YA GRACIAS....
22
« en: Domingo 2 de Diciembre de 2007, 17:47 »
Claro, eso era lo q me temía... bueno veré de que otra forma lo mando a imprimir, luego les comento como lo resuelvo... gracias
23
« en: Viernes 30 de Noviembre de 2007, 21:21 »
En realidad no entiendo; luego de acceder al código como logro que no muestre el mensaje "imprimiendo" cada vez q se imprime el form... ? esa es mi duda gracias---
24
« en: Miércoles 28 de Noviembre de 2007, 19:36 »
La idea es que cada vez q manda el form a imprimir con datos distitnos no muestre el mensaje "Imprimiendo..." que sale por defecto, porq si tengo 500 registros no querrán cerrarlo 500 veces; ; espero ideas... este es el cód; q manda a imprimir... Private Sub frmGenerar_Click() Dim colrecibos As New Collection Set colrecibos = cldimpresos.CargarTodos If colrecibos.Count <> 0 Then Dim CANT, J As Long CANT = Val(Text4.TEXT) X = 1 Do While X < CANT If X = CANT Then Exit Sub MsgBox "No existen recibos para imprimir" End If For J = 1 To colrecibos.Count If colrecibos.Item(J).IdCategoria = Val(Combo1.TEXT) Then Form.Mat1.Caption = colrecibos.Item(J).NumA1 Form.Mat2.Caption = colrecibos.Item(J).NumA2 Form.Mat3.Caption = colrecibos.Item(J).NumA3 Form.TOTAL2.Caption = colrecibos.Item(J).total Form.IVA.Caption = 0 Form.IMPORTETOTAL.Caption = colrecibos.Item(J).total Form.PrintForm 'Printer.NewPage X = X + 1 'MsgBox "1" End If Next Loop Else MsgBox "No existen recibos con esas propiedades para imprimir" End If End Sub desde ya GRACIAS... Lavi
25
« en: Miércoles 28 de Noviembre de 2007, 19:28 »
supongo q es sencilla tu consulta; Private Sub CommandButton2_Click() UserForm4.Show Me.Hide Unload me End Sub o // Private Sub CommandButton2_Click() UserForm4.Show UserForm4.Hide Unload UserForm4 End Sub lavi:)
|
|
|