(16/04/2020, 09:51)ozanakkaya yazdı:teşekkürler sn. @ozanakkayaPrivate 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.
bunu eklemek gerekiyormuş
@benbendedeilem
Son Düzenleme: 16/04/2020, 09:54, Düzenleyen: accessman.