Καλησπέρα σε όλους,
Παιδιά έχω κολλήσει σε ένα θέμα που είμαι βέβαιος πως για αρκετούς απο εσάς μπορεί να φανεί ολίγον "κουφό" αλλά δυστυχώς είτε το μυαλό μου έχει κολλήσει είτε εγώ..
Λοιπόν, έχω γράψει το πιο κάτω κώδικα έτσι ώστε αφενός μέν πρώτα να τρέξει ένα ερώτημα το οποίο αφού πάρει τα δεδομένα στην συνέχεια θέλω να τρέξει ένα δεύτερο ερώτημα ενημέρωσης έτσι ώστε να έχω το θεμητό αποτέλεσμα. Το πρόβλημα είναι ότι ενώ έχω γράψει ορθά τον κώδικα (πιστεύω) έτσι ώστε να μην εμφανίζονται τα σχετικά μηνύματα της access εντούτις συμβαίνει και μάλιστα ανοίγει και το πρώτο ερώτημα κανονικά.
Παραθέτω τον κώδικα και θα εκτιμήσω τα φώτα σας και πάλι
Private Sub LabelNewCustomers_Click()
DoCmd.SetWarnings False
DoCmd.OpenQuery "qryTransferCmrDetails2", acViewNormal
DoCmd.SetWarnings True
DoCmd.RunCommand acCmdRefresh
DoCmd.SetWarnings False
DoCmd.OpenQuery "qryTransferData2", acViewNormal
DoCmd.SetWarnings True
DoCmd.OpenForm "fTempTable", acNormal, , , , acHidden
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "frmCustomerDetails"
stLinkCriteria = "[Customer No]=" & Me![Customer No]
DoCmd.OpenForm stDocName, , , stLinkCriteria
DoCmd.GoToRecord , , acNewRec
End Sub
Ευχαριστώ εκ προτέρων