[pm4698]

Δοκίμασα αυτό:

Option Compare Database
Dim strGeneralFormName As String

Private Sub button_Click()

On Error GoTo Err_button_Click

Dim intFormNumber As Integer

MsgBox "Για Δευτέρα πληκτρολογήστε το 1" & vbCrLf & vbLf & strInput1 & _
"Για Τρίτη πληκτρολογήστε το 2" & vbCrLf & vbLf & strInput2 & _
"Για Τετάρτη πληκτρολογήστε το 3" & vbCrLf & vbLf & strInput3 & _
"Για Πέμπτη πληκτρολογήστε το 4" & vbCrLf & vbLf & strInput4 & _
"", _
vbInformation, "Επιλογή φόρμας..."

intFormNumber = InputBox("Παρακαλώ πληκτρολογήστε έγκυρο αριθμό από το 1-4")

Select Case intFormNumber

Case Is = 1
strGeneralFormName = "MON"
Case Is = 2
strGeneralFormName = "TUS"
Case Is = 3
strGeneralFormName = "WED"
Case Is = 4
strGeneralFormName = "THU"
End Select

Exit_button_Click:
Exit Sub

Err_button_Click:
MsgBox Err.Description
Resume Exit_button_Click

End Sub

Επομένως πατώντας το κουμπί, θα αποθηκεύεται στην μεταβλητή strGeneralFormName το όνομα της φόρμας που επέλεξε ο χρήστης. Στη συνέχεια, θέλω η φόρμα που αποθηκεύτηκε σε αυτή τη μεταβλητή να ανοίγει στο after update του combobox από την εντολή:

DoCMD.OpenForm strGeneralFormName, , , , , , Me.Name & ";" & Me.combobox

αλλα μου βγάζει πρόβλημα ότι πρέπει να βάλω το όνομα κάποιας φόρμας στη θέση της μεταβλητής

Σημείωση: Η σύνταξη της τελευταίας γραμμής κώδικα θέλω να παραμείνει.
Δεν μπορώ δηλαδή να χρησιμοποιήσω απλά τον κώδικα:

DoCmd.OpenForm strGeneralFormName

Καμιά ιδέα?

Ευχαριστώ εκ των προτέρων