Access - Ερωτήσεις / Απαντήσεις Access + VBA... Εδώ δεν υπάρχουν όρια! |
| Εργαλεία Θεμάτων | Τρόποι εμφάνισης |
#1
| ||||
| ||||
Πρόβλημα με εγγραφές
Καλημέρα και πάλι στα μέλη του φορούμ.Θέλω μια βοήθεια.Γνωρίζει κάποιος αν γίνεται και πως όταν πατάω το κουμπί αναψυκτικά να μην με στέλνει στην αρχική μου εγγραφή αλλά να παραμένει στο σημείο που ήμουν έκανα κάποιες προσπάθειες με DoCmd.GoToRecord , , acNewRec ΠαροχήID.SetFocus αλλα τίποτα.Το θέμα είχε τεθεί και πρίν λίγες μέρες απο κάποιο αλλό μέλος.Εβαλα τον κώδικα αλλα δεν τα κατάφερα.Ανεβάζω δείγμα DB Ευχαριστώ Αλέξανδρος |
#2
| ||||
| ||||
Καλησπέρα σε όλους... Αγαπητέ Άλέξανδρε δοκίμασε αυτό : Κώδικας: Private Sub Εικόνα3_Click() Dim IdNumber As Long Forms!ΦΟΡΜΑ!ΠελάτηςΠαροχέςΔευτερεύουσα.Form.ΠαροχήID = 1 Forms!ΦΟΡΜΑ!ΠελάτηςΠαροχέςΔευτερεύουσα.Form.Ποσότητα = Nz(Forms!ΦΟΡΜΑ!ΠελάτηςΠαροχέςΔευτερεύουσα.Form.Ποσότητα, 0) + 1 Forms!ΦΟΡΜΑ!ΠελάτηςΠαροχέςΔευτερεύουσα.SetFocus DoCmd.GoToRecord , , acNewRec End Sub Ελπίζω να βοήθησα. Νίκος Δ. |
#3
| ||||
| ||||
Καλημέρα Νίκο Το κατάλαβα ότι δεν ήμουν σαφής αλλα δεν ήξερα πως να το διορθώσω.Καταρχίν ευχαριστώ για το ότι αχολήθηκες με το προβλημά μου.Όταν έχουμε σε μια φόρμα δύο δευτερεύουσεσ.Στην μια έχει ενα κουμπί και στην άλλη τις εγγραφές.Εγώ θέλω να έχω το εξής¨Πατώντας το κουμπι απο την μια φόρμα να βγάζει την εγγραφή στην αλλη και να προσθέτει.Θα δοκιμάσω αυτο τον κώδικα και θα σου απαντήσω.Και πάλι σε ευχαριστώ. Αλέξανδρος |
#4
| ||||
| ||||
Κώδικας: Private Sub Εικόνα3_Click() Dim IdNumber As Long Forms!ΦΟΡΜΑ!ΠελάτηςΠαροχέςΔευτερεύουσα.Form.ΠαροχήID = 1 Forms!ΦΟΡΜΑ!ΠελάτηςΠαροχέςΔευτερεύουσα.Form.Ποσότητα = Nz(Forms!ΦΟΡΜΑ!ΠελάτηςΠαροχέςΔευτερεύουσα.Form.Ποσότητα, 0) + 1 Forms!ΦΟΡΜΑ!ΠελάτηςΠαροχέςΔευτερεύουσαΠαροχήID.SetFocus DoCmd.GoToRecord , , acNewRec End Sub Και πάλι ευχαριστώ Αλέξανδρος Τελευταία επεξεργασία από το χρήστη Tasos : 14-01-11 στις 18:25. |
#5
| ||||
| ||||
Nίκο αύτό το κώδικα έβαλα Private Sub ÅíôïëÞ137_Click() Dim intCount As Integer intCount = DCount("[..................]", "[........................]") If intCount = 0 Then Exit Sub Else If MsgBox("Θέλεις για λόγους ασφαλείας" & intCount & " να αποθηκεύσεις " & _ vbCrLf & vbCrLf & "την εφαρμογή σου . ", _ vbYesNo, "Θέλεις να γίνει...") = vbYes Then DoCmd.Quit End Sub Θα στείλω ενα back up που δημοσιεύθηκε πιο παλιά στο forum.Aυτο το κώδικα να περάσω στο κουμπί της εφαρμογής.Αλλά θα πρέπει να συμπληρώσω και κωδικα που να ενεργοποιεί το κουμπί Back up Now της φόρμας που έστειλα σε συνημένο |
#6
| ||||
| ||||
Καλησπέρα κοινότητα... Αγαπητέ Αλέξανδρε, δεν ξέρω γιατί το μήνυμά σου με ώρα αποστολής 10:26 δεν είναι ορατό όταν είμαι σε περιβάλλον ανάγνωσης. Εμφανίζεται και μπορώ να το διαβάσω απο το περιβάλλον μέσα από το οποίο μπορώ να απαντήσω! ( Το μήνυμα φαίνεται πλέον. Τάσο ευχαριστώ...) Το ζήτημα του Backup έχει ως εξής: Κώδικας: Private Sub btnCloseApli_Click() Dim intCount As Integer intCount = DCount("[ID1]", "QryOla") If intCount <> 0 Then If MsgBox("Θέλεις backup;", vbYesNo, "ΕΛΕΓΧΟΣ.") = vbYes Then Dim ThePath$ ThePath = Replace(CreateObject("WScript.Shell").SpecialFolders("Desktop") & "\Backup.xls", "\\", "\") DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel8, "QryOla", ThePath, True End if end if DoCmd.Quit End Sub Το παραπάνω κώδικα τοποθετείς στο κουμπί με όνομα btnCloseApli, το οποίο όταν πατάς κλείνεις την εφαρμογή. Αυτά ... Νίκος Δ. Τελευταία επεξεργασία από το χρήστη Meteora : 15-01-11 στις 08:23. |
#7
| ||||
| ||||
Καλησπέρα Νικο Τι να πώ για την πολίτιμη βοήθειά σου.Τώρα μπήκα και είδα τον κώδικα δουλευω μερικές φορές και απόγευμα δεν τον δοκίμασα.¨Όσο για το ότι δεν μπορούσες να δείς το μήνυμα συμβαίνει γιατί είχα γυρίσει την ημερομηνία του υπολογιστή και την είχα ξεχάσει 2 χρόνια πρίν για να δώ΄ένα demo.Θα το κοιτάξω και θα σου πώ πιστεύω να το καταφέρω.Και πάλι σευχαριστώ Αλέξανδρος |
« Προηγούμενο Θέμα
|
Επόμενο Θέμα »
| |
Παρόμοια Θέματα | ||||
Θέμα | Δημιουργός | Forum | Απαντήσεις | Τελευταίο Μήνυμα |
[ Φόρμες ] Διπλές εγγραφές σε πινακα | xristos0718 | Access - Ερωτήσεις / Απαντήσεις | 6 | 22-12-14 11:44 |
Φορμα-εγγραφες | jimrenoir | Access - Ερωτήσεις / Απαντήσεις | 2 | 04-06-11 19:46 |
[Συναρτήσεις] Μοναδικές εγγραφές λίστας. | gr8styl | Excel - Tips & Tricks | 0 | 13-04-11 00:54 |
Ενσωμάτωση φωτογραφιών σε εγγραφές | tolis1975 | Access - Ερωτήσεις / Απαντήσεις | 7 | 01-12-10 22:17 |
ΟΙ ΕΓΓΡΑΦΕΣ ΠΟΥ ΣΒΗΝΑΝ | leopet | Access - Ερωτήσεις / Απαντήσεις | 0 | 27-05-10 11:28 |
Η ώρα είναι 20:54.