(11/11/2020, 14:00)berduş yazdı: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.kodunu aşağıdaki gibi değiştirip dener misiniz?
If Len(strControlName) Then
ThisTextBox.Parent(strControlName) = ThisTextBox.Parent(ThisTextBox.Name).Text
End If
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
DragDrop_A2003_V1.rar
(Dosya Boyutu: 39,41 KB | İndirme Sayısı: 7)
