Εμφάνιση ενός μόνο μηνύματος
  #1  
Παλιά 03-06-14, 23:04
γιώργοςΚ Ο χρήστης γιώργοςΚ δεν είναι συνδεδεμένος
Όνομα: Γιώργος
Έκδοση λογισμικού Office: Ms-Office 2007, Ms-Office 2013
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική
 
Εγγραφή: 02-04-2013
Περιοχή: Κύπρος
Μηνύματα: 738
Προεπιλογή Βοήθεια για ερώτημα ενημέρωσης

Καλησπέρα σε όλους,

Παιδιά έχω κολλήσει σε ένα θέμα που είμαι βέβαιος πως για αρκετούς απο εσάς μπορεί να φανεί ολίγον "κουφό" αλλά δυστυχώς είτε το μυαλό μου έχει κολλήσει είτε εγώ..

Λοιπόν, έχω γράψει το πιο κάτω κώδικα έτσι ώστε αφενός μέν πρώτα να τρέξει ένα ερώτημα το οποίο αφού πάρει τα δεδομένα στην συνέχεια θέλω να τρέξει ένα δεύτερο ερώτημα ενημέρωσης έτσι ώστε να έχω το θεμητό αποτέλεσμα. Το πρόβλημα είναι ότι ενώ έχω γράψει ορθά τον κώδικα (πιστεύω) έτσι ώστε να μην εμφανίζονται τα σχετικά μηνύματα της 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

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