visual basic

[errorr]

Έχω κάνει μέσα στη access τον εξης κώδικα

 If optionvalue1 = True Then
    DoCmd.OpenQuery "emf_A/A"
    ElseIf optionvalue11 = True Then
    DoCmd.OpenQuery "emf_ep"
    ElseIf optionvalue3 = True Then
    DoCmd.OpenQuery "emf_onoma"
    ElseIf optionvalue4 = True Then
    DoCmd.OpenQuery "emf_odos"
    ElseIf optionvalue5 = True Then
    DoCmd.OpenQuery "emf_ilikia"
    ElseIf optionvlaue6 = True Then
    DoCmd.OpenQuery "emf_imergen"
    ElseIf optionvalue7 = True Then
    DoCmd.OpenQuery "emf_kin"
    ElseIf optionvalue8 = True Then
    DoCmd.OpenQuery "emf_sta"
    Else
    DoCmd.OpenQuery "emf_email"
    End If

Στο τέλος μου βγάζει error ότι δεν μπορεί να γίνει η εύρεση αυτή την στιγμή. Μήπως μπορείται να μου πείτε τι μπορεί να φταίει?

[gitane]

Καλησπέρα

Νομίζω ότι δεν έχεις φτιάξει σωστά την φόρμα σου.
Χρειάζεται να ομαδοποιήσεις τα Option Buttons μέσα σε ένα πλαίσιο (δεν θυμάμαι το όνομα του control, νομίζω λέγεται Option Group).
Κάνε το εξής:
1. Φτιάξε το πλαίσιο
2. Πρόσθεσε μέσα στο πλαίσιο όσα Option Buttons χρειάζεσαι.

Κάθε Option Button τώρα αντιστοιχεί σε ένα νούμερο, από 0 ώς τον αριθθμό των Option Buttons μείον ένα.

Ο κώδικας σου θα γίνει τώρα:

Select Case optGrp
  Case is = 0     
    DoCmd.OpenQuery "emf_A/A"
  Case Is = 1 
    DoCmd.OpenQuery "emf_ep"
   Case Is = 2 
    DoCmd.OpenQuery "emf_onoma"
  ................
    Case Else    
      DoCmd.OpenQuery "emf_email"
End Case

όπου optGrp το όνομα που θα δώσεις στο πλαίσιο