Iniciar sesiónCerrar
Correo:
Contraseña:
Entrar
Recordar sesión en este navegador
Iniciar sesiónIniciar sesiónCrear cuentaCrear cuenta
LWP » Preguntas/Respuestas » Preguntas por Contestar - Visual Basic

PREGUNTAS POR CONTESTAR - Visual Basic

Volver
Agregar una pregunta
Buscar mis preguntas
Buscar
 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  >>  >|