KEI Car

KEI means 'light' in Japanese, and KEI cars are small vehicles which are usually used in rural Japan.
They are not street-legal in North Am.

Dubai ruler sacks nine top officials

https://ca.news.yahoo.com/dubai-ruler-sacks-nine-top-142052826.html

Bighorn Sheep

WOOD

sod

The City of Toronto in its infinite wisdom puts down sod and then never waters it. Your tax dollars at work.

KAT

The Abominable IRON MAN

Woody Woodpecker

Souvlaki

CHIRASHI ZUSHI

Dominion Day

Escher

Canoscan LIDE 25 driver

Thanks for nothing, Canon.

There is no driver for my Canoscan LIDE 25 scanner for Windows 8 or Windows 10.

Funny thing is, I used to have a Canon video camera. When it broke, I took it to Canon HQ who told me that they wouldn't fix it because it was old. I guess I should have learned not to buy anything from Canon.

Movile Cave

Movile Cave

CBC news video - Fort MacMurray fire

CBC news video - Fort MacMurray fire

Carly

I'm not posting much lately because the power supply of my PC died ...

Spring has Sprung

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

PhotoShop Layers Demo - Coding and De-coding in English

Alin

https://youtu.be/-eo4QEnLVOg

Visual Basic - Hello World program

https://www.youtube.com/watch?v=ttn8tiAHpXU

MICROSOFT ACCESS 2010 VBA - WRITE TO MS WORD DOCUMENT

''' MICROSOFT ACCESS 2010 VBA - WRITE TO MS WORD DOCUMENT '''
'''''''''''''''''''''''''''''''''

https://youtu.be/iUYWzS7YdGI

Option Compare Database
Option Explicit




Private Sub lblEnglishSpaceDog_Click()

    Dim theWordApp As Word.Application
    Dim theWordDoc As Word.Document
    Dim theOpenFileName As String
    Dim theSaveFileName As String
    Dim theString As String

 
    theOpenFileName = "C:\SHTUFF\Aardvark.docx"


    ' check if Word is already running, if not, instantiate it.
    On Error Resume Next
    Error.Clear
    Set theWordApp = GetObject(, "word.application")
    If Err.Number <> 0 Then ' if Word is not already running
        Set theWordApp = New Word.Application 'instantiate
    End If
    On Error GoTo 0

    theWordApp.Visible = True


    ''''''''''
    '    OPEN THE WORD DOC.
    ''''''''''''
    Set theWordDoc = theWordApp.Documents.Open(theOpenFileName, , True)
    theWordApp.Activate


    With theWordApp

        theWordDoc.Content.InsertBefore "*HELLO world*" 'WRITE A LINE BEFORE THE EXISTIN TEXT


        ' Type and Format Text
        With .Selection 'curr.position in Word doc.
            .ParagraphFormat.Alignment = wdAlignParagraphCenter 'center this text
            .BoldRun 'turn on bold
            .Font.Size = 16
            .TypeText "*** ENGLISHSPACEDOG ***" 'in the Word doc.
            .BoldRun 'toggle off bold
            .TypeText vbNewLine & "** 2016 **" 'go to a new line and type stuff.
            .TypeParagraph
            .Font.Size = 11
            .ParagraphFormat.Alignment = wdAlignParagraphLeft 'WorD constant
            .TypeParagraph ' start a new paragraph.
            .TypeText "*QWERTY*" ' and type stuff.
        End With 'Selection
     

        theString = InputBox("type somethin", 100, 100)   'pause
        theWordDoc.Content.InsertAfter ">>>" & theString & "<<<" 'WRITE A LINE AFTER allTHE EXISTIN TEXT

 
        '''''''''''''''''''''''''''''''''''''''''''''''''''''''
        'Save WORD Document
        '''''''''''''''''''''''''''''''''''''''''''''''''''''''

        theSaveFileName = "C:\SHTUFF\Aardvark " & _
            Format(Now, "yyyy-mm-dd hh-mm-ss") & ".docx" '<<<<<< filename contains date/timestamp <<<<<<<
         
           '(SaveAs is for Office 2003 and earlier - deprecated)
        .ActiveDocument.SaveAs2 theSaveFileName '<<<<<< filename <<<<<<<
            'replaces existing .doc iff exists
         
         
        ' Close Document and Quit Word
        .ActiveDocument.Close 'close .DOC
        .Quit 'exit Word
     
    End With
 


    Set theWordDoc = Nothing 'garbage collection'
    Set theWordApp = Nothing


End Sub