Iniciar sesión
Crear cuenta
Crear cuentaCrear cuenta| Hay un total de 3030 Preguntas. | << >> |
| Pregunta: | 58305 - ERROR AL ASIGNAR NULO |
| Autor: | Joaquin Parra |
| Hola. Tengo un problema que no se si tiene solución mejor a la que utilizo. Al asignar un valor de las tablas a una variable, si este valor no tiene dato(nulo), me da error:
xNombreProvincia=DenT.Clientes!Provincia Si DenT.Clientes!Provincia no tiene valor, esta asignación me da error. Lo soluciona de esta manera:Primero pregunto si el valor de la tabla es nulo y en caso contrario, asigno su valor. Esta solucion es muy pesada. ¿Conoceis alguna otra?. Graciñas. | |
| Respuesta: | Maxi |
| Hola.
Probá con esto: xNombreProvincia=DenT.Clientes!Provincia & "" (dos veces dobles comillas) Saludos Maxi | |
| Respuesta: | Saul Garay |
| toma este codigo como ejemplo estoy seguro te ayudara, pruebalo y nos cuentas
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' If Not IsNull(Data1.Recordset("codigo")) Then codigo = Data1.Recordset("codigo") Else codigo = "" End If ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' SALUDOS | |
| Respuesta: | Boluart Bedoya |
| Hola,
La verdad no entiendo muy bien en que te refieres cuando dices que es muy pesada, si lo dices porque tienes varios campos y no quieres hcerlo por cada campo, lamento decirte que no hay otra solucion, a menos que quieras que tu applicacion no sea robusta ( a prueba de errores ). | |
| Pregunta: | 58314 - TAMAÑO HOJA DE PAPEL EN CRYSTAL REPORT |
| Autor: | Victor Manjarrez Fierro |
| Alguien me puede decir por favor, como le doy el tamaño de la hoja media carta en crystal report. En lugar de usar la hoja normal carta, es media carta, De antemano muchas gracias | |
| Respuesta: | Rodrigo Hendges |
| 1º - Entra a "Impresoras y Faxes
2º Marca la impresora que deseas usar 3º Entra al Menu "archivo" -> "Propiedades del Servidor" 4º Cree un nuevo tamaño, en el caso de la media carta serian las medidas 21.50x13.97 Pongale un nombre que puedas identificar y listo, ya puedes escojer este tamaño de hoja en Crystal. | |
| Pregunta: | 58355 - EXCEL QUE MANDE UN ARCHIVO POR CORREO A OUTLOOK |
| Autor: | Eduardo Arrieta |
| Hola buen dia, estoy tratando de hacer una macro que en Excel que mande un archivo por correo a Outlook, estoy seguro que incluso le puedes definir la lista de distribución con una BD. Me pueden ayudar de favor | |
| Respuesta: | Gonzalo Quintana |
| Hola Eduardo,
Te paso el siguiente código, probalo y comentame... Sub Macro_Inicio() On Error GoTo Err_Macro_Inicio Dim CUERPO_MENSAJE As String Dim TITULO_MENSAJE As String Dim ADJUNTO_MENSAJE As String Dim EMAIL_LEGAJO As String Application.DisplayAlerts = False 'POSICIONARME EN EL 1ER. LEGAJO Range("A2").Select 'Mientras tenga algun legajo escrito que le envie email While ActiveCell.Offset(0, 0).Value <> "" 'Guardo el nro de legajo NOMBRE_LEGAJO = ActiveCell.Offset(0, 0).Value EMAIL_LEGAJO = ActiveCell.Offset(0, 1).Value CUERPO_MENSAJE = "Buenos días" & Chr(13) & _ "Le hago llegar el informe... " & Chr(13) & _ "Muchas gracias" TITULO_MENSAJE = "Informe Mensual " & NOMBRE_LEGAJO ADJUNTO_MENSAJE = "" 'Dirección del adjunto Call Enviar_Email_Outlook(EMAIL_LEGAJO, _ TITULO_MENSAJE, CUERPO_MENSAJE, ADJUNTO_MENSAJE) 'Me muevo al siguiente legajo ActiveCell.Offset(1, 0).Select Wend 'Avisar que termino de ejecutar Application.DisplayAlerts = True MsgBox "La macro se ejecuto correctamente.", _ vbOKOnly + vbInformation, "Ejecucación Macros" Exit Sub Err_Macro_Inicio: Resume Next End Sub Sub Enviar_Email_Outlook(EMAIL_PARA As String, EMAIL_TITULO As String, EMAIL_CUERPO As String, EMAIL_ADJUNTO As String) Dim OutApp As Object Dim OutMail As Object Set OutApp = CreateObject("Outlook.Application") Set OutMail = OutApp.CreateItem(0) On Error Resume Next With OutMail .To = EMAIL_PARA .CC = "" .BCC = "" .Subject = EMAIL_TITULO .Body = EMAIL_CUERPO 'recorro el directorio del EMAIL_ADJUNTO para agregar cada uno de los archivos .Attachments.Add EMAIL_ADJUNTO .Save 'Lo graba como borrador (sino usar .Send para enviar el email directamente) End With Set OutMail = Nothing Set OutApp = Nothing End Sub Saludos, Gonzalo | |
| Pregunta: | 58388 - ERROR DE ISDATE...???? |
| Autor: | JAVIER |
| ¿Porque si le digo que la fecha es "10/25/2008" me la da como buena??
Private Sub Text1_LostFocus() If IsDate(Text1.Text) Then MsgBox "es buena", 16, "" else MsgBox "no es valida", 16, "" End If End Sub No lo entiendo. (¿el mes 25 existe?) Gracias. | |
| Respuesta: | Javier Fernandez |
| Espero ayudarte en lo que pueda, pero me parece que el problema esta en el formato de la fecha, para los españoles esta claro que no existe el mes 25, pero para los americanos el mes va primero y luego el dia.
Espero haberte ayudado, o por lo menos haber arrojado un poco de luz. Saludos | |
| Pregunta: | 58420 - LA DLL DE BASE DE DATOS HA DETECTADO UN ERROR” ERROR 20534 |
| Autor: | Jas jas |
| Hola espero que me pueden ayudar con este problemon!!!!
Tengo una aplicación en VB6 con SQl Server 2000 y Crystal Report 8 la conexión es a través del ODBC. El usuario tiene los permisos sobre la base de datos. Cuando ejecuto la aplicación en mi Pc funciona sin problemas, la instalo en el Cliente y nada, al ejecutar el reporte me manda el siguiente mensaje: “La DLL de base de datos ha detectado un error” Error 20534 en tiempo de ejecución. Tendrán alguna idea sobre este problema? he probado con varias opciones pero nada. Gracias anticipadamente. Es super "Urgente""!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!1 | |
| Respuesta: | Jason Castillo |
| Yo tengo exactamente el mismo problema, en mi pc funcionan en la del cliente no, que sera???
lo unico diferente creo yo que tienen las maquinas de mis clientes es el Data Access Component MDAC 2.8 SP1 En mi PC esta el 2.6 | |
| Pregunta: | 58507 - ERROR EN EL EXE PERO NO EN EL PROYECTO |
| Autor: | Ivan Rios Ramirez |
| Tengo un problema con el EXE generado de mi proyecto por VB6, el programa que compile tiene la funcion de copiar archivos usando la API de windows (SHFileOperationA) al dar click en una imagen, el programa funciona perfectamente cuando lo corro desde VB6 pero cuando compilo el EXE y lo ejecuto por si solo Windows me marca un error diciendo que el programa debe cerrarse, mi SO es Windows XP SP2, el programa esta diseñado para ser ejecutado desde la raiz de una unidad, tiene alguien idea de por que sucede esto???
aqui algo de codigo: Private Type SHFILEOPSTRUCT hWnd As Long wFunc As Long pFrom As String pTo As String fFlags As Integer fAnyOperationsAborted As Boolean hNameMappings As Long lpszProgressTitle As String End Type Declare Function SHFileOperation Lib "shell32.dll" Alias "SHFileOperationA" _ (lpFileOp As SHFILEOPSTRUCT) As Long Private Const FO_COPY = &H2 Private Const FOF_SIMPLEPROGRESS = &H100 Private Const FOF_NOCONFIRMATION = &H10 Private Const FOF_NOCONFIRMMKDIR = &H200 Private Const FOF_ALLOWUNDO = &H40 Dim sh_op As SHFILEOPSTRUCT With sh_op .hWnd = Form1.hWnd .wFunc = FO_COPY .pFrom = Form1.File1.Path & "" & archivo & vbNullChar & vbNullChar .pTo = usb & "SO" & archivo & vbNullChar & vbNullChar .fFlags = FOF_SIMPLEPROGRESS Or FOF_ALLOWUNDO Or FOF_NOCONFIRMATION Or FOF_NOCONFIRMMKDIR End With SHFileOperation sh_op ' Es en esta ultima linea donde el EXE provoca el error que lo obliga a cerrarse NOTA: File1.Path = x:DLL usb = y: | |
| Respuesta: | Carlos Rojas |
| Usa la api CopyFileA. | |
| Pregunta: | 58535 - ERROR 3343 |
| Autor: | FELIX ROOS |
| Hola, estoy trabajando con Visual Basic 6 y una base de datos access (.mdb). Esta BD fue creada con Access 97 funcionaba bien con el programa que la utilizaba; al convertirla al formato de Access 2003, el programa comenzó a arrojar el siguiente error: "ERROS 3343 E TIEMPO DE EJECUCIÓN. NO SE RECONOCE EL FORMATO DE BASE DE DATOS...". ¿Qué debo hacer para eliminar el error y trabajar con el nuevo formato de Access 2003?
Gracias. | |
| Respuesta: | Carlos Fernandez |
| Hola. Podes poner el codigo y remarcar en donde es que tenes el error ? | |
| Pregunta: | 58565 - COMO ABRIR FORMULARIOS COMO USUARIOS LIMITADOS DE WINDOWS? |
| Autor: | Poncho Lanker |
| hice una aplicacion en visual basic 6.0 muy simple que me habre un formulario , el problema es que cuando lo corro como un usuario limitado de windows no funciona, solo cuando estoy como administarador , ya cambie los permisos de los usuarios para poder correr el programa pero aun asi no funciona ,, que pudiera hacer??? | |
| Respuesta: | Boluart Bedoya |
| Un simple formulario, tendria que abrir con los minimos permisos , ahora si tu codigo accede o necesota de ciertos permisos es otra cosa, ejem: si tienes que acceder a ciertas partes restringidas del Registros, si quieres acceder a ciertos parametros del sistema como privilegios para reiniciar, apagar el sistema, etc. | |
| Pregunta: | 58705 - PRIMER LETRA MAYUSCULA |
| Autor: | ricardo erazo |
| hola que tal tengo una pregunta la cual es la siguiente..
quiero saber cual es el comando o propiedad en visual basic.para cuando tengo un cuadro de texto e ingreso la palabra frase u otro cosa..la primer letra automaticamente aparezca en mayuscula y el resto normal en minuscula..agradeciria su respuesta gracias.. | |
| Respuesta: | Cristian Breton |
| Amigo, eso puedes hacerlo del siguiente modo:
cad=Mayuscula(Izquierda(cadena,1)) & Minuscula(tozo(cadena,2,longitud(cadena)-1)) --------------------------------------------------------------------------------------------------- Traducido a VB como: AL PRESIONAR UN BOTON: Dim cadena as String cadena = Trim(Tu_text_box.Text) cadena = Ucase(Left(cadena,1)) & Lcase(Mid(cadena,2,Len(cadena)-1)) Tu_text_box.Text = cadena --------------------------------------------------------------------------------------------------- Esto significa que concatenas La primera letra en mayusculas de tu texto más el resto de la misma cadena en minusculas. | |
| Pregunta: | 58709 - ELIMINACION DE MENSAJE DE OFFICE AL EJECUTAR HYPERLINK |
| Autor: | Heidy Mejía |
| Hola
Mi pregunta es como puedo eliminar los mensajes que aparecen en excel al ejecutar un hyperlink si es que los estoy corriendo desde una macro de excel, ya que ésto detiene la ejecución de mi macro. Estoy incluyendo la ejecución de un hyperlink el cual se trata de un batch en MS-DOS (*.bat): ActiveWorkbook.FollowHyperlink Address:="C:Batchdata.bat" Debido a la extensión *.bat, me aparecen dos ventanas con los siguientes mensajes: Microsoft Visual Basic Opening "CBatchdata.dat" Hyperlinks can be harmful to your computer and data. To protect your computer, click only those hyperlinks from trusted sources. Do you want to continue? Yes No Microsoft Office Opening CBatchdata.dat Some files can contain viruses or otherwise be harmful to your computer. It is important to be certain that this file is from a trustworthy source. Would you like to open this file? OK Cancel Ya intenté cambiar la extensión pero aún con *.cmd me aparece lo mismo. Gracias de antemano por la ayuda | |
| Respuesta: | Zeus Paez Renteria |
| Ya intentaste
Application.DisplayAlerts = False If Microsoft Excel Display certains alerts and messages while macro is running. El valor default es True. Establece esta propiedad como False si no quieres mensages desplegados. Tambien te sirve para cuando quieres salvar hojas de excel porque te pregunta si deseas sobreescribir el valor por default es no pero si el Application.DisplayAlerts = False la respuesta sera Yes. Bueno espero que te sirva. Quiza te pueda servir alguna aplicacion como el dll redemption buscalo en google : redemption es para los warnings de outlook cuando supone que es una virus quiza puedes usar esa liberia si no funciona el Application.DisplayAlerts Saludos desde Mexicali B.C. Mexico Ing. Zeus Alberto Paez Renteria Desing & Product Department The Mexmil Aerospace Company | |
| |< << 288 289 290 291 292 293 294 295 296 297 298 >> >| |
