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
524

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

Çözüldü #1
accessman
accessman
Bul
Kıdemli Ü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
Rep 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
accessman
Bul
Kıdemli Ü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
Rep 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:23
Yorumları: 13.451
Konuları: 497
Kayıt Tarihi: 29/01/2008
Rep Puanı: 3.126
Mesleğiniz: Memur
Visual Basic Code 
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.
"Boş Örnek Eklerim, Yapıp Verirler" demeyin, örneğinizi hazırlayın.
Komplike kod talebiniz var ise İletişim bağlantısından bize ulaşın. 
Cebelleşmezsen Öğrenemezsin. 
Cevapla
#4
accessman
accessman
Bul
Kıdemli Ü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
Rep Puanı: 434
bunu eklemek gerekiyormuş
[Resim: do.php?img=10053]
(16/04/2020 09:51)ozanakkaya Adlı Kullanıcıdan Alıntı:
Visual Basic Code 
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
accessman
Bul
Kıdemli Ü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
Rep 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:23
Yorumları: 13.451
Konuları: 497
Kayıt Tarihi: 29/01/2008
Rep Puanı: 3.126
Mesleğiniz: Memur
Visual Basic Code 
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
"Boş Örnek Eklerim, Yapıp Verirler" demeyin, örneğinizi hazırlayın.
Komplike kod talebiniz var ise İletişim bağlantısından bize ulaşın. 
Cebelleşmezsen Öğrenemezsin. 
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da