kieleze

Acá encontré el ejemplo que estaba buscando Private Sub cmdZona_Click() Dim Base As Database Dim Agenda As Recordset Set Base = OpenDatabase("c:\basededatos.mdb") Set Agenda = Base.OpenRecordset("SELECT * FROM Agenda WHERE Agenda.Codigo < 20") ' ESTA...

A mi con esto me funciona Private Sub Label1_Click() Text1.SetFocus End Sub Ejecutar la combinación de teclas es lo mismo que hacer click en el label Le puse &Aceptar al label Cuando apretaba alt + a pone el foco en el text1 espero que te sirva

Ok acá te paso algunas páginas http://guille.costasol.net/indice.asp http://www.geocities.com/vbp_es/index1.htm http://personales.com/espana/granada/vbpedrojose/vbpedrojose.html La primera página tiene varias lecciones donde te explica desde lo...

A ver... en una etiqueta tienes una LETRA... Y por ahí tienes un check box... A donde das la combinación de la letra... ¿para qué luego se active la caja de chequeo? Tal vez lo que qures hacer es algo así como acá en el explorer que Archivo la A esta...

Podes hacer algo como esto Establecer una constante y que esa sea la clave para la base de datos y luego usarla en todas las conexiones Eso es fácil con que te conectas ... ¿con dao o con ado? Bueno en cuanto a los usuarios... no hace falta...

Ok esto se hace con un timer Si por ejemplo es que necesitas que el form no haga nada... podrias crear una form con un timer... poner el form oculto y cuando lo necesites por ejemplo comand1_click formOculto.show ,vbmodal end sub formoculto load...

A ver esto es así Tienes que establecer la propiedad recordsource del ado Por ejemplo "SELECT * FROM tabla WHERE campoNOMBRE LIKE 'juan' AND campoNUMERICO = 123 Te pongo así para mostrarte que para comparar texto se usa LIKE y para comparar números =...

Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F}DatoParcela esto no lo tengo en ningun form... Y esto tampoco OleObjectBlob = "Datosparcela.dsx":0000 ... VERSION 5.00 Object = "{CDE57A40-8B86-11D0-B3C6-00A0C90AEA82}#1.0#0"; "MSDATGRD.OCX" Object =...

Eso se hace más o menos así SELECT * FROM tabla1 INNER JOIN tabla2 ON (campos en comun... supongo idcliente) WHERE Tabla1.idCLiente = " & txtCodigoCliente.text O sino también puedes realizar una consulta en access y utilizarla Es más fácil utilizando...

A ver esto seria más o menos así if trim(text.text) = "" Then msgbox "el text no tiene nada" elseif dir(ruta_archivo) = "" Then msgbox "el directorio no existe, desea crearlo", vbYesNo 'ahora no me se como se crean los directorios... pero para mañana...