Iniciar sesión
Crear cuenta
Crear cuentaCrear cuenta| Hay un total de 467 Preguntas. | << >> |
| Pregunta: | 67149 - IMHEN EN PICTURE BOX |
| Autor: | Sharon Zalabarria |
| Cual es el codigo que tendria que poner en un datagrid para que al dar click en el registro que incluye una imagen se muestre en un picture box.
porfa ayudenme!!! | |
| Contestar |
| Pregunta: | 67151 - CRYSTAL REPORTS COLGADO |
| Autor: | Claudia Lima |
| Tengo el siguiente codigo VB que genera un reporte en Crystal reports pero se me queda colgado cuando lo ejecuto
Option Explicit Dim Aplicacion As CRAXDRT.Application Dim Reporte As CRAXDRT.report Dim parametros As CRAXDRT.ParameterFieldDefinitions Dim CamposOrden As CRAXDRT.SortFields Dim ObjUtil As CafUtil.DBUtil2 Dim bd As ClassParam Dim rsSeeks As ADODB.Recordset Dim Pagina As Boolean Dim mvarSelecctionFormula As String Dim mvarFiltro As String Dim Valida As Boolean Dim pBoolLoad As Boolean 'Crea los recordset para los reportes Dim rsDetCia As ADODB.Recordset Dim rsMovs As ADODB.Recordset Dim rsActivo As ADODB.Recordset Dim rsEmps As ADODB.Recordset Dim rsTiposMov As ADODB.Recordset Private Sub Form_Load() Set ObjUtil = New CafUtil.DBUtil2 Set rsSeeks = New ADODB.Recordset Set Aplicacion = CreateObject("CrystalRuntime.Application.10") 'Pagina = False pBoolLoad = True End Sub Private Sub Form_Unload(Cancel As Integer) Set Aplicacion = Nothing Set Reporte = Nothing Set parametros = Nothing Set CamposOrden = Nothing Set ObjUtil = Nothing Set bd = Nothing Set rsSeeks = Nothing Set rsDetCia = Nothing End Sub Private Sub Impresiones1_ClickConfig() On Error GoTo Cancela menuprin.Dialog1.Flags = cdlPDPrintSetup menuprin.Dialog1.ShowPrinter ParamSis.NombrePrint = Printer.DeviceName ParamSis.PuertoPrint = Printer.Port ParamSis.DriverPrint = Printer.DriverName Exit Sub Cancela: Screen.MousePointer = 0 Exit Sub End Sub Private Sub Impresiones1_ClickDisco() 'Reporte.PaperOrientation = crLandscape With Impresiones1 'RepDisco.reporta tmpDesCor & " " & Format(Date, "yymmdd") 'RepDisco.reporta "Resguardo " & Format(Date, "yymmdd") RepDisco.reporta2 Reporte, repListado & " " & Format(Date, "yymmdd") End With End Sub Private Sub Impresiones1_ClickImpresora() On Error GoTo ErrHandler Screen.MousePointer = vbHourglass Call Reporte.SelectPrinter(ParamSis.DriverPrint, ParamSis.NombrePrint, ParamSis.PuertoPrint) If Pagina Then Reporte.PaperOrientation = crLandscape Else Reporte.PaperOrientation = crPortrait End If If Valida Then Reporte.PrintOut False Screen.MousePointer = 0 Exit Sub ErrHandler: Screen.MousePointer = 0 MsgBox Err.Description & vbLf & Err.Source, vbCritical, App.ProductName & " error No. " & Err.Number End Sub Private Sub Impresiones1_ClickPantalla() Call Reporte.SelectPrinter(ParamSis.DriverPrint, ParamSis.NombrePrint, ParamSis.PuertoPrint) If Pagina Then Reporte.PaperOrientation = crLandscape Else 'Reporte.PaperOrientation = crPortrait Reporte.PaperOrientation = crLandscape End If Screen.MousePointer = vbHourglass Me.Enabled = False 'menuprin.Enabled = False If Valida Then previo2.Previo Reporte 'menuprin.Enabled = True 'Me.Show vbModal, menuprin Me.Enabled = True Screen.MousePointer = 0 End Sub Private Sub Impresiones1_ClickSalir() Unload Me End Sub Private Sub Impresiones1_ClickTodo(Cancel As Boolean) On Error GoTo ErrHandler Dim i As Integer Dim DBTable As CRAXDRT.DatabaseTable Dim CPProperty As CRAXDRT.ConnectionProperty Dim parametro As CRAXDRT.ParameterFieldDefinition 'Dim CRXDBField As CRAXDRT.FieldObject Set rsDetCia = New ADODB.Recordset Set rsDetCia = ObjUtil.GetDbReadOnly(ParamCia.CnstrDB, "DETCIA") Screen.MousePointer = vbHourglass Set Reporte = Nothing '-------------------------------------------------------------------------------------------- Set Reporte = Aplicacion.OpenReport(RepDir & "bitacora2.rpt") Set rsMovs = New ADODB.Recordset Set rsActivo = New ADODB.Recordset Set rsEmps = New ADODB.Recordset Set rsTiposMov = New ADODB.Recordset Set rsMovs = ObjUtil.GetDbReadOnly(ParamCia.CnstrDB, "MOVIMIENTOS") Set rsActivo = ObjUtil.GetDbReadOnly(ParamCia.CnstrDB, "ACTIVOS") Set rsEmps = ObjUtil.GetDbReadOnly(ParamCia.CnstrDB, "EMPLEADOS") Set rsTiposMov = ObjUtil.GetDbReadOnly(ParamCia.CnstrDB, "TIPOSMOV") '++++ Carga_Recordset Reporte.DiscardSavedData Set parametros = Reporte.ParameterFields Valida = True ' If Obtiene_Formula Then ' Reporte.RecordSelectionFormula = mvarSelecctionFormula ' Else ' Reporte.RecordSelectionFormula = "" ' End If If Not Valida Then Screen.MousePointer = 0 Exit Sub End If 'Carga_Recordset For i = 1 To parametros.Count Select Case parametros.Item(i).Name Case "{?NOMCIA}" Set parametro = parametros.Item(i) parametro.SetCurrentValue CStr(Empresa.NombreCia) Case "{?prm_Filtro}" Set parametro = parametros.Item(i) parametro.SetCurrentValue "Ordenados por numero consecutivo" Case "{?RANGO}" Set parametro = parametros.Item(i) parametro.SetCurrentValue "Ordenados por numero consecutivo" Case "{?TisaUsr}" Set parametro = parametros.Item(i) parametro.SetCurrentValue CStr(Empresa.NombreUsuario) Case "{?DIR1}" Set parametro = parametros.Item(i) parametro.SetCurrentValue "DIRECCION GENERAL DE RECURSOS MATERIALES Y SERVICIOS GENERALES /n DIRECCION DE RECURSOS MATERIALES /n SUBDIRECCION DE ALMACEN E INVENTARIOS" End Select Next 'Set parametro = Nothing Screen.MousePointer = vbDefault Exit Sub '-------------------------------------------------------------------------------------------------------- ErrHandler: Screen.MousePointer = 0 MsgBox Err.Description & Chr(13) & Err.Source, vbCritical, "Erro No " & Err.Number End Sub Private Sub Carga_Recordset() Dim iFil As Integer For iFil = 1 To Reporte.DataBase.Tables.Count Select Case UCase(Reporte.DataBase.Tables.Item(iFil).Name) Case "DETCIA" Reporte.DataBase.Tables.Item(iFil).SetPrivateData 3, rsDetCia Case "ACTIVOS" Reporte.DataBase.Tables.Item(iFil).SetPrivateData 3, rsActivo Case "MOVIMIENTOS" Reporte.DataBase.Tables.Item(iFil).SetPrivateData 3, rsMovs Case "EMPLEADOS" Reporte.DataBase.Tables.Item(iFil).SetPrivateData 3, rsEmps Case "TIPOSMOV" Reporte.DataBase.Tables.Item(iFil).SetPrivateData 3, rsTiposMov End Select Next iFil End Sub Private Function Obtiene_Formula() As Boolean Dim cons As Integer Valida = True mvarFiltro = "" mvarSelecctionFormula = "" mvarFiltro = "BITACORA DE MOVIMIENTOS" If Len(Trim(txtCons.Text)) > 0 Then cons = txtCons.Text mvarFiltro = mvarFiltro & " del Movimiento " & txtCons.Text mvarSelecctionFormula = "{MOVIMIENTOS.CVEACT}={ACTIVOS.CVEACT} and {MOVIMIENTO.CVEUSU}={EMPLEADOS.CVEUSU} and {EMPLEADOS.ESTATUS}='A' and {MOVIMIENTOS.TIPMOV}={TIPOSMOV.CVETIMOV} and {MOVIMIENTOS.NUMCONS}=" & cons Else mvarSelecctionFormula = "{MOVIMIENTOS.CVEACT}={ACTIVOS.CVEACT} and {MOVIMIENTO.CVEUSU}={EMPLEADOS.CVEUSU} and {EMPLEADOS.ESTATUS}='A' and {MOVIMIENTOS.TIPMOV}={TIPOSMOV.CVETIMOV}" End If Obtiene_Formula = True End Function Private Sub cmdBusCons_Click() txtCons.Text = BusGrid.GetClaveTexto18("Bitacora de Movimientos" & lb_obs.Caption, ParamSis.CnstrDB, Trim(lb_obs.Caption)) txtCons.SetFocus End Sub | |
| Contestar |
| Pregunta: | 67155 - COMO GUARDAR INFO DE LA HORA Y UN CHECKBOX |
| Autor: | Lusbyn Morales |
| Buenos dias, amigos estoy trabajando con estructuras dinámicas y tengo el siguiente problema:
TENGO MI FORM YA LISTO CON TODOS LOS CAMPOS DE TEXTOS VALIDADOS PERO QUIERO QUE EN UN TEXT CUANDO YO INTRUDUZCA LA HORA TAMBIEN ME LA GUARDE AL PULSAR EL BOTON GUARDAR Y ME LA MUESTRE CUANDO PULSE EL BOTON MOSTRAR DATOS. Otra pregunta es, tengo dos checkbox y quiero que también me guarde la selección y cuan do consulte la información me muestre esa opción seleccionada en un label, ejemplo: o Un ckeck me da opción a seleccionar Maracaibo o Otro ckeck me da opción a seleccionar Barquisimeto Al momento de guardar la información yo selecciono Barquisimeto y cuando la hago la consulta en el label no me sale nada. Ojo no estoy trabajando con base de datos por ahora. | |
| Contestar |
| Pregunta: | 67156 - MACRO EN EXEL |
| Autor: | Ariel Santillan |
| hola, estoy haciendo una macro en exel, y quiciera saber como puedo hacer para combinar 12 checkBox ya que tengo problemas a la hora mostrar solo los que estan seleccionados. por ejemplo si solo el checkBox10 esta seleccionado que se visualice en A1, y si hay seleccionados varios que se visualice desde A1 en adelante, nose como hacer para mostrar en la planilla solo los estan tildados y en orden desde A1 sin importar el checkBox que este seleccionado. Espero sepan ayudarme desde ya muchas gracias. | |
| Contestar |
| Pregunta: | 67185 - ANALÍSTA DE INFORMACIÓN |
| Autor: | Roberto Torres |
| Nesecito un Macro que haga lo siguiente:
Tengo Excel 2010, y quiero hacer un macro que cuando escriba un texto en minúscula en los celdas A1, B1 Y C1, luego de darle 'ENTER" lo escriba en mayúscula. Apenas he realizado un Macro. Me pueden ayudar. | |
| Contestar |
| Pregunta: | 67204 - REORDENAR Y REASIGNAR CODIGOS |
| Autor: | Jesus Gomes Gomes |
| buenas estoy trabajando en un secillo sistema en visual basic 2010 con una base de datos en access de formato ".MDB" a continuacion detallo:
tengo una tabla de nombre personas que se compone del campo ID (el pk) y el campo NOMBRE actualmente tiene solo 4 registros ya que a traves del visual basic 2010 he estado haciendo pruebas tales como el guardado, edicion y borrado de datos en dicha tabla, mi problema es que actualmentreen mi tabla poseo la siguiente anomalia: ID NOMBRE 2 Jesus 10 Pedro 3 Andres 8 Juan estoy buscando la manera de realizar un algoritmo en visual basic 2010 que me permita ordenar y reasignar los codigos de tal manera que la tabla PERSONAS qede asi: ID NOMBRE 1 Jesus 2 Pedro 3 Andres 4 Juan porfavor necesito esa ayuda muchas gracias nota: que la explicacion sea detallada y paso a paso | |
| Contestar |
| Pregunta: | 67223 - GIF |
| Autor: | jose cardona |
| Hola disculpen, alguien me puede decir si se puede colocar un gif en un command button, thank | |
| Contestar |
| Pregunta: | 67226 - BORRAR TEMPORALMENTE LOS DATOS DE MI DATAGRIDVIEW SIN BORRAR |
| Autor: | Victor lopez |
| Hola bendiciones soy nuevo en esto de la programación quería saber como puedo eliminar temporalmente todos los datos de mi datagridview sin que trastoque nada en mi base de datos que tengo en acces 2010 tengo un formulario con los datos de una factura y quiero agregar varios productos a la factura reflejada en un datagrid pero cuando yo le doy en el botón de vender me aparece el registro que acabo de llenar pero tambien me aparecen los que ya e llenado anteriormente y yo no quiero eso. yo quiero que solo me aparescan los que actualmente estoy ingresando y luego se limpie al hacer la venta y se guarde en la base de datos y al hacer eliminar o limpiar solo se borren del datagridview Muchísimas gracias de antemano, si no me entienden me dicen porfavor, y el codigo que tenia es datagridview1.dataset =nothing pero eso solo me los limpia y luego me los vuelve a cargar después al hacer el corona de venta. Dios les bendiga amigos saludes | |
| Contestar |
| Pregunta: | 67240 - ¿CALCULAR PARA VISUAL BASIC 6.0? |
| Autor: | SOL amos |
| este pequeño programa para hacer una multiplicación y para sacar a la potencia pero quiero que text1 se multiplica por el mismo numero solo quisiera que en vez un numero se multiplique se multipliquen dos números a la vez en el text1 y text2 sirva para sacar la potencia y hacia salga el resultado
Private Sub Calcular_Click() Text1.Text = Text1.Text * Text1.Text ^ Text2.Text End Sub | |
| Contestar |
| Pregunta: | 67251 - DESACTIVAR UN BOTON DESPUES DE 2 INTENTOS |
| Autor: | Lusbyn Morales |
| Buenas tardes.
Amigos estoy haciendo un sistema vocacional y tengo el siguiente problema: Cuando una persona elige una carrera y despues de leer unas caracteristicas se da cuenta de que no le parece estudiarla puede realizar el test de nuevo a traves de un boton que lo lleva al inicio. Si ya la persona ha realizado el test de nuevo y cuando elige otra carrera se da cuenta de que tampoco le gusta ya no puede volver a realizar el test puesto que solo tiene una sola oportunidad. No consigo como hacer para que cuando la persona se equivoque por segunda vez se le bloquee ese boton. Atte. Lusbyn Morales | |
| Contestar |
| |< << 30 31 32 33 34 35 36 37 38 39 40 >> >| |