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