Arkadaşlar hazırlamış olduğum formun özelliklerinden "Açıldığında ki(Olay Yordamına) 2 kodu birleştirip yazamıyorum. Bunu nasıl yapabilirim. Kodları aşağıda ayrı ayrı yazdım. İkiside çalışacak durumda bunu birleştirip nasıl yazarım.Teşekkürler.
Private Sub Form_Open(Cancel As Integer)
msg = "Üye Kayıt Programına Hoşgeldiniz." & Chr(13)
msg = msg + "Program Tasarım : Tahir " & Chr(13)
msg = msg + "Bugün :" & Date & Chr(13)
msg = msg + "Şu an Saat : " & Format(Now, "hh:mm") & Chr(13)
msg = msg + "İyi Çalışmalar" & Chr(13)
MsgBox msg, vbOKOnly + 64, "Uye Takip"
End Sub
Private Sub Form_Open(Cancel As Integer)
If Me.CINSIYET = "Erkek" Then
Me.Ayrıntı.BackColor = 16768959
ElseIf Me.CINSIYET = "Kadın" Then
Me.Ayrıntı.BackColor = 14342655
End If
End Sub
Private Sub Form_Open(Cancel As Integer)
msg = "Üye Kayıt Programına Hoşgeldiniz." & Chr(13)
msg = msg + "Program Tasarım : Tahir " & Chr(13)
msg = msg + "Bugün :" & Date & Chr(13)
msg = msg + "Şu an Saat : " & Format(Now, "hh:mm") & Chr(13)
msg = msg + "İyi Çalışmalar" & Chr(13)
MsgBox msg, vbOKOnly + 64, "Uye Takip"
End Sub
Private Sub Form_Open(Cancel As Integer)
If Me.CINSIYET = "Erkek" Then
Me.Ayrıntı.BackColor = 16768959
ElseIf Me.CINSIYET = "Kadın" Then
Me.Ayrıntı.BackColor = 14342655
End If
End Sub