[johnioa]

Καλημέρα σε όλους. μπαίνω αμέσως στο προβλημα μου. έχω δημιουργήσει μια φορμα στην οποία έχω βάλει ένα κουμπι και στο συμβαν έχω βάλει τον παρακάτω κώδικα
Option Compare Database
Private Sub Εντολή227_Click()


Dim strFormName As String
Dim strCriteria As String

If NewRecord Then
MsgBox "This record contains no data." _
, vbInformation, "Invalid Action"
Exit Sub
Else
strFormName = "ΕΚΤΥΠΩΣΗ ΟΥΡΟΛΟΓΙΚΟ ΙΣΤΟΡΙΚΟ"
strCriteria = "[κωδΕπισκεψης]= " & Me![κωδΕπισκεψης]


DoCmd.OpenForm strFormName, acViewPreview, , strCriteria

End If
End Sub

και δουλεύει μια χαρά κανοντας δηλαδη κλικ πανω στο κουμπι μου ανοιγει μια αλλη φορμα εκτυπωσης στην συγκεκριμενη εγγραφή.
τώρα το προβλημα μου ειναι πως οταν παω να δημιουργήσω ένα δεύτερο κουμπι με τον κώδικα
Option Compare Database
Private Sub Εντολή229_Click()


Dim strFormName As String
Dim strCriteria As String

If NewRecord Then
MsgBox "This record contains no data." _
, vbInformation, "Invalid Action"
Exit Sub
Else
strFormName = "ΠΟΡΕΙΑ ΝΟΣΗΛΕΙΑΣ"
strCriteria = "[κωδΕπισκεψης]= " & Me![κωδΕπισκεψης]


DoCmd.OpenForm strFormName, acViewPreview, , strCriteria

End If
End Sub
ΔΕΝ ΛΕΙΤΟΥΡΓΕΙ ΤΟ ΚΟΥΜΠΙ ΚΑΘΟΛΟΥ ΤΟ ΚΟΥΜΠΙ ΜΕ ΤΟΝ ΠΡΩΤΟ ΚΩΔΙΚΑ. Γιατί συμβαίνει αυτό και πως γίνεται να έχω δυο κουμπια που να μου ανοιγουν διαφορετικες φορμες στις συγκεκριμένες εγραφές?
Ευχαριστώ!