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....

Kirim email ke