[nasos23]

Καλημέρα Ζαχαρία
στην φόρμα ΜΕΝΟΥ σε προβολή σχεδίασης
κάνε αντιγραφή και επικόλληση τον παρακάτω κώδικα

Private Sub Σύνθετο_πλαίσιο10_AfterUpdate()
If Me.Σύνθετο_πλαίσιο10 <> "" Then
DoCmd.OpenForm "ΓΛΥΚΑ", , , "Όνομα ='" & Me.Σύνθετο_πλαίσιο10.Value & "'"
End If
Me.Σύνθετο_πλαίσιο10 = ""
End Sub


Private Sub Σύνθετο_πλαίσιο12_AfterUpdate()
If Me.Σύνθετο_πλαίσιο12 <> "" Then
DoCmd.OpenForm "ΦΑΓΗΤΑ", , , "Όνομα ='" & Me.Σύνθετο_πλαίσιο12.Value & "'"
End If
Me.Σύνθετο_πλαίσιο12 = ""
End Sub

Private Sub Σύνθετο_πλαίσιο8_AfterUpdate()
If Me.Σύνθετο_πλαίσιο8 <> "" Then
DoCmd.OpenForm "ΠΙΤΕΣ", , , "Όνομα ='" & Me.Σύνθετο_πλαίσιο8.Value & "'"
End If
Me.Σύνθετο_πλαίσιο8 = ""
End Sub

Δες στο συνημμένο