AccessTr.neT
Drag Drop (sürükle Bırak) - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Drag Drop (sürükle Bırak) (/konu-drag-drop-surukle-birak.html)

Sayfalar: 1 2


Drag Drop (sürükle Bırak) - macirercan - 10/11/2020

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.


RE: Drag Drop (sürükle Bırak) - ozanakkaya - 10/11/2020

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.


RE: Drag Drop (sürükle Bırak) - macirercan - 11/11/2020

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


RE: Drag Drop (sürükle Bırak) - ozanakkaya - 11/11/2020

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.


RE: Drag Drop (sürükle Bırak) - macirercan - 11/11/2020

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


RE: Drag Drop (sürükle Bırak) - berduş - 11/11/2020


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