vbgopher

Disculpa la tardanza espero que aun te sirva Private Sub Comando154_Click() On Error GoTo Err_Comando154_Click Dim stDocName As String Dim stLinkCriteria As String If Me!Estado = "JALISCO" Then stDocName = "SERVICIOS NACIONALESxcte" elseif...

Disculpa la tardanza y espero que aun te sirva 'Codigo para un boton llamado command1 al evento al hacer click 'val(str) funcion para convertir un texto a numero private sub command1_Click() dim Mayor if val(text1)>val(text2) then mayor=val(tex1)...

Disculpa la tardanza! Espero aun te sirva Puedes sacar el tiempo usando un control timer y las funciones: Hour(tiempo) Minute(tiempo) Second() Para realizar el calculo de la tardanza Por ejemplo: TimpoInicio=10:00 TiempoFinal=12:00...

Disculpa la tardanza! Espero aun te sirva Ok, mira lo que tiene que es revisar que todo este correcto en cuanto al registro(regedit) de ese control que utilizas en tu aplicación sino habrá que registrarlo(regsrv.exe) prueba empaquetar más...

Disculpa la tardanza pero es que no había podido darme un tiempo para entrar a este sitio pero hoy lo hice aun que se que tu pregunta dice urgente tal vez ya hayas resuselto tu problema pero de todos modos te envío una posible solución! Private Sub...

Menu Insertar/Numero de Diapositivas!

Sencillo mira: En el evento mousedown Ejemplo: Private sub Label1_MouseDown(Button as integer,X as integer,Y as integer) Select case Button case 1 Msgbox "Se ha Pulsado el Boton Derecho" case 2 Msgbox "Se ha Pulsado el Boton Izquierdo" End select End sub