|
|
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 - cpmario
Páginas: 1 ... 9 10 [11] 12 13 ... 26
252
« en: Viernes 24 de Noviembre de 2006, 02:10 »
Busca en la ventana de propiedades de la forma. Localiza la propiedad MaxButton y selecciona 'False' 
253
« en: Miércoles 22 de Noviembre de 2006, 05:28 »
Revisando tu pregunta y las formas que colocas, me doy cuenta por ejemplo: que difícilmente encontrarás 2 razones (de las 30) que se combinen (ley de propabilidad) pero si solo se requiere de una de esas razones para no haber entregado el paquete por ejemplo: "mal tiempo" que importaría si la dirección está incorrecta, o si el cliente está de huelga. si solo una razón cualquiera de estas 3 que menciono basta para que no se entregue (lo que sea que se entregue). El problema que planteas pudiera solucionarse también, colocando todas las causas, de 'no entrega', en un ComboBox y seleccionando solo una de ellas, si hay varias causas, se seleccione la más relevante. El único problema sería que la causa fuera 'Otra', para lo cual habría que darle oportunidad al capturista que escribiera el motivo. No entendí lo que Jose Arriagada quiso decir con: podrias haber modelo tu problema y asunto arreglado. Espero nos ilustre con con su idea.
254
« en: Miércoles 22 de Noviembre de 2006, 04:46 »
Supongo que te refieres a información almacenada en una base de datos y lo que quieres hacer es una búsqueda por SQL. Según el folio que indicas (12021106) debes buscar por sus 4 últimos caracteres por ejemplo para buscar noviembre del 2006 una búsqueda SQL puede ser así: SELECT * FROM MisRegistros WHERE Folio LIKE '*1106' ORDER BY Folio
255
« en: Martes 21 de Noviembre de 2006, 19:12 »
Para hacer búsquedas SQL con VB en campos que tienen espacios y no tener problemas se coloca el nombre del campo a buscar entre corchetes. Prueba a ver si te sirve lo siguiente. Por ejemplo: strCampoPorBuscar= "[Nombre Campo]"
257
« en: Martes 7 de Noviembre de 2006, 06:20 »
El manejo de errores de Unidades de Disco extraíbles como los floppys son los más difíciles de manejar. Te muestro la rutina que uso para los errores que no pueden manejarse: Sub GenErrorHandler(Location As String, ErrNum As Integer, ErrorText As String) Screen.MousePointer = vbDefault gstrMsg = "Error no. " & CStr(ErrNum) & " en " & Location & "." gstrMsg = gstrMsg & vbCrLf & ErrorText Select Case ErrNum Case 7 gstrMsg = "Existe error por falta de memoria " & _ "o de recursos del sistema de Windows. " & _ "Cierre otras aplicaciones que tenga abiertas e inténtelo de nuevo." Case 52 gstrMsg = "ERROR: Nombre de archivo incorrecto." Case 53 gstrMsg = "ERROR: No se encontró el archivo." Case 54 gstrMsg = "ERROR: Modo de acceso erroneo." Case 55 gstrMsg = "ERROR: El archivo ya está abierto." Case 57 gstrMsg = "ERROR: I/O Error." Case 58 gstrMsg = "ERROR: El archivo ya existe." Case 61 gstrMsg = "ERROR: Disco lleno." Case 64 gstrMsg = "ERROR: Nombre de archivo incorrecto." Case 67 gstrMsg = "ERROR: Hay muchos archivos abiertos." Case 71 gstrMsg = "ERROR: La unidad de discos no está lista." End Select MsgBox gstrMsg, vbOKOnly + vbCritical, gstrAppTitle End Sub
Esta rutina se llama de la siguiente manera: Sub DelCharsFromEmail() On Error GoTo ErrorDelCharsFromEmail 'Tu código va aquí Exit Sub ErrorDelCharsFromEmail: GenErrorHandler "modMain\DelCharsFromEmail", Err.Number, Err.Description End Sub
258
« en: Martes 7 de Noviembre de 2006, 06:01 »
Le di una revisada al archivo CatalogodeDVD.frm y no hay ninguna referencia de la ruta "C:\Documents and Settings\XXX\Escritorio\XXX\YYYl\ZZZ\VB stuff\DB DVD Franco\DVD.mdb;" Tampoco encontré las instrucciones: ChDrive CurDir(App.Path) ChDir App.Path
Posiblemente estén en la otra forma? Puedes intentar lo siguiente: Cambia tus archivos fuente de fólder, por ejemplo: renombra el fólder 'DB DVD Franco' a 'DB DVD Franco2' y corre el programa tratando de localizar el error. Compila el programa y coloca el archivo ejecutable y la base de datos en otro fólder dentro de tu mismo equipo y verifica si el error persiste. Por el momento no se me ocurre otra cosa. 
259
« en: Lunes 6 de Noviembre de 2006, 20:55 »
Es muy probable lo que esté pasando sea lo que dice F_Tanori.  Revisa bien la forma, ya que la ruta "C:\Documents and Settings\XXX\Escritorio\XXX\YYYl\ZZZ\VB stuff\DB DVD Franco\DVD.mdb;" debe estar almacenada en alguna parte de la forma o en otra parte del programa. Efectúa una búsqueda de la ruta dentro de las distintas formas. Si no la encuentras entonces efectúa una búsqueda de texto dentro de los archivos con la opción buscar de Windows (en Mi PC o el explorador de archivos). O si lo deseas adjunta la forma que causa el problema y te ayudamos en la búsqueda.
260
« en: Domingo 5 de Noviembre de 2006, 20:35 »
Si la base de datos está en el mismo directorio que la aplicación puedes usar lo siguiente en ConnectionString: PROVIDER=Microsoft.Jet.OLEDB.3.51;Data Source=DVD.mdb;
261
« en: Miércoles 1 de Noviembre de 2006, 16:41 »
Revisa la Instrucción SendKeys en la ayuda del VB.
263
« en: Lunes 23 de Octubre de 2006, 22:26 »
Tambien puedes convertir la cadena de texto que tiene la fecha a una variable de fecha (Date) con la función Cdate por ejemplo: Sub CVDate() Dim strFecha1 As String Dim strFecha2 As String Dim datFecha1 As Date Dim datFecha2 As Date strFecha1 = "29/01/06" strFecha2 = "05/06/06" datFecha1 = CDate(strFecha1) datFecha2 = CDate(strFecha2) If datFecha1 > datFecha2 Then MsgBox "La fecha " & strFecha1 & " es mayor que " & strFecha2 Else MsgBox "La fecha " & strFecha1 & " es menor que " & strFecha2 End If End Sub
264
« en: Lunes 9 de Octubre de 2006, 16:48 »
Sí, eso es lo que intente en un primer momento, el problema es que la BD es en ACCESS, y si algun otro proceso esta usando la BD en ese mismo instante, me da error al abrirla, de manera que interpretaría como una BD corrupta, a una que no lo está. Debes de colocar la llamada a la rutina que copia la base de datos antes de abrirla para efectuar otro tipo de procesos, por ejemplo en la parte más alta del Sub Form_Load de la primera forma que abres. De manera alternativa puedes hacer una rutina que cierre todas las bases de datos y los Forms abiertos y entonces hacer la copia de la base de datos.
265
« en: Viernes 6 de Octubre de 2006, 20:45 »
Cuando la base de datos está corrupta al abrirla se generará un error, por ejemplo en DAO 35 el error se muestra así: Imposible abrir la base de datos <name>. Es posible que su aplicación no reconozca este tipo de base de datos o bien que el archivo esté dañado. (Error 3049) Lo que debes hacer es abrir la base de datos, si se genera un error no la copies, si no hay error, cierra la base de datos y entonces procede a copiarla.
266
« en: Viernes 29 de Septiembre de 2006, 17:59 »
Revisa en la ayudad del VB la función: Shell
268
« en: Miércoles 20 de Septiembre de 2006, 05:16 »
Para que aparezca en forma automática coloca el código em el evento LosFocus Private Sub Text1_LostFocus() Dim lngNum As Long Text1.Text = Format(lngNum, "$###,###.00") End Sub
269
« en: Miércoles 20 de Septiembre de 2006, 05:13 »
Revisa la función Format Dim lngNum As Long lngNum = 100 Text1.Text = Format(lngNum, "$###,###.00")
270
« en: Martes 19 de Septiembre de 2006, 18:23 »
Para que automáticamente cambie de versión cada vez que compilas un programa, debes de activar la opción 'Incremento automático' que se encuentra en la pestaña 'Generar' de las propiedades del proyecto. Para buscar información de como hacer una actualización automática revisa el sitio 'Planet Source Code', efectúa una búsqueda de la siguiente palabra 'autoupdate' http://www.planet-source-code.com/vb/default.asp?lngWId=1
271
« en: Martes 19 de Septiembre de 2006, 03:26 »
En VB existe algo así: Private Type POINTAPI X As Long Y As Long End Type
Si colocas la API que estás usando es probable que te podamos dar más ayuda.
272
« en: Viernes 15 de Septiembre de 2006, 23:40 »
Yo no he modificado esta parte del Innosetup pero puedes tratar retirando "Filename: "{uninstallexe}"" y que quede así: Name: "{group}\Desinstalar Gestor"; IconFilename: "D:\Diego\Instalador\Iconos\Desinstalar2.ico"
273
« en: Viernes 15 de Septiembre de 2006, 21:13 »
274
« en: Viernes 15 de Septiembre de 2006, 20:50 »
La primera pregunta, se resuelve retirando confirmoverwrite: Original: Source: richtx32.ocx; DestDir: "{sys}"; Flags: restartreplace sharedfile regserver confirmoverwrite noregerror
Como debe de quedar: Source: richtx32.ocx; DestDir: "{sys}"; Flags: restartreplace sharedfile regserver noregerror
Cuando desinstalas se ve el ícono del desinstalador (unins000.exe) que se encuentra en el fólder donde se instaló tu aplicación. Name: {group}\Desinstalar CorrectNotas; Filename: {uninstallexe}
275
« en: Jueves 14 de Septiembre de 2006, 23:55 »
Puede ser que algo falló en el registro del OCX la primera instalación. Te adjunto un pequeño archivo que permite 'Registrar' y Retirar del registro 'Unregister' los archivos DLL y OCX. Haz un dobleclic sobre el archivo y te aparecerá un mensaje del editor del registro preguntándote que si deseas agregar el archivo al registro, haces clic en el botón 'Si'. A continuación señalas el archivo crystl32.ocx y haces un clic con el botón derecho del ratón, en el menú que aparece verás 2 opciones 'Register' y 'Unregister' . Primero haces un clic en Unregister y después en register. Espero con eso se solucione el problema. Voy a seguir buscando otra solución.
Páginas: 1 ... 9 10 [11] 12 13 ... 26
|
|
|
Mostrar Mensajes
