Mensajes

el datacontrol no lo uso, prefiero hacerlo con ADO, que en teoria seria lo mismo, mira más o menos esto es lo que hago:

Código [Seleccionar] Expandir


´Declaro variables para el acceso a la BD
dim BD as Database
dim Rd as RecordSet

'Abro la BD
Set BD = Workspaces(0).Opendatabase("c:\..\BD.mdb", Lectura, Excritura, Password)
'Abro la tabla o en este caso hago un filtrado
set Rd = BD.OpenRecordset("SELECT * FROM Tabla WHERE Campo = '" & text1.text & "';")
'Checo si encontro registros
if Rd.RecordCount > 0 then
   ' Encontro registros
else
   ' msgbox "No hay registros para mostrar"
end if
'Cierro la tabla y la BD
Rd.close
BD.close

'Libero memoria
set Rd = nothing
set BD = nothing




aunque creo que con el data lo podrías hacer más o menos asi

Código [Seleccionar] Expandir



data1.DabaseName = "tuBD.mdb"
data1.RecordSource = "Tabla"
data1.refresh


If Data1.Recordset.RecordCount > 0 Then
   data1.Recordset.FindFirst "Campo1 = '" & text1.text & "'"
   if data1.Recordset.NoMatch then
      msgbox "no hay registros que mostrar"
   else
      'encotro unos registros
   end if
end if



alguna vez use el datacontrol pero luego se me hizo mejor usar variables para lo que estaba haciendo

según yo entendi quieres cambiar el icono del acceso directo del escritorio. o no????       

¿Como se podria aplicar este código a un solo control del Form?

si abres el editor de VB que trae el Excel veras un objeto que se llama "thisWorkBook", el WorkBooK trae un evento el Workbook_Open() puedes usarlo para mandar llamar la funcion

Código [Seleccionar] Expandir


Private Sub Workbook_Open()
   Espera 600
End Sub


con esto cuenta 10 min a partir de que abres el libro, checa los eventos de las hojas para que veas si puedes usar alguno, Existe el Change que te detecta cuando algo cambia en la hoja ese a lo mejor tambien te puede servir

mira puedes hacer una macro y poner este procedimiento, le tienes que pasar el tiempo en segundos

Código [Seleccionar] Expandir


Private Sub Espera(Segundos As Single)
  Dim ComienzoSeg As Single
  Dim FinSeg As Single
  ComienzoSeg = Timer
  FinSeg = ComienzoSeg + Segundos
  Do While FinSeg > Timer
      DoEvents
      If ComienzoSeg > Timer Then
          FinSeg = FinSeg - 24 * 60 * 60
      End If
  Loop
 
  Hoja1.Protect
 
End Sub



lo malo de esto esque si al abrir el archivo xls le dicen que no ejecute macros ya no va a funcionar, pero espero y te sirva de algo

si es cosa de hacer un autorun, no necesitas programar nada, solo crea un archivo que se llame "autorun.inf" y agregale las siguientes lineas:

Código [Seleccionar] Expandir



[autorun]
OPEN="tu aplicación.exe"
ICON="tu icono.ico" <- en caso de que quieras cambiar el icono en el explorador del windows"


asegurate de que cuando quemes el CD el archivo autorun sea lo primero que se copie

debes usar el evento Resize de los controles

por ejemplo

Código [Seleccionar] Expandir


Private Sub Form_Resize()
    listview1.Width = Me.ScaleWidth
    listview1.Height = Me.Scaleheight
End Sub



asi no importa que tamaño tenga el form, el Listview siempre se ajustara

a ver si esto te sirve...

Código [Seleccionar] Expandir


Const EWX_LOGOFF = 0
Const EWX_SHUTDOWN = 1
Const EWX_REBOOT = 2
Const EWX_FORCE = 4

Private Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As Long, ByVal dwReserved As Long) As Long

Private Sub Form_Load()
    msg = MsgBox("This program is going to reboot your computer. Press OK to continue or Cancel to stop.", vbCritical + vbOKCancel + 256, App.Title)
    If msg = vbCancel Then End
    'reboot the computer
    ret& = ExitWindowsEx(EWX_FORCE Or EWX_REBOOT, 0)
End Sub


este código lo saque de in programita que se llama Api-Guide, de hecho esta aplicación la baje de un link de otro post en este foro

o si estas usando un datacontrol pues le pones la consulta SQL y luego un Refresh

puedes hacerlo con una consulta sql, usando solo la caja de texto y el boton

Código [Seleccionar] Expandir



private sub Command1_Click()
dim Bd as database
dim Tb as database


set BD = workspaces(0).Opendatabase("c:\....\tu_BD")
set Tb =BD.OpenRecordset("SELECT * FROM Tabla " & _
                                         "WHERE Campo = '" & text1.text & "';")

If tb.Recordcount > 0 then
    'Encontro registros que cumplen la condición
else
    Msgbox "no encontre nada de nada"
end if

tb.close
set tb = nothing

BD.close
Set BD = Nothing


end sub