SoloCodigo

hola a todos como estan espero que bine bueno le paso a comentar, tengo un formulario el cual transforme en ejecutable, cuando lo ejecuto funciona sin problemas, cree un boton salir, pero el formulario tambien una X la cual te permite cerrar la aplicacion pero resulta que igual queda en proceso como hago para que cuando un usuario cierre desde la X el la aplicacion se cierre y no quede en memoria?, espero que me puedan ayudar gracias y saludos adios

hola a todos como estan espero que bien bueno aqui estoy de nuevo con una consulta resulta que tengo varios textbox y combobox y resulta que quiero hacer un boton que limpie todo estos textbox, mi pregunta es habra alguna funcion que limpie todos los combo y los text si estar escribiendo text1.text ="", combo1.text="" si alguien conoce alguna manera de hacerlo seria genial les dejo esta pregunta mientras seguire buscando la respuesta si la encuentro la publico gracias a todos adios

hola a todos amigos espero que esten muy bien bueno aqui estoy de nuevo haciendo consultas jejeje , lo que pasa es que estoy tratando de hacer una busqueda por un campo determinado pero encuentro que el codigo es demasiado grande y ademas busca por un solo registro, mi pregunta es como puedo hacer una busqueda pero que busque en la base por un dato especifico y que me muestre ese dato. ej.
nombre  depto       ciudad  fono.
carlos     los paltos lillos     133
esa es la base con esos registros ya y por ejemplo esta carlos y quiero buscar por ejemplo por "los", y deberia o buscar cualquiera que empiece o termine o incluso entre medio de la palabra "los", alguien sabe como se hace. yo tengo un codigo pero no se si funciona les muestro.

option explicit
Dim a As Database  'base datos
Dim b As Recordset 'maestro atenciones
Dim c As Recordset 'direeciones
Dim d As Recordset 'tabla_tecnicos
Dim e As Recordset 'equipamiento_atendido


Private Sub Cmdbuscar_Click()
Do While b.EOF = False
    If Text1.Text = b("folio_atencion") Then
        Text2.Text = b("fecha_llamado") & ""
        Text3.Text = b("hora_llamado") & ""
        Text4.Text = b("usuario_atencion") & ""
        Combo1.Text = b("direccion_depto") & ""
        Text5.Text = b("n_oficina") & ""
        Text6.Text = b("fono_anexo") & ""
        Text7.Text = b("problema_descrito") & ""
        Combo2.Text = b("tipo_problema") & ""
        Combo3.Text = b("tecnico_asignado") & ""
        Text8.Text = b("fecha_atencion") & ""
        Text9.Text = b("hora_salida_atencion") & ""
        Text10.Text = b("hora_inicio_atencion") & ""
        Text11.Text = b("hora_termino_atencion") & ""
        Text12.Text = b("hora_llegada_atencion") & ""
        Text13.Text = Text1.Text
        Text26.Text = b("problema_detectado") & ""
        Text25.Text = b("solucion_atencion") & ""
        Text22.Text = b("obs_atencion") & ""
        Combo4.Text = b("estado_atencion") & ""
        Text23.Text = b("derivado") & ""
        Text24.Text = b("fecha_cierre_atencion") & ""
        If b("mti") & "" = True Then
        Check1.Value = True
        Else
        Check1.Value = False
        End If
        b.MoveNext
    Else
        b.MoveNext
    End If
Loop
Do While e.EOF = False
    If Text1.Text = e("folio_de_atencion") Then
        Text13.Text = e("folio_de_atencion")
        Text14.Text = e("numero_serie") & ""
        Combo5.Text = e("tipo_equipo") & ""
        Text16.Text = e("marca_equipo") & ""
        Text17.Text = e("modelo_equipo") & ""
        Text18.Text = e("nombre_tecnico") & ""
        Text19.Text = e("problema_detectado") & ""
        Text20.Text = e("tipo_falla") & ""
        Text21.Text = e("estado_falla") & ""
        e.MoveNext
    Else
        e.MoveNext
    End If
Loop
If Text2.Text = "" Then
    MsgBox "No se Encontro Folio", vbInformation, "Busque Nuevamente"
    Call limpiar
    Call cargar
    b.MoveFirst
    c.MoveFirst
    d.MoveFirst
    e.MoveFirst
    Text1.SetFocus
Else
    Text4.SetFocus
End If

End Sub

Private Sub Form_Load()'aqui esta la base donde me conecto
Set a = OpenDatabase("\\Obiwan\soporte\bd1.mdb")
Set b = a.OpenRecordset("maestro_atenciones")
Set c = a.OpenRecordset("CCOSTOS")
Set d = a.OpenRecordset("tabla_tecnicos")
Set e = a.OpenRecordset("equipamiento_atendido")
End Sub


esto es lo unico que se me ocurrio hacer pero es muy fome pk busca por un solo regitro y ademas completo y yo quiero que busque en cualquier registro y que busque lo que yo escribo no se si se entiende, bueno si alguno de ustedes me puede mostrar como hacerlo no que me lo hagan o me explique como hacerlo con algun ejemplo seria genial bueno si es que alguien puede hacer algo para echarme la manito con esto se lo agradeceria mucho cuidense que esten muy bien adios y muchas gracias  

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 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

hola a todos:
miren tengo un combobox no tenog ningun problema lo que necesito saber es como hago que cuando escriba una palabra en el que la valla autorellenando no se si me explico

ej.

Combo4.AddItem "SIN ATENCION"
Combo4.AddItem "EN TERRENO"
Combo4.AddItem "EN GARANTIA"
Combo4.AddItem "DERIVADO"
Combo4.AddItem "EN LABORATORIO"
Combo4.AddItem "EN OBSERVACION"
Combo4.AddItem "PARA COTIZAR"
Combo4.AddItem "SOLUCIONADO"
Combo4.AddItem "PENDIENTE"

y cuando escribo en el texto del combo box algo como "SIN......" se valla autorrellenando y que aparesca "SIN ATENCION" no se si me explique bien y si alguien sabe como se hace porfavor que me ayude es que soy un bebe en visual jajaja estoy dando mis primeros pasos y me han ayudado mucho en este foro y porfavor si alguien sabe se lo agredasco adios que esten bien bye

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
 

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