SoloCodigo

Hola Neorent.

Primero que todo te recomiendo que no escribas todo en mayúsculas porque pareciera que estuvieses gritando , además se hace difícil la comprensión del mensaje.

Bueno ahora pasemos a lo que interesa , tenia la misma duda y un compañero de este foro me pasó la respuesta ahora yo lo haré contigo .

dim suma as variant
dim Hora1 as string, Hora2 as string, Hora3 as string

suma = Format(TimeValue(Hora1) + TimeValue(Hora2)+ TimeValue(Hora3), "hh:mm:ss")

'Lo unico que debes tener en cuenta es el format de la hora.
'Espero te funcione para lo que necesitas.

bueno muchas gracias por tu ayuda ("si escribi con mayuscula era pok estaba apurado y debia irme a casita del trabajo sorry )
bueno ahora no lo puedo probar pero lunes llegando al trabajo lo pruebo y te cuento y gracias por tu ayuda hasta luego que este muy bien adios

HOLA A TODOS AMIGOS:

   BUENO LES COMENTO NECESITO SABER COMO SUMAR O RESTAR O NO SE COMO DECLARAR UNA VARIABLE DE TIPO NO SE HORA, POR EJEMPLO YO HAGO ESTO PERO NO RESULTA.

PUBLIC HORA AS DATE
PUBLIC HORA 1 AS DATE
PUBLIC HORA 2 AS DATE
PUBLIC HORA 3 AS DATE

LUEGO EN EL SISTEMA HAGO LO SIGUIENTE
HORA1=b("HORALLAMADO") '10:30:00
HORA2=b("HORAINICIO")'10:45:00
HORA3="12:00:00" '/SUSPUESTAMENTE QUEDA COMO 12:00:00 PM
LUEGO HAGO ESTO
HORA=HORA2-HORA1 '/YA QUE HORA2 SIEMPRE ES MAS ALTO POR QUE LO DA EL SISTEMA
ENTONCES HORA DEBERIA TENER EL VALOR 00:15:00
COMO HAGO ESTO JAJAJA NO SE SI ES MUY COMPLICADO PERO ESPERO QUE SEA ALGO ASI BUENO AMIGOS LES ENCARGO ALGUNA AYUDAITA YA QUE ESTEN BIEN ADIOS Y MUCHAS GRACIAS

HOLA A TODOS:

     BUENO LES COMENTO, ESTOY HACIENDO UNA PEQUEÑA APLICACION LA CUAL TRABAJA CON UNA BASE ACCESS97 Y NECESITO RECUPERAR DATOS ATRAVES DE LA FECHA CIERTO, BUENO TENGO UN RANGO POR EJEMPLO BUSCAR TODOS LOS "USUARIOS" ENTRE "01-01-06 Y 07-01-06" YA SE HACER LA BUSQUEDA LO QUE NO SE HACER ES COMO AUMENTAR LA FECHA DE UNO EN UNO, OSEA QUE SI INGRESO 01-01-06 Y YA ENCONTRE LO QUE NECESITA QUE SE SUME UNO Y QUEDE ASI 02-01-06 Y BUSQUE LO QUE NECESITO Y ASI SUCESIVAMENTE ALGUIEN ME PODRIA DECIR COMO HAGO ESTO? MMMM... NO TENGO INSTALADAS LAS MSDN DE VISUAL 6.0, TAMPOCO SOY MUY CONOCEDOR DE VISUAL ASI QUE SI ALGUNO DE USTEDES GRANDES MAESTROS DEL CODIGO SABE COMO HACERLO LES PIDO QUE ME AYUDEN O ME GUIEN COMO HACERLO NO PIDO QUE LO HAGAN SI NO QUE ME EXPLIQUEN CON ALGUN CODIGO CHICO COMO LE SUMO UNO A LA FECHA OK ESPERO ALGUNA RESPUESTA YA MUCHAS GRACIAS A TODOS QUE ESTEN BIEN  ADIOS  

cuando abras el recordset lo tienes que hacer con una sentencia SQL

set rs = db.openrecordset("SELECT * FROM folio ORDER BY campo")

HOLA MIRA DESEO QUE VEAS ESTE CODIGO Y ME DIGAS PK ME ARROJA UN ERROR QUE NO ENTIENDO PK SUCEDE SI ESTOY HACIENDO TODO BIEN Y QUIZAS ALGUNA PARTE DEL CODIGO ESTA MAL ME PUEDES INDICAR CUAL PUEDE SER?
TE  LO AGRADESCO ADIOS

Option Explicit
Private db As Database
Private rs As Recordset

Private Sub Command7_Click()
End
End Sub

Private Sub Form_Load()
Const sPathBase As String = "\\obiwan\soporte\prueba\bd1.MDB"
Set db = OpenDatabase(sPathBase)
Set rs = db.OpenRecordset("SELECT * FROM maestro_atenciones", dbOpenDynaset)
With ListView1
       
        .View = lvwReport
       
        .GridLines = True
     
        .LabelEdit = lvwManual
   
        .ColumnHeaders.Add , , "Folio atencion", 800
        .ColumnHeaders.Add , , "Nombre Usuario", 2500
        .ColumnHeaders.Add , , "Tecnico Asignado", 1500, lvwColumnRight
    End With
End Sub
Private Sub cmdBuscar_Click()
   
    Dim sBuscar As String
    Dim tRs As Recordset
    Dim tLi As ListItem
    sBuscar = "SELECT * FROM maestro_atenciones WHERE Author LIKE '" & Text2 & "' ORDER BY usuario_atencion"
    Set tRs = db.OpenRecordset(sBuscar, dbOpenSnapshot)
    With tRs
        If (.BOF And .EOF) Then
            MsgBox "No se han encontrado los datos buscados"
        Else
            ListView1.ListItems.Clear
            .MoveFirst
            Do While Not .EOF
                Set tLi = ListView1.ListItems.Add(, , .Fields("folio_atencion") & "")
                tLi.SubItems(1) = .Fields("usuario_atencion") & ""
                tLi.SubItems(2) = .Fields("tecnico_asignado") & ""
                .MoveNext
            Loop
        End If
    End With
End Sub


IGUAL TE ADJUNTO el formulario por si acaso pero la base no puedo pk resulta que pesa mas de 2 mb y el foro no lo soporta creo? bueno gracias y que estes bien adios

hola a todos:
bueno tengo una base de datos access97 y una aplicacion la cual se conecta a esta lee, graba y todo eso, pero lo que necesito ahora es hacer que una busqueda pero es desordenada pero no se repiten los campos que busco pero quiero mas o menos que sea ordenado no se si me explico bueno les adjunto el codigo que tengo y ustedes me cuentan como lo puedo hacer o mejorar si es que se puede hacer algo  gracias a todos.

Dim a As Database
Dim b As Recordset
Dim c As Recordset
Const mstrAppTitle = "Alpicacion"

Private Sub Command1_Click()
Unload Me
Form2.Show
End Sub

Private Sub Command2_Click()
Call folio
End Sub

Private Sub Command3_Click()
Frame1.Visible = False
Text1.SetFocus
End Sub

Private Sub Form_Load()
Set a = OpenDatabase("\\Obiwan\soporte\prueba\bd1.mdb")
Set b = a.OpenRecordset("maestro_atenciones")
Set c = a.OpenRecordset("equipamiento_atendido")
If b.RecordCount = 0 Then
    MsgBox "No Existen Registros", vbInformation, "Por Favor Ingrese"
Else
    b.MoveFirst
End If
If c.RecordCount = 0 Then
    MsgBox "No Existen Registros", vbInformation, "Por Favor Ingrese"
Else
    c.MoveFirst
End If

Frame1.Visible = False
End Sub


Sub folio()
b.MoveFirst
Do While b.EOF = False
    If Text1.Text = b("folio_atencion") Or Text1.Text = b("fecha_llamado") Or Text1.Text = b("hora_llamado") & "" Or Text1.Text = b("usuario_atencion") & "" Or Text1.Text = b("direccion_depto") & "" Or Text1.Text = b("n_oficina") & "" Or Text1.Text = b("fono_anexo") & "" Or Text1.Text = b("problema_descrito") & "" Or Text1.Text = ("tipo_problema") & "" Or Text1.Text = b("tecnico_asignado") & "" Then
        Frame1.Visible = True
        Text2.Text = b("folio_atencion")
        Text3.Text = b("fecha_llamado") & ""
        Text4.Text = b("hora_llamado") & ""
        Text5.Text = b("usuario_atencion") & ""
        Text6.Text = b("direccion_depto") & ""
        Text7.Text = b("n_oficina") & ""
        Text8.Text = b("fono_anexo") & ""
        Text9.Text = b("problema_descrito") & ""
        Text10.Text = b("tipo_problema") & ""
        Text11.Text = b("tecnico_asignado") & ""
        Text12.Text = b("fecha_atencion") & ""
        Text13.Text = b("hora_salida_atencion") & ""
        Text14.Text = b("hora_inicio_atencion") & ""
        Text15.Text = b("hora_termino_atencion") & ""
        Text16.Text = b("hora_llegada_atencion") & ""
        Text17.Text = b("problema_detectado") & ""
        Text18.Text = b("solucion_atencion") & ""
        Text19.Text = b("obs_atencion") & ""
        Text20.Text = b("derivado") & ""
        Text21.Text = b("mti") & ""
        Text22.Text = b("fecha_cierre_atencion") & ""
        Text23.Text = b("estado_atencion") & ""
        b.MoveNext
        If MsgBox("Desea Continuar", vbYesNo, mstrAppTitle) = vbNo Then
            MsgBox "Esto le hara salir", vbInformation, "Continue"
            Exit Do
        End If
    End If
If b.EOF = True Then
b.MoveFirst
End If
b.MoveNext
Loop

End Sub


bueno alguno de ustedes me puede ayudar se los agradesco que esten muy bien y muchas gracias adios

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
    sHora = Text1.Text
    If EsHora(sHora) = True Then
        'CODIGO CUANDO LA HORA ES CORRECTA
    Else
        MsgBox "Hora incorrecta", vbInformation, "Advertencia"
        Text1.Text = ""
        Text1.SetFocus
    End If
End If
End Sub

Public Function EsHora(ByVal LaHora As String) As Boolean
'Verifica que tenga el separador de hora y minutos
EsHora = False
pos = InStr(LaHora, ":")
If pos > 0 Then
    'Obtengo la Hora
    sHora = Mid(LaHora, 1, pos - 1)
    'Obtengo los minutos
    sMinutos = Mid(LaHora, pos + 1, Len(LaHora) - pos + 1)
    'Verifico que sean numericos la Hora y Minutos
    If IsNumeric(sHora) And IsNumeric(sMinutos) Then
        'Valido el rango de las horas
        If CDbl(sHora) >= 0 And CDbl(sHora) <= 23 Then
            'Valido el rango de los minutos
            If CDbl(sMinutos) >= 0 And CDbl(sMinutos) <= 59 Then
                EsHora = True
            End If
        End If
    End If
End If
End Function

wow te pasaste esta super bueno y funciona a la perfeccion
muchisimas gracias que estes bien adios

Pon la propiedad Style del combo a Dropdown List.

Saludos,

muchas gracias saludos

hola amigos bueno no se que paso
pero tengo una aplicacion la cual funciona con access 97 resulta que no me reconoce las tablas ni nada de eso se que es una referencia pero no se cual es si alguien me puede ayudar se los agradeceria muchisimo que esten muy bien adios y muchas gracias a todos

Yo tuve problemas con un campo de indice auto numérico, que ya no quiso avanzar el índice, pero fue con DAO, cuando pasé la base de datos de Office 97 (Access Jet 3.5) a Office 2000 (Access Jet 3.6)

Si este puede ser tu problema, busca en Microsoft o Google lo referente al artículo con el siguiente número: Q202117


---------------------------------------------

si es ese el problema pero sabes yo no he migrado la base de datos sigue estando en access 97 asiq eu no entiendo cual podria ser la razon pero se estanco y no quiere avanzar igual pense que podia haberse descargado mal desde el servidor pero no la he descargado como 10 veces y el problema persiste igual me gustaria saber cuales son la referencias necesarias pk quizas puede ser una referencia que este faltando creo no se pk ahora le dio por mandar un error de.

No coinciden los tipos (Error 13)
y cuando depuro me marca esta linea de codigo
Set b = a.OpenRecordset("tabla_tecnicos")
no se porque pero creo que es pk falta una referencia
si me pueden ayudar se los agradeceria muchisimo que esten bien adios

hola a todos espero que esten muy bien
bueno les cuento:
   tengo el siguiente problema tengo una base de datos access 97 la cual tiene como 5 tablas es algo bien chico pero super util y resulta que esta tabla se encuentra en un servidor y estoy diseñando una aplicacion que lea esta bases y por ejemplo tengo la tabla maestro la cual funciona con un indice auto numerico y siempre leo el ultimo registro para tomar el valor y sumarle uno para agregar uno nuevo, por ejemplo el ultimo en la tabla es "Folioatencion" y su valor es "2001" si yo quiero agregar uno nuevo le sumo uno osea seria "folioatencion" y su valor es "2002" esto funcionaba super bien pero la ultima ves que descargue la base de datos ya no puedo tomar el ultimo valor del folioatencion el codigo de busqueda es el siguiente

 Private Sub Form_Load()
 Set a = OpenDatabase(App.Path & "\bd1.mdb")
 Set b = a.OpenRecordset("maestro_atenciones")
 If b.RecordCount = 0 Then
     MsgBox "No Existen Registros", vbInformation, "Por Favor Ingrese"
 Else
     b.MoveLast
 End If
 Dim folio As Integer
 folio = Val(b.Fields("folio_atencion"))
 Text1.Text = Val(Text1.Text) + folio
 Text1.Text = Val(Text1.Text) + 1
 end sub

y supuestamente deberia funcionar por favor si alguien me puede ayudar o no entendio lo que trate de explicar que escriba aqui y le constesto please,
muchas gracias a todos por su ayuda adios
 

La siguientes rutinas, cambia de color al textbox, regresa al usuario al mismo TextBox y le permite solo se equivoque 2 veces, si esto sucede entonces en forma predeterminada escribe la fecha actual.

Código: Text

1.  
2. Private Sub txtFechaDeLaHistoria_GotFocus()
3.     txtFechaDeLaHistoria.BackColor = &HC0FFFF
4. End Sub
5.  
6. Private Sub txtFechaDeLaHistoria_LostFocus()
7.     Static Cnt As Integer
8.     If Not IsDate(txtFechaDeLaHistoria.Text) Then
9.         gstrMsg = &#34;La fecha de la nota de consulta no es válida. Ejemplo: 24/12/2005 (día/mes/año)&#34;
10.         MsgBox gstrMsg, vbCritical, gstrAppTitle
11.         If txtFechaDeLaHistoria.Text = &#34;&#34; Then
12.             txtFechaDeLaHistoria.Text = Format(Date, &#34;dd/mm/yyyy&#34;)
13.         End If
14.         If Cnt &#62;= 1 Then
15.             txtFechaDeLaHistoria.Text = Format(Date, &#34;dd/mm/yyyy&#34;)
16.             Cnt = 0
17.         End If
18.         Cnt = Cnt + 1
19.         txtFechaDeLaHistoria.SetFocus
20.         Exit Sub
21.     End If
22.     txtFechaDeLaHistoria.BackColor = &H80000005
23. End Sub
24.  
25.  

-----------------------------------------------------------

hola cpmario
muchas gracias por tu ayuda pero sabes solo soy un aprendis en visual y no se mucho, me gustaria si es existe la posiblidad de que mas o menos me expliques el codigo pk igual se entiende pero no se como ocuparlo jajaja  te agradeciria mucho si pudieses hacer algo te lo agradeceria mucho hasta luego qeu estes muy bien y gracias
 

hola a todos:


BUENO TENGO UNA BASE DE ACCESS97 Y DESEO A TRAVES DE UN COMMAND LLAMAR A UN INFORME HECHO EN ESTA Y PODER VERLO NO SE SI SE PUEDE?
MUCHAS GRACIAS A TODOS