bilet satış ve rezervasyon programımda sona geldim.Ancak yeni eklemem gereken bir bölüm daha var.Rezervasyon bölümü.Combobox kullanarak satış ve rezervasyonu ayrı ayrı yapmak istiyorum.Yani satışı tıkladığımda ve cinsiyet seçtiğimde o koltuk renklencek.Aynı şey rezervasyondada geçerlli.Birkaç kod denememe rağmen başarılı olamadım kodu ve örnek dosyayı gönderiyorum.
Private Sub k1_Click()
kno.Value = 1
stipi.Value = "SATIŞ"
If cins.Value = "BAY" Then
k1.BackColor = &HFF0000
End If
If cins.Value = "BAYAN" Then
k1.BackColor = &HFF00FF
End If
stipi.Value "REZERVASYON"
If cins.Value = "BAY" Then
k1.BackColor = &H404080
End If
If cins.Value = "BAYAN" Then
k1.BackColor = &HFFFF&
End If
End Sub
Private Sub k1_Click()
kno.Value = 1
stipi.Value = "SATIŞ"
If cins.Value = "BAY" Then
k1.BackColor = &HFF0000
End If
If cins.Value = "BAYAN" Then
k1.BackColor = &HFF00FF
End If
stipi.Value "REZERVASYON"
If cins.Value = "BAY" Then
k1.BackColor = &H404080
End If
If cins.Value = "BAYAN" Then
k1.BackColor = &HFFFF&
End If
End Sub