Acces Metin Kutusunda Alt Satıra Veri Yazdırma

01/05/2024, 22:56

Acemi54

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.
02/05/2024, 12:05

C*e*l*o*y*c*e

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
02/05/2024, 22:39

Acemi54

(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.
02/05/2024, 22:52

C*e*l*o*y*c*e

Faydalı olduysak ne Mutlu bize,helal olsun kardeşim