Me.Image1.Picture = "c:\temp\dessin.jpg"

DoCmd.Maximize

Option Explicit
 
Private Declare Function SetWindowLongA Lib "user32" _
  (ByVal hWnd As Long, ByVal nIndex As Long, _
  ByVal dwNewLong As Long) As Long
 
Private Declare Function GetWindowLongA Lib "user32" _
  (ByVal hWnd As Long, ByVal nIndex As Long) As Long
  
Const WS_MINIMIZEBOX = &H20000
Const WS_MAXIMIZEBOX = &H10000
Const GWL_STYLE = (-16)
 
Function RetireRestoreMaximize(ByVal hWndx As Long)
' hWndx est le handle de la fenêtre à modifier ...    
Dim L As Long
 
    L = GetWindowLongA(hWndx, GWL_STYLE)
    L = L And Not (WS_MINIMIZEBOX)
    L = L And Not (WS_MAXIMIZEBOX)
    L = SetWindowLongA(hWndx, GWL_STYLE, L)
    
End Function

DoCmd.OpenForm "MonForm",,,,,acHidden

Select Tatabl.*, tblBackGrounds.Couleur
From Tatabl Inner Join tblBackGrounds On TaTabl.Active=tblBackGrounds.Active;

        CurrentDb.Execute "UPDATE TaTabl Set Active=False"
        CurrentDb.Execute "UPDATE TaTabl Set Active=True Where [TonIdentifiant]=" & Nz(Me.TonIdentifiant, 0)

Forms![NomDuForm]![NomDeBoutonActivX]..Font.Italic=True

Private Sub NomDuBoutonActivX_Click()
MsgBox "Vous avez cliqué."
End Sub

Function FormattedMsgBox( _
 Prompt As String, _
 Optional Buttons As VbMsgBoxStyle = vbOKOnly, _
 Optional Title As String = vbNullString, _
 Optional HelpFile As Variant, _
 Optional Context As Variant) _
 As VbMsgBoxResult
    If IsMissing(HelpFile) Or IsMissing(Context) Then
        FormattedMsgBox = Eval("MsgBox(""" & Prompt & _
         """, " & Buttons & ", """ & Title & """)")
    Else
        FormattedMsgBox = Eval("MsgBox(""" & Prompt & _
         """, " & Buttons & ", """ & Title & """, """ & _
         HelpFile & """, " & Context & ")")
    End If
End Function

FormattedMsgBox "Wrong button!@This button doesn't work.@Try Another.", _ 
           vbOKOnly + vbExclamation, "My Application"

Private Sub Form_Load()
  Me.SubdatasheetExpanded = True
End Sub

Private Sub Étiquette_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Me.Étiquette.SpecialEffect = 0
End Sub

Private Sub Détail_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Me.Étiquette.SpecialEffect = 0
End Sub

Private Const WS_EX_LAYERED = &H80000
Private Const LWA_ALPHA = &H2
Private Const GWL_EXSTYLE = &HFFEC
Private Declare Function SetWindowLong Lib "USER32" Alias "SetWindowLongA" _
(ByVal hWnd As Long, _
ByVal lngWinIdx As Long, _
ByVal dwNewLong As Long) As Long
 
Private Declare Function GetWindowLong Lib "USER32" Alias "GetWindowLongA" _
(ByVal hWnd As Long, _
ByVal lngWinIdx As Long) As Long
 
Private Declare Function SetLayeredWindowAttributes Lib "USER32" _
(ByVal hWnd As Long, _
ByVal crKey As Integer, _
ByVal bAlpha As Integer, _
ByVal dwFlags As Long) As Long
 
Private Sub Form_Load()
Dim lAlpha As Long
lAlpha = 255 * (20 / 100)
    SetWindowLong Me.hWnd, GWL_EXSTYLE, GetWindowLong(Me.hWnd, GWL_EXSTYLE) Or WS_EX_LAYERED
    SetLayeredWindowAttributes Me.hWnd, 0, lAlpha, LWA_ALPHA
End Sub

Private Sub Bascule4_Click()
Me.CtlTab0.Value = Index de page
End Sub

Me.NomContrôleOnglet.Pages("NomDeLaPage").SetFocus