ozanakkata ve atoz112 teşekkür ederim.
açılan kutuya başka değer atamayacağım.
bu açıklama da yazmış olduğunuz kodlar ile yapmak istediğimi yaptım sayenizde.
çok teşekkür ederim.


atoz112 yukarıdaki kodlarda

Private Sub boy_Exit(Cancel As Integer)
Me.Acilan_kutu1 = "DİĞER" ===> buraya "cc" nasıl ekleyebilirim
End Sub

burada açılan kutuda yer alan "aa" "bb" bir de "cc" ve "diğer" seçenekleri olsa ve
"cc" ile "diğer" seçildiği zamanda kendim yazabileyim değerleri.

Private Sub boy_Exit(Cancel As Integer)
Me.Acilan_kutu1 = "DİĞER"
End Sub

Private Sub boy_Exit(Cancel As Integer)
Me.Acilan_kutu1 = "cc"
End Sub

ayrı ayrı yazmak yerine iki koşulda nasıl yapabilirim