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

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

(11/11/2020, 14:00)berduş yazdı: 


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
Sayın berduş teşekkür ederim. İstediğim gibi oldu. Değiştirilmiş olarak ekliyorum. Belki başkalarının da işine yarayabilir.

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

Rica ederim
Iyi calismalar)