frm_ana yüklendiğinde olayına aşağıdaki kodu eklemişsiniz ve tamda istediğim gibi her açılışta farklı bir soru sıralaması ile çalışmasını sağlamışsınız.. Ancak kullanınca farkettim ki bu kodu frm_ana da kullanınca 2. soruya(yani belirlenen son soruya) gelinmesine rağmen cevaplamaya devam edilmekte, bu nedenle bende o kodu alıp frm_sorular alt formunun yüklendiğinde olayına yapıştırdım. Bu sefer tam da istediğim sonucu elde ettim, yani 2.soruya gelince testi sonlandırdı.
Yardımlarınız için tekrar teşekkür ederim..
Dim B1 As String
B1 = Now
A1 = Right(B1, 2)
For I = 1 To A1
DoCmd.Requery
Next I