Benim uygulamamda Metinkutusu1 ve Metinkutusu2 var. Örneğin Metinkutusu1'de "Türkiye" yazıyor. Metinkutusu2'de ise "Sakarya" yazıyor. Butona bastığım zaman Metinkutusu2'deki "Sakarya" yazısı Metinkutusu1'de "Türkiye" yazısının altında yani ikinci satırında yazsın istiyorum.
Metinkutusu1 boş ise Sakarya 1. satıra yazsın.
Örnek Metinkutusu1'de " Türkiye
Sayarya " yazmasını istiyorum.
Herkese ilginiz için çok teşekkür eder hayırlı akşamlar dilerim. Sayenizde çok şeyler öğreniyorum. Sağolun.
Acces Metin Kutusunda Alt Satıra Veri Yazdırma
merhaba
bundan böyle mümkün oldugunca sorularınıza örnek ekleyerek sormaya çalışın Lütfen
Aşagıdaki kodd gibi bir kod ile işinizi çözebilir.
Private Sub Button1_Click()
Dim metin1 As String
Dim metin2 As String
' Metin kutularından metinleri al
metin1 = Me.Metinkutusu1.Text
metin2 = Me.Metinkutusu2.Text
' Metin kutusu 1 boş ise metin kutusu 2'deki metni 1. satıra yaz
If metin1 = "" Then
Me.Metinkutusu1.Text = metin2
Else
' Metin kutusu 1 dolu ise metin kutusu 1'deki metni koru ve metin kutusu 2'deki metni 2. satıra yazar
Me.Metinkutusu1.Text = metin1 & vbCrLf & metin2
End If
End Sub
bundan böyle mümkün oldugunca sorularınıza örnek ekleyerek sormaya çalışın Lütfen
Aşagıdaki kodd gibi bir kod ile işinizi çözebilir.
Private Sub Button1_Click()
Dim metin1 As String
Dim metin2 As String
' Metin kutularından metinleri al
metin1 = Me.Metinkutusu1.Text
metin2 = Me.Metinkutusu2.Text
' Metin kutusu 1 boş ise metin kutusu 2'deki metni 1. satıra yaz
If metin1 = "" Then
Me.Metinkutusu1.Text = metin2
Else
' Metin kutusu 1 dolu ise metin kutusu 1'deki metni koru ve metin kutusu 2'deki metni 2. satıra yazar
Me.Metinkutusu1.Text = metin1 & vbCrLf & metin2
End If
End Sub
(02/05/2024, 12:05)C*e*l*o*y*c*e yazdı: merhaba
bundan böyle mümkün oldugunca sorularınıza örnek ekleyerek sormaya çalışın Lütfen
Aşagıdaki kodd gibi bir kod ile işinizi çözebilir.
Private Sub Button1_Click()
Dim metin1 As String
Dim metin2 As String
' Metin kutularından metinleri al
metin1 = Me.Metinkutusu1.Text
metin2 = Me.Metinkutusu2.Text
' Metin kutusu 1 boş ise metin kutusu 2'deki metni 1. satıra yaz
If metin1 = "" Then
Me.Metinkutusu1.Text = metin2
Else
' Metin kutusu 1 dolu ise metin kutusu 1'deki metni koru ve metin kutusu 2'deki metni 2. satıra yazar
Me.Metinkutusu1.Text = metin1 & vbCrLf & metin2
End If
End Sub
Kusura bakmayın hocam metikutuları ile olduğu için gerek duymamıştım. Hakkınızı helal edin. Hayırlı akşamlar.
Faydalı olduysak ne Mutlu bize,helal olsun kardeşim
Konuyu Okuyanlar: 1 Ziyaretçi