Seçim tuşları için gerekli kodlar yazılmıştır. Kontrol edebilirmisiniz.
Private Sub secim_grubu_AfterUpdate()
If (Me.secim_grubu.Value = 1) Then
Me.TBSIPNO.Value = Null
ElseIf (Me.secim_grubu.Value = 2) Then
Me.TBSIPNO.Value = "000000000"
ElseIf (Me.secim_grubu.Value = 3) Then
Me.TBSIPNO.Value = "Null"
End If
End Sub
Kolay gelsin.