|
Mostrar Mensajes
|
Páginas: 1 2 [3] 4 5 6 7 8
|
21
|
Programación / Programación Visual Basic / Ejecutar aplicacion (Winsock)
|
en: 26 Diciembre 2007, 16:33 pm
|
Buenas colegas!
He visto que aqui se toca mucho el tema de winsock control y me surge una duda que seria interesante resolver para un mini chat que estoy haciendo.Es posible forzar la apertura de una aplicacion X que se encuentra en un ordenador de mi red privada, desde mi ordenador ?, lo que pretendo con esto es que si el usuario no abre el minichat, el cliente ejecute la apertura de la aplicacion que a la ves es la ventana de chat, gracias de antemano.
|
|
|
22
|
Programación / Programación Visual Basic / Referencia a formulario
|
en: 17 Diciembre 2007, 05:44 am
|
Hola amigos!, buenas noches. Tengo varios formularios en los que tengo un txt en comun, txtlegajo y tengo un formulario de consulta de empleados, cuando me posiciono en el txtlegajo de cualquier formulario y presiono F4 abro el formulario de consulta e inserto en un label invisible el nombre del form en el cual me encuentro, luego en el formulario de consulta tengo un listview con la columna Legajo y Apellidos, lo que intento es que al hacer doble click sobre el listview me inserte en el txtlegajo del formulario X o sea el que figura en el label el valor del item seleccionado en este caso el numero del legajo seria , no se si se entiende pero lo que trate es lo siguiente: Private Sub ListView1_DblClick() Dim Frm as Form Frm=Me.lblforma.Caption Frm.txtlegajo=Me.ListView1.SelectedItem.Text End Sub Pero no funciona, me dice "Uso no valido de la propiedad". De antemano gracias por su ayuda.
|
|
|
23
|
Programación / Programación Visual Basic / Sumar horas
|
en: 2 Diciembre 2007, 06:03 am
|
Buenas foreros!
les explioco todo paso por paso, tengo una tabla en la cual hay tres campos:
Entra Sale Total 21:00 23:00 2:00 16:00 19:00 3:00 21:00 23:00 2:00 10:00 20:00 10:00 etc...
El campo Total es de tipo string, ahora mi problema es que en un datareport que esta enlazado a esta tabla ue contiene los totales string ,necesito sumar todos esos totales que puede ser 9:00, 10:00, 12:59 , 15:59, o sea 46:59, he insertar el total en un label al final del reporte, es esto posible?, desde ya muchas gracias.
|
|
|
24
|
Programación / Programación Visual Basic / ActiveX mscomm 4.3
|
en: 24 Noviembre 2007, 17:00 pm
|
Hola amigos!
La verdad busque en todo la web y de todas las maneras posible este control version 4.3, incluso en la misma microsoft pero no logro dar con el control, alguien sabria de donde es posible descargarlo si es que es free, gracias de antemano.
|
|
|
25
|
Programación / Programación Visual Basic / Problema con bucle
|
en: 20 Noviembre 2007, 22:02 pm
|
Buenas muchachos, esperon puedan ayudarme.
Tengo por un lado una funcion que me genera numeros de recibos:
Public Function NumeroRecibo() 'Funcion para generar los nuevos numeros de legajo 'Determinamos cual es la liuidacion actualmente activa
'Dlookup es una funcion personalizada tambien con el mismo fin 'que la de access.
Dim Vperiodo As Single Vperiodo = Dlookup("liquidacion", "tbl_info", "liquidacion>" & 0, "") On Error GoTo Hay_err_err Dbpath = App.Path & "\bases\Base_actual.mdb" strSQL = "SELECT max(id)as resultado FROM tbl_liquidacion WHERE periodo=" & Vperiodo Set Db = DBEngine.OpenDatabase(Dbpath, False, False, ";pwd=" & StrPass) Set Rst = Db.OpenRecordset(strSQL) Rst.MoveFirst Rst.MoveLast If IsNull(Rst!Resultado) Then NumeroRecibo = 1 Else NumeroRecibo = Rst!Resultado + 1 End If Hay_err_exit: Rst.Close Db.Close Set Rst = Nothing Set Db = Nothing Hay_err_err: Select Case Err.Number Case 3024 MsgBox "Es imposible encontrar la base de datos. " & vbCrLf & vbCrLf & "Verifique que exista o que se encuentre en la ruta:" & App.Path & "\bases" & " e intente nuevamente", vbInformation + vbOKOnly, "Aviso!" Exit Function Case 3078 MsgBox "Es imposible encontrar la tabla: " & vbCrLf & vbCrLf & "Verifique que exista o que se encuentre en la base de datos" & "Base_Actual.mdb" & "e intente nuevamente", vbInformation + vbOKOnly, "Aviso!" Exit Function End Select
End Function
Por otro lado tango un control list view donde añado multiples items de multiples empleados y lo que pretendo es lo siguiente:
recibo legajo empleado 1 10 perez 1 10 perez 1 10 perez 2 11 gomez 2 11 gomez 2 11 gomez
el asunto es que no se como hacer para que por cada legajo repetido me repita el numero de recibo. El codigo que utilizo para cargar el listview es el siguiente:
Private Sub Command2_Click() On Error GoTo Hay_err_err Dim i As Integer Dim o As Integer Dim item As ListItem Dim cantidad As Integer Dim Grupo As Integer Dim concepto As Currency Dim Formula_Concepto As String Dim Formula_Cantidad As String Dim Publica_cantidad As Integer With ListView3 .SortKey = idconcepto .Sorted = True End With With ListView3 .SortKey = idlegajo .Sorted = True End With If (Me.ListView1.ListItems.Count = 0) Then MsgBox "No hay ningún concepto cargado en la lista", vbInformation Exit Sub End If If (Me.ListView2.ListItems.Count = 0) Then MsgBox "No hay ningún empleado cargado en la lista", vbInformation Exit Sub End If For i = 1 To Me.ListView3.ListItems.Count For o = 1 To Me.ListView1.ListItems.Count 'para evitar que se ingresen varios conceptos iguales If Me.ListView3.ListItems.item(i).SubItems(1) = Me.ListView1.ListItems.item(i) Then MsgBox "El/Los conceptos seleccionados" & vbCrLf & vbCrLf & "ya se encuentra cargado, no es posible repitir los conceptos", vbInformation + vbOKOnly, "Error" Exit Sub Else End If Next o Next i
'Me.ListView3.ListItems.Clear For i = 1 To Me.ListView1.ListItems.Count 'Cantidad de conceptos Formula_Concepto = Dlookup("formula_concepto", "tbl_conceptos", "codigo=" & Me.ListView1.ListItems.item(i), "") Formula_Cantidad = Dlookup("formula_cantidad", "tbl_conceptos", "codigo=" & Me.ListView1.ListItems.item(i), "") 'Establecemos el grupo para insertarlo en la columna correspondiente Grupo = Dlookup("grupo", "Tbl_Conceptos", "codigo=" & Me.ListView1.ListItems.item(i), "") 'Publica cantidad Publica_cantidad = Dlookup("publica_cantidad", "Tbl_Conceptos", "codigo=" & Me.ListView1.ListItems.item(i), "") For o = 1 To Me.ListView2.ListItems.Count 'Establecemos las variables de concepto y cantidad, o sea traemos la fomrula 'Evaluamos el resultado de las variables Formula_concepto y Formula_cantidad concepto = o_Script.Eval(Formula_Concepto) cantidad = o_Script.Eval(Formula_Cantidad)
Set item = Me.ListView3.ListItems.Add(, , Me.ListView2.ListItems.item(o)) item.ListSubItems.Add(1) = Me.ListView1.ListItems.item(i) item.ListSubItems.Add(2) = Me.ListView1.ListItems.item(i).ListSubItems.item(1) item.ListSubItems.Add(3) = "" item.ListSubItems.Add(4) = "" item.ListSubItems.Add(5) = "" item.ListSubItems.Add(6) = "" item.ListSubItems.Add(7) = Me.ListView1.ListItems.item(i).ListSubItems.item(2)
item.ListSubItems.Add(8) ='ACA ES DONDE NECESITO CARGAR EL NUMERO DEL RECIBO Next o Next i Hay_err_exit: Hay_err_err:
Select Case Err.Number Case 1002 MsgBox "La fomula es inevaluable" & vbCrLf & vbCrLf & "Verifique el contenido e intente nuevamente", vbInformation + vbOKOnly, "Aviso!" End Select End Sub
Gracias por su ayuda de antemano...
|
|
|
26
|
Programación / Programación Visual Basic / Re: Grupos en datareport
|
en: 30 Octubre 2007, 19:41 pm
|
Hola amigo, gracias por responder
Ya avia mirado este post pero francamente no encontre solucion en el ya que los reportes funcionan bien cuando conecto con dataenvironment pero cuando lo hago todo desde codigo me larga el mensaje de error que ante indique, gracias nuevamente por tu ayuda y sigo a la espera de alguna otra sugerencia.
|
|
|
27
|
Programación / Programación Visual Basic / Grupos en datareport
|
en: 30 Octubre 2007, 05:16 am
|
Buenas amigos, yo nuevamente, antes que nada muchas gracias por su ayuda.
el asunto es que tengo un informe conectado con ado y funciona perfecto pero cuando inserto un Encabezado/pie de Grupo e inserto un txtbox enlazado al rs, me larga el mensaje de error, "Las secciones del informe no coinciden con los dato ede origen",ese es mi problema y mi consulta para con uds, me imagino que a muchos les abra sucedido esto pero yo por mas que buscon en la web no consigo la solucion, desde ya muchas gracias por su tiempo.
|
|
|
28
|
Programación / Programación Visual Basic / Mas de ScriptControl
|
en: 28 Octubre 2007, 05:29 am
|
Buenas amigos, yo nuevamente con otro inconveniente.
La cuestion es que estoy trabajando con el el control este y me presenta una dificulatad, primero les pego el procedimiento como lo uso:
Dim o_Script As MSScriptControl.ScriptControl
Private Sub Form_Load()
' Inicializa la variable para usar el ScriptControl Set o_Script = New MSScriptControl.ScriptControl ' Establece como lenguaje VBScript o_Script.Language = "VBScript" o_Script.AddObject "Form1", Form1 End Sub
Ahora tengo unas funciones pongo dos:
Public Function suma(a, b) suma = a + b End Function
Public Function resta(a, b) resta = a - b End Function
Private Sub Command2_Click()
cantidad = o_Script.Eval(me.text1.text)
msgbox(cantidad)
end sub
ahora para ue el eval me tire el resultado de Suma(10,10) o sea msgbox(20), tengo que escribir en el text1: Form1.suma(10,10), es ahi donde tengo el problema, por lo que mi consulta es: existe alguna forma de evitar tener que especificar el nombre de la clase seguido del el nombre de la funcion? y solo pasar el nombre de la funcion para que evalue?, no se si se entiende, es que solo puse dos funciones sencillas pero tengo muchas y que necesito que se puedan evaluar mas prolijamente desde varios formularios sin tener ue poner nombreform.funcion..., o al menos poder llamar a dichas funciones desde un solo formulario pero sin tener que pasar el nombre del form, de antemano gracias por su ayuda.
|
|
|
30
|
Programación / Programación Visual Basic / Mas de listview(suma)
|
en: 23 Octubre 2007, 00:48 am
|
Buenas amigos y sepan disculpar mi insistencia.
He encontrado una funcion ue suma items en el listview que es la siguiente:
Private Function SumarGrupo(Grupo As Integer)
Dim i As Integer 'Recorre todos los items y para sumar los SubItems For i = 1 To ListView1.ListItems.Count If IsNull(ListView1.ListItems(i).SubItems(Grupo)) Then SumarGrupo = 0 Else SumarGrupo = SumarGrupo + CDbl(ListView1.ListItems(i).SubItems(Grupo)) End If Next i
End Function
Yo modifique lo de grupo para poder especificar la columna que deseo sumar, ahora el problema lo tengo cuando sumo una columan tal como:
DESCRIP. COl1 COl2 Concepto1 20 Concepto2 30 Concepto 3 10
Ya que hay ciertos items en los que queda nulo y ahi me larga error, por una cuestion estetica yo necesito que esos espacios queden vacios pero es el problema por el cual me tira el error, ojala puedan ayudarme, desde ya muchas gracias.
|
|
|
|
|
|
|