Sunday, April 3, 2016

Red Baron

'Here's the code for my sample Access 2010 VBA form:

https://youtu.be/Vtv1E9NORFY

Option Compare Database
Option Explicit

Private Sub Detail_Click()

    imgSNOOPY.Visible = True

End Sub

Private Sub imgAIRPLANE_Click()

            imgAIRPLANE.Left = imgAIRPLANE.Left - 100
 
End Sub

Private Sub imgSNOOPY_DblClick(Cancel As Integer)

    imgWOODSTOCK.Visible = True

End Sub

Private Sub imgWOODSTOCK_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

    imgAIRPLANE.Visible = True
 
End Sub