Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)



Dim strActiveCtl As String



Select Case KeyCode

       

       Case vbKeyF3

            KeyCode = 0

            

            strActiveCtl = Screen.ActiveControl.Name

            Me.mtn_gecici.SetFocus

            DoCmd.RunCommand acCmdPaste

            Controls(strActiveCtl).Value = StrConv(Me.mtn_gecici.Text, 1)

End Select

End Sub

Formda mtn_gecici adında metin kutusu olacak, formda veri yapıştılacak metin kutusunu tıklayıp F3'e bastığında kopyaladığın veriyi tümü büyük harflerle yapıştırır. Tuş önizleme özelliğinin Evet olarak seçilmesi de gerekli.