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

1 2
10/11/2020, 12:52

macirercan

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.
10/11/2020, 18:59

ozanakkaya

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.
11/11/2020, 10:05

macirercan

(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.
11/11/2020, 10:51

ozanakkaya

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.
11/11/2020, 11:25

macirercan

(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.
11/11/2020, 14:00

berduş


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
1 2