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.

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.

(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.

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, 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.

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