Skip to main content

AccessTr.neT


Drag Drop (sürükle Bırak)

Drag Drop (sürükle Bırak)

Çözüldü #1
Tüm Access ailesine selamlar. Bir proje üzerinde çalışıyorum. Yabancı bir sitede bir çalışma buldum. Metin kutular arası Sürükle Bırak şeklinde. Lakin sürükle bırak sonucu alınan kutunun içindeki veri duruyor. Bunun silinmesi işlemini yapamadım. Yardım edebilir  misiniz? Şimdiden herkese teşekkür edeiyorum.
.rar DragDrop_A2003_V1.rar (Dosya Boyutu: 32,86 KB | İndirme Sayısı: 8)
Cevapla
#2
Class Modülde Private Sub ThisTextBox_MouseUp içerisinde

Visual Basic Code
If Len(strControlName) Then
        ThisTextBox.Parent(strControlName) = ThisTextBox.Parent(ThisTextBox.Name).Text
End If


kodu var, bu kodun hemen altına

Visual Basic Code
ThisTextBox.Parent(ThisTextBox.Name).Text = ""


kodu ekle.

"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
#3
(10/11/2020 18:59)ozanakkaya Adlı Kullanıcıdan Alıntı: Class Modülde Private Sub ThisTextBox_MouseUp içerisinde

Visual Basic Code
If Len(strControlName) Then
        ThisTextBox.Parent(strControlName) = ThisTextBox.Parent(ThisTextBox.Name).Text
End If


kodu var, bu kodun hemen altına

Visual Basic Code
ThisTextBox.Parent(ThisTextBox.Name).Text = ""


kodu ekle.

Teşekkür ederim sayın ozanakkaya. Lakin textboxa tıklayıp bıraktığında da siliyor. Benim istediğim sadece taşındığında silinsin.
Cevapla
#4

Visual Basic Code
ThisTextBox.Parent(ThisTextBox.Name).Text = ""



kodunu

Visual Basic Code
    If ThisTextBox.Parent(strControlName) = ThisTextBox.Parent(ThisTextBox.Name).Text Then
    
        ThisTextBox.Parent(ThisTextBox.Name).Text = ""
        
    End If


kodu ile değiştirerek deneyiniz.

"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
#5
(11/11/2020 10:51)ozanakkaya Adlı Kullanıcıdan Alıntı:     If ThisTextBox.Parent(strControlName) = ThisTextBox.Parent(ThisTextBox.Name).Text Then   
        ThisTextBox.Parent(ThisTextBox.Name).Text = ""       
    End If

Olmadı yine tıkla bırak yaptığında siliniyor.
Cevapla
#6

Visual Basic Code
If Len(strControlName) Then        
ThisTextBox.Parent(strControlName) = ThisTextBox.Parent(ThisTextBox.Name).Text
End If

kodunu aşağıdaki gibi değiştirip dener misiniz?

Visual Basic Code
    If Len(strControlName) Then
        If strControlName <> ThisTextBox.Name Then
            ThisTextBox.Parent(strControlName) = ThisTextBox.Parent(ThisTextBox.Name).Text
            ThisTextBox.Parent(ThisTextBox.Name).Text = ""
        End If
    End If

Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da