Clipboard İçindeki Veriyi Strconv İle İstediğimiz Formata Çevirmek

Clipboard İçindeki Veriyi Strconv İle İstediğimiz Formata Çevirmek - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Clipboard İçindeki Veriyi Strconv İle İstediğimiz Formata Çevirmek (/konu-clipboard-icindeki-veriyi-strconv-ile-istedigimiz-formata-cevirmek.html)

Sayfalar: 1 2

Clipboard İçindeki Veriyi Strconv İle İstediğimiz Formata Çevirmek - accessman - 16/04/2020

iyi günler herkese hayırlı cumalar
Ctrl+c ile Clipboard içine kaydettiğimiz veriyi tek tuşa basarak Strconv fonksiyonu ile istediğimiz formata çevirip
istediğimiz yere yeni haliyle yapıştırabilir miyiz

RE: Clipboard İçindeki Veriyi Strconv İle İstediğimiz Formata Çevirmek - accessman - 16/04/2020

Kod:

Private Sub Komut203_Click()

    Dim clipboard As MSForms.DataObject

    Set clipboard = New MSForms.DataObject

    

    clipboard.GetFromClipboard

    clipboard.SetText StrConv(clipboard.GetText, vbProperCase)

    clipboard.PutInClipboard

    

    MsgBox clipboard.GetText

End Sub

şunu kullanmaya çalışıyorum ama referans hatası veriyor galiba
[Resim: do.php?img=10052]

RE: Clipboard İçindeki Veriyi Strconv İle İstediğimiz Formata Çevirmek - ozanakkaya - 16/04/2020

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.

RE: Clipboard İçindeki Veriyi Strconv İle İstediğimiz Formata Çevirmek - accessman - 16/04/2020

bunu eklemek gerekiyormuş
[Resim: do.php?img=10053]

(16/04/2020, 09:51)ozanakkaya yazdı:

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

teşekkürler sn. @ozanakkaya

RE: Clipboard İçindeki Veriyi Strconv İle İstediğimiz Formata Çevirmek - accessman - 16/04/2020

Bir problem var arkadaşlar yukarıda yazdığım kod ile
"ANKSİYETE BOZUKLUĞU"
kelimesini
"Anksİyete Bozukluğu"
şekline çevirdi. Yani "İ" harfi büyük kaldı neden olabilir

RE: Clipboard İçindeki Veriyi Strconv İle İstediğimiz Formata Çevirmek - ozanakkaya - 16/04/2020

Public Function bkucuk(kelime)

Dim kont, i As Integer

Dim harf, eharf As String

    kont = Len(kelime)

    If kont <> 0 Then

        harf = Mid(kelime, 1, 1)

        If Asc(harf) = 73 Or Asc(harf) = 253 Then

            bkucuk = bkucuk & "I"

            ElseIf Asc(harf) = 221 Or Asc(harf) = 105 Then

            bkucuk = bkucuk & "İ"

 

            ElseIf harf = "ç" Or harf = "Ç" Then

            bkucuk = bkucuk & "Ç"

            ElseIf harf = "ğ" Or harf = "Ğ" Then

            bkucuk = bkucuk & "Ğ"

            ElseIf harf = "ö" Or harf = "Ö" Then

            bkucuk = bkucuk & "Ö"

            ElseIf harf = "ş" Or harf = "Ş" Then

            bkucuk = bkucuk & "Ş"

            ElseIf harf = "ü" Or harf = "Ü" Then

            bkucuk = bkucuk & "Ü"

            Else

            bkucuk = bkucuk & UCase(harf)

        End If

        For i = 2 To Len(kelime)

            harf = Mid(kelime, i, 1)

            If eharf = "." Or eharf = " " Or eharf = "-" Or eharf = "/" Then

                If Asc(harf) = 73 Or Asc(harf) = 253 Then

                   bkucuk = bkucuk & "I"

                    ElseIf Asc(harf) = 221 Or Asc(harf) = 105 Then

                    bkucuk = bkucuk & "İ"

                    ElseIf harf = "ç" Or harf = "Ç" Then

                    bkucuk = bkucuk & "Ç"

                    ElseIf harf = "ğ" Or harf = "Ğ" Then

                    bkucuk = bkucuk & "Ğ"

                    ElseIf harf = "ö" Or harf = "Ö" Then

                    bkucuk = bkucuk & "Ö"

                    ElseIf harf = "ş" Or harf = "Ş" Then

                    bkucuk = bkucuk & "Ş"

                    ElseIf harf = "ü" Or harf = "Ü" Then

                    bkucuk = bkucuk & "Ü"

                    Else

                    bkucuk = bkucuk & UCase(harf)

                End If

                Else

                If Asc(harf) = 73 Or Asc(harf) = 253 Then

                    bkucuk = bkucuk & "ı"

                    ElseIf Asc(harf) = 221 Or Asc(harf) = 105 Then

                    bkucuk = bkucuk & "i"

                    ElseIf harf = "ç" Or harf = "Ç" Then

                    bkucuk = bkucuk & "ç"

                    ElseIf harf = "ğ" Or harf = "Ğ" Then

                    bkucuk = bkucuk & "ğ"

                    ElseIf harf = "ö" Or harf = "Ö" Then

                    bkucuk = bkucuk & "ö"

                    ElseIf harf = "ş" Or harf = "Ş" Then

                    bkucuk = bkucuk & "ş"

                    ElseIf harf = "ü" Or harf = "Ü" Then

                    bkucuk = bkucuk & "ü"

                    Else

                    bkucuk = bkucuk & LCase(harf)

                End If

            End If

            eharf = harf

        Next i

    End If

End Function