Skip to main content

AccessTr.neT

Kayıt Ol

 | Facebook ile Bağlan  | Twitter İle Bağlan | Google+ İle Bağlan

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

accessman
accessman
Access Cevaplanmış Soruları
7
832

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

Çözüldü #1
accessman
Aktif Üye
accessman
Bul
Aktif Üye
Adı Soyadı:
Konum: Denizli
Ofis Versiyonu: Ofis 2003
Son Oturumu: 12/01/2021,20:07
Yorumları: 4.395
Konuları: 900
Kayıt Tarihi: 31/10/2008
Teşekkür Puanı: 434
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
@benbendedeilem
Cevapla
#2
accessman
Aktif Üye
accessman
Bul
Aktif Üye
Adı Soyadı:
Konum: Denizli
Ofis Versiyonu: Ofis 2003
Son Oturumu: 12/01/2021,20:07
Yorumları: 4.395
Konuları: 900
Kayıt Tarihi: 31/10/2008
Teşekkür Puanı: 434
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]
@benbendedeilem
Cevapla
#3
ozanakkaya
sledgeab
ozanakkaya
Bul
Kurucu
Adı Soyadı: Oz.... Ak....
Konum: Denizli
Ofis Versiyonu: Ofis 2016 64 Bit
Son Oturumu: Dün,22:44
Yorumları: 13.536
Konuları: 499
Kayıt Tarihi: 29/01/2008
Teşekkür Puanı: 3.139
Mesleğiniz: Memur 
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.
Cevapla
#4
accessman
Aktif Üye
accessman
Bul
Aktif Üye
Adı Soyadı:
Konum: Denizli
Ofis Versiyonu: Ofis 2003
Son Oturumu: 12/01/2021,20:07
Yorumları: 4.395
Konuları: 900
Kayıt Tarihi: 31/10/2008
Teşekkür Puanı: 434
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

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.
teşekkürler sn. @ozanakkaya
@benbendedeilem
Son Düzenleme: 16/04/2020, 09:54, Düzenleyen: accessman.
Cevapla
#5
accessman
Aktif Üye
accessman
Bul
Aktif Üye
Adı Soyadı:
Konum: Denizli
Ofis Versiyonu: Ofis 2003
Son Oturumu: 12/01/2021,20:07
Yorumları: 4.395
Konuları: 900
Kayıt Tarihi: 31/10/2008
Teşekkür Puanı: 434
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
@benbendedeilem
Cevapla
#6
ozanakkaya
sledgeab
ozanakkaya
Bul
Kurucu
Adı Soyadı: Oz.... Ak....
Konum: Denizli
Ofis Versiyonu: Ofis 2016 64 Bit
Son Oturumu: Dün,22:44
Yorumları: 13.536
Konuları: 499
Kayıt Tarihi: 29/01/2008
Teşekkür Puanı: 3.139
Mesleğiniz: Memur 
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
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task