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ı: 10)
Cevapla
#2
Class Modülde Private Sub ThisTextBox_MouseUp içerisinde

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

kodu var, bu kodun hemen altına

ThisTextBox.Parent(ThisTextBox.Name).Text = ""

kodu ekle.
Cevapla
#3
(10/11/2020, 18:59)ozanakkaya yazdı: Class Modülde Private Sub ThisTextBox_MouseUp içerisinde

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

kodu var, bu kodun hemen altına

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
ThisTextBox.Parent(ThisTextBox.Name).Text = ""


kodunu

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

kodu ile değiştirerek deneyiniz.
Cevapla
#5
(11/11/2020, 10:51)ozanakkaya yazdı:     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

If Len(strControlName) Then       
ThisTextBox.Parent(strControlName) = ThisTextBox.Parent(ThisTextBox.Name).Text
End If
kodunu aşağıdaki gibi değiştirip dener misiniz?
    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
Task