Επιλογή φόρμας

[Giorgos]

Dim mnm As Variant
Dim mnma As String
Dim Minas As Integer, Etos As Integer


mnma = "Καταχωρήστε:" & vbCrLf & vbCrLf & _
"1 = Εκτύπωση Φορμα1 " & vbCrLf & vbCrLf & _
"2 = Εκτύπωση Φορμα2" & vbCrLf & vbCrLf & _
"3 = Εκτύπωση Φορμα3" & vbCrLf & vbCrLf & _
"4 = Εκτύπωση Φορμα4" & vbCrLf & vbCrLf & _
"5 = Εκτύπωση Φορμα5" & vbCrLf & vbCrLf & _
"6 = Εκτύπωση Φορμα6"

arxi:

mnm = InputBox(mnma, "Επιλογές")

If mnm = "" Then Exit Sub

If IsNumeric(mnm) = False Then
MsgBox "Εσφαλμένη καταχώρηση", vbInformation, "Σφάλμα"
GoTo arxi
End If

If mnm > 6 Or mnm < 1 Then
MsgBox "Εσφαλμένη καταχώρηση", vbInformation, "Σφάλμα"
GoTo arxi
End If


If mnm = 1 Then DoCmd.OpenForm "Φορμα1", acNormal, "", "", acFormEdit, acWindowNormal
If mnm = 2 Then DoCmd.OpenForm "Φορμα2", acNormal, "", "", acFormEdit, acWindowNormal
If mnm = 3 Then DoCmd.OpenForm "Φορμα3", acNormal, "", "", acFormEdit, acWindowNormal
If mnm = 4 Then DoCmd.OpenForm "Φορμα4", acNormal, "", "", acFormEdit, acWindowNormal
If mnm = 5 Then DoCmd.OpenForm "Φορμα5", acNormal, "", "", acFormEdit, acWindowNormal
If mnm = 6 Then DoCmd.OpenForm "Φορμα6", acNormal, "", "", acFormEdit, acWindowNormal

Δες και αυτό
Γιώργος