Terima kasih pada mas2 atas reponsnya yang cepat.Saya tadi dah coba namun tetap eror mas
Berikut kodenya :
Private Sub Command9_Click()
If Option3 = 1 Then
DoCmd.OpenForm "form2"
Else
If Option5 = 2 Then
DoCmd.OpenForm "form3"
Else
DoCmd.OpenReport "report1"
End If
End If
End Sub
Namun waktu dijalankan debug dengan kondisi : " You entered an expression
that has no value."
mohon dikoreksi....

