SoloCodigo

bueno espero que poder explicarme, miren estoy haciendo una funcion donde solo necesito que me devuleva un valor osea yo le pido un valor, se puede hacer, bueno si yo tengo una variable donde quiero que reciba el valor de la funcion llamada como puedria hacerlo, bueno les presento el code y ustedes me dicen que cambio bueno gracias chicos.

hola amigos que tal, bueno tengo una consulta, duda y no se como hacerlo espero que me puedan guiar o ayudar, bueno lo unico que quiero hacer es colocar un video en mi pagina no se si se puede con php, quiero que cuando se haga click en inciar empiece el video, no tengo ni las mas minima idea de como empezar por eso consulto aca, bueno si alguien sabe como o tiene algun code o algo se lo agradeceria, lo que pasa que mi pagina debe mostrar un par de noticias y me gustaria que la gente la viera, por ejemplo colocar un video no se de musica y que lo vean y escuchen y listo eso es gracia amigos espero me echen una ayudita con esta ocurrencia mia adios

que tal amigo bueno no se como se hace pero hice una consulta por distintas cosas en mi base con distintas tablas pero resulta que quiero sumar dos variables con  valores de hora pero no me  resulta le dejo el code y me dicen donde esta mal gracias



pero resulta que no me muestra un valor real asi por decir algo que $tiempo_mov=0:10:00 y que $i_trabajo=4:30:00 creo la suma seria de $total=4:40:00 pero no me lo muestra asi por eso acudi a ustedes gracias y adios

que tal amigos del foro, bueno aqui con otra inquietud, bueno les explico si no se entiende please preguntar gracias, bueno ahi les va, tengo tres tablas las cuales son tbl_are, tbl_direcciones y tbl_unidades, bueno tengo un formulario, en este formulario cree unos codes php para llenar un par de select, el cual se los muestro a continuacion,

para llenar area.
<?php
   $link=mysql_connect("localhost","root", "");
   $link1=mysql_select_db("db_soporte",$link);
   $result=mysql_query("select * from tbl_area ORDER BY `id_area` ASC ");
   echo '<select name="area" tabindex="2">';
   while ($row=mysql_fetch_array($result))
   {echo '<option>'.$row["des_area"];}
   echo "</select>";
   mysql_free_result($result);
?>

bueno es esto mismo para los otros dos, bueno resulta que me pidieron que al momento de seleccionar un area, debe cargarme otro select pero con las direcciones de esta area, bueno tengo todas las direcciones y por ejemplo tengo el area de administracion y finanzas y si selecciono esa area el otro select deberia solo mostrar las direcciones de esa area osea si tomamos administracion y finanzas deberia cargar, rrhh, informatica etc. bueno la tabla direcciones tiene los campos id_area, id_direccion y des_direccion, bueno si mas o menos entienden que es lo que quiero hacer y me pueden ayudar seria genial, pero si hay algo no que entendieron solo posteen no mas y les explico pero se que no es dificil pero el problema es que no se mucho php estoy recien lanzandome a la  vida con esto he visto manuales pero no tengo una idea clara de como hacerlo pero eso solicito su ayuda muchas gracias amigo del foro.

que tal amigo de solocodigos, bueno les paso a comentar, estoy almacenando la hora y fecha en mi tabla pero no me guarda la hora le presento el code donde almaceno.


esta se llama graba_db.php


y este es donde ingreso.


se supone que en el input hora le asigno el valor de la hora del sistema lo mismo que en el input de fecha, pero cuando la almaceno en la tabla me la graba en asi 00:00:00 entonces no comprendo que es lo que pasa si alguien me puede decir donde esta el error o si debo cambiar algo se lo agradeceria llevo 5 horas tratando de solucionar esto y no me resulta, muchas gracias a todos.

Que tal amigos del foro, bueno tengo el siguiente problema,  tengo un formulario de ingreso donde al presionar el boton guardar me imprime en una hoja de excel todo los datos de este formulario, y resulta que la fecha me la imprime al reves y excel la toma como si estuviera bien, osea yo ingreso 04-09-06 y excel me lo toma 09-04-06 entonces esto me provoca problemas les puedo dejar el code para que le echen un vistazo y me digan donde cambio algo o donde esta el problema gracias.


Private Sub Command1_Click()
    If MsgBox("Desea Imprimir el Folio", vbYesNoCancel, mstrAppTitle) = vbYes Then
         Call imprimir
         Call grabar
    ElseIf MsgBox("Desea Imprimir el Folio", vbYesNoCancel, mstrAppTitle) = vbNo Then
        Call grabar
    Else
        MsgBox "Ha cancelado la Grabación del Folio"
        Call limpiar
        Call cargar
        Call obtener
    End If
End Sub

Sub grabar()
b.AddNew
b("folio_atencion") = Text1.Text
b("fecha_llamado") = Text2.Text
b("hora_llamado") = Text3.Text
If Text4.Text = "" Then
    Text4.Text = "Sin Usuario"
End If
b("usuario_atencion") = Text4.Text
If Combo8.Text = "" Then
    Combo8.Text = "sin Direccion"
End If
b("direccion_depto") = Combo8.Text
If Text5.Text = "" Then
    Text5.Text = "0000"
End If
b("n_oficina") = Text5.Text
If Text6.Text = "" Then
    Text6.Text = "0000000"
End If
b("fono_anexo") = Text6.Text
If Text7.Text = "" Then
    Text7.Text = "Sin Problema"
End If
b("problema_descrito") = Text7.Text
If Combo2.Text = "" Then
    Combo2.Text = "Sin Tipo Problema"
End If
b("tipo_problema") = Combo2.Text
If Combo3.Text = "" Then
    Combo3.Text = "Sin Tecnico"
End If
b("tecnico_asignado") = Combo3.Text
If Combo4.Text = "" Then
    Combo4.Text = "Sin Estado Atencion"
End If
b("estado_atencion") = Combo4.Text
b.Update
MsgBox "Se Agrego el Nuevo Folio"


Sub imprimir()
Dim ApExcel As Variant
Set ApExcel = CreateObject("Excel.application")
ApExcel.Visible = True
ApExcel.Workbooks.Open (App.Path & "\Formulario de Soporte Tecnico a Terreno.xls")
ApExcel.cells(1, 1).Font.Size = 12
ApExcel.cells(8, 7).formula = Text1.Text 'folio
ApExcel.cells(9, 4).formula = Text4.Text 'nombre usuario
ApExcel.cells(9, 7).formula = Text6.Text 'fono anexo
ApExcel.cells(10, 4).formula = Combo8.Text 'direccion
ApExcel.cells(10, 7).formula = Text5.Text 'oficina
ApExcel.cells(11, 7).formula = Combo3.Text 'tecnico
ApExcel.cells(14, 3).formula = Text7.Text 'problema
ApExcel.cells(5, 6).formula = Text2.Text 'fecha llamado
Set ApExcel = Nothing
End Sub


no se cual puede ser el problema ya lo vi en la celdas del excel y esta bien, le di un formato desde visual que fuera asi Text2.Text = Format(Now, "dd-mm-yyyy"), y el formato del text tambien es asi, espero me puedan ayudar gracias adios

que tal amigo de solocodigo, bueno paso a hacer la siguiente consulta estoy diseñando una pagina web en dreamweaver 8 y estoy programando con php y quisiera saber como hago que me muestre la hora y la fecha del sistema en la pagina si alguien tiene alguna idea de como se hace porfavor comentarlo aqui ya que no se como se hace y me gustaria que echaran la manito please gracias y saludos a todos

que tal!!!!!! amigos del foro; bueno aqui para variar con algunas dudas y espero que me puedan ayudar, resulta que quiero enviar un correo desde visual, osea presionar un boton y que se envien algunos campos selecionados, mail destinatario, asunto, descripcion, no se si se podra espero que si bueno todo estos datos recien mencionados son escritos en la aplicacion y quisiera saber como lo puedo hacer, ademas de abrir outlook desde visual me gustaria saber como le paso informacion osea como ingreso el nombre del destinatario desde visual y eso, bueno espero que me puedan ayudar amigos y bueno cuidense y adios

hola a todos debe ser un poco extraña mi pregunta pero quiero explicarles a ver si me entienden, resulta que quiero saber si se puede declarar una variable que sea de tipo campo ¿que se preguntaran ustedes?, bueno resulta que estoy hacendo una busqueda y tengo un combo box en cual si tu selecionas buscar por nombre esta variable tome el campo "nombre" de la tabla, se puede hacer esto?, no se si pueda hacer trate de hacerlo tipo field y no me resulta, quizas me puedan dar una mano, a ver les dejo el code para que lo vean.


Option Explicit
Public var As Field


Private Sub Command1_Click()
Buscar
End Sub

Private Sub Form_Load()
Dim base As Database
Dim rst_base As Recordset
Dim rst_paterno As Recordset
Dim deptos As Recordset
Dim maestra As Recordset
Dim Archivo As String
Dim Nro As Double
Dim msg As String
Dim ruta As String

Archivo = App.Path & "\rutabasesoporte.TXT"
If Dir(Archivo, vbArchive) = "" Then
MsgBox "No existe archivo de configuracion de RUTA", vbInformation, "Advertencia"
Else
Nro = FreeFile
Open Archivo For Input As #Nro
Input #Nro, ruta
'Close (Linea)
End If
Call limpiar
Set base = OpenDatabase(ruta)
Set rst_base = base.OpenRecordset("select [folio_atencion] from maestro_atenciones order by folio_atencion;", dbOpenDynaset, dbConsistent, dbOptimistic)
    rst_base.MoveNext
    rst_base.MoveFirst
Set rst_paterno = base.OpenRecordset("select * from maestro_atenciones;", dbOpenDynaset, dbConsistent, dbOptimistic)
    If rst_paterno.RecordCount > 0 Then
        rst_paterno.MoveNext
        rst_paterno.MoveFirst
       
    End If
Combo1.AddItem "USUARIO"
Combo1.AddItem "DIRECCION / DEPTO"
Combo1.AddItem "TELEFONO"
Combo1.AddItem "ANEXO"
Combo1.AddItem "PROBLEMA REPORTADO"
Combo1.AddItem "ESTADO ATENCION"
Combo1.AddItem "FOLIO DE ATENCION"
End Sub

Sub INICIARGRILLA()
    With hfgGrillaP
        .ColWidth(0) = 2000: .TextMatrix(0, 0) = "FOLIO DE ATENCION"
        .ColWidth(1) = 2000: .TextMatrix(0, 1) = "NOMBRE DE USUARIO"
        .ColWidth(2) = 2000: .TextMatrix(0, 2) = "DIRECCION / DEPTO"
        .ColWidth(3) = 2000: .TextMatrix(0, 3) = "PROBLEMA REPORTADO"
        .ColWidth(4) = 2000: .TextMatrix(0, 4) = "TECNICO ASIGNADO"
        .ColWidth(5) = 2000: .TextMatrix(0, 5) = "ESTADO ATENCION"
        .ColAlignmentFixed = 3
        .ColAlignment(0) = 0
        .ColAlignment(1) = 0
        .ColAlignment(2) = 0
        .ColAlignment(3) = 0
        .ColAlignment(4) = 0
        .ColAlignment(5) = 0
    End With
End Sub

Sub Buscar()
Dim cont As Long
Dim hhhh As Integer
Dim rst_base As Recordset
Dim base As Database
Dim rst_paterno As Recordset
Dim maestra As Recordset
Dim totalpc As Integer
Dim porcentaje As Integer
Dim total As Integer
Dim Archivo As String
Dim Nro As Double
Dim msg As String
Dim ruta As String

Archivo = App.Path & "\rutabasesoporte.TXT"
If Dir(Archivo, vbArchive) = "" Then
MsgBox "No existe archivo de configuracion de RUTA", vbInformation, "Advertencia"
Else
Nro = FreeFile
Open Archivo For Input As #Nro
Input #Nro, ruta
'Close (Linea)
End If
hfgGrillaP.Clear
INICIARGRILLA

Set base = OpenDatabase(ruta)
If Combo1.Text = "USUARIO" Then
    var = rst_base("usuario_atencion") 'aqui es donde quiero que la variable var obtenga el valor de usuario atencion incluyendo el contenido
End If

Set rst_paterno = base.OpenRecordset("select * from MAESTRO_ATENCIONES  where var like '*" & Trim(Text1) & "*'order by [FOLIO_ATENCION]") 'text1 contine lo que voy a buscar

 With rst_paterno
 If .RecordCount > 0 Then
    .MoveLast
   .MoveFirst
    hhhh = .RecordCount
    hfgGrillaP.Rows = .RecordCount + 1
    For cont = 1 To .RecordCount
       hfgGrillaP.TextMatrix(cont, 0) = "" & ![folio_atencion]
       hfgGrillaP.TextMatrix(cont, 1) = "" & ![USUARIO_ATENCION]
       hfgGrillaP.TextMatrix(cont, 2) = "" & ![DIRECCION_DEPTO]
       hfgGrillaP.TextMatrix(cont, 3) = "" & ![PROBLEMA_DESCRITO]
       hfgGrillaP.TextMatrix(cont, 4) = "" & ![TECNICO_ASIGNADO]
       hfgGrillaP.TextMatrix(cont, 5) = "" & ![ESTADO_ATENCION]
        .MoveNext
    Next
Else
    MsgBox "NO HAY DATOS", vbOKOnly, "ATENCION"
End If
    End With

End Sub

Private Sub hfgGrillaP_DblClick()
Dim pasar As String
pasar = Format(hfgGrillaP.TextMatrix(hfgGrillaP.Row, 0), "")
End Sub

bueno espero que me puedan ayudar muchas gracias adios.

hola a todos como estan, bueno aqui estoy de nuevo con una incertidumbre resulta que tengo una pequeña aplicacion en la cual a traves de una busqueda abre un archivo excel en el cual almacena por filas y columnas en las lineas que yo deseo pero mi consulta es la siguiente, uno en un archivo excel puede terner varias hojas cierto y bueno me gustaria saber como almacenar en un archivo excel que se llame por ejemplo "prueba.xls" y en  ese archivo tengo tres libros "hoja1" "hoja2" y "hoja3" como puedo decirle al visual que quiero, que almacene los datos en prueba.xls en libro1 lo siguiente "hola" y en libro2 "mamá", si alguien me puede ayudar seria genial bueno les dejo un pequeño code que tengo y quisiera saber si se puede mejorar ese mismo code o hay que hacer algo nuevo.

Sub imprimir()
Dim ApExcel As Variant
Set ApExcel = CreateObject("Excel.application")
ApExcel.Visible = True
ApExcel.Workbooks.Open (App.Path & "\Formulario de Soporte Tecnico a Terreno.xls")
ApExcel.cells(1, 1).Font.Size = 12
ApExcel.cells(8, 7).formula = Text1.Text 'folio
ApExcel.cells(9, 4).formula = Text4.Text 'nombre usuario
ApExcel.cells(9, 7).formula = Text6.Text 'fono anexo
ApExcel.cells(10, 4).formula = Combo1.Text 'direccion
ApExcel.cells(10, 7).formula = Text5.Text 'oficina
ApExcel.cells(11, 7).formula = Combo3.Text 'tecnico
ApExcel.cells(14, 3).formula = Text7.Text 'problema
Set ApExcel = Nothing
End Sub

bueno este es el code que yo ocupo si alguien sabe como se puede lo que les pido se los agradeceria mucho adios y gracias.

Hola a todos:
tengo un problemilla, resulta que he generado una consulta en access y a traves de esa consulta me genera un informe, bueno la pregunta es la siguiente se puede llamar a este informe desde visual?, si alguien sabe como se hace se lo agradeceria muchisimo ya que soy un bebe en esto y me gustaria saber como se hace se los agradesco muchisimo que esten muy bien adios y gracias

hola a todos;
bueno tengo un peuqeño problemilla, tengo tres aplicaciones con sus archivos de dependencia y cab y todo lo que se necesetita creo yo, para poder instalar mi aplicacion en cualquier windows, bueno mi pc en cual cree estas aplicaciones archivos de dependencias y cabs el sistema operativo es XP SP2 PRO con office97, y cuando trato de instalar esta aplicacion en en windows 98 o windows 95 me envia un error y dice que modificara algunos archivos y que se debe reiniciar bueno cuando se reinicia al cargar windows me dice que el archivo oleaut.dll algo asi esta dañado y bueno tengo ese archivo y despues lo instalo y luego cuanod vuelvo a ejecutar la aplicacion para instalarla me sale el mismo error, si alguien tiene idea de cual puede ser mi problema espero que me puedan ayudar, bueno tengo el visual basic 6.0 y sus respectivas mdsn y eso gracias adios.

hola a todos
bueno le comento tengo unos combo y quisiera hacer algo que no se como se hace o no se si se puede hacer, por ejemplo tengo 10 item en un combobox dropdown list, pero quiero saber si se puede hacer que al hacer doble click en el combo me permita ingresar un nuevo item que no exista en la tabla que tengo no se, si se puede hacer pero si se puede que alguien me comente como se hace pk ya intente hacer esto combo1.style = 0 o 2 y me manda error asiq ue si alguien sabe como se hace please que me ayude ok gracias adios