Forum - Πρόβλημα με εγγραφές

Forum (https://www.ms-office.gr/forum/)

- Access - Ερωτήσεις / Απαντήσεις (https://www.ms-office.gr/forum/access-erotiseis-apantiseis/)

- - Πρόβλημα με εγγραφές (https://www.ms-office.gr/forum/access-erotiseis-apantiseis/914-problima-me-eggrafes.html)

alex	12-01-11 09:57

Πρόβλημα με εγγραφές

1 Συνημμένο(α)

Καλημέρα και πάλι στα μέλη του φορούμ.Θέλω μια βοήθεια.Γνωρίζει κάποιος αν γίνεται και πως όταν πατάω το κουμπί αναψυκτικά να μην με στέλνει στην αρχική μου εγγραφή αλλά να παραμένει στο σημείο που ήμουν έκανα κάποιες προσπάθειες με DoCmd.GoToRecord , , acNewRec
ΠαροχήID.SetFocus αλλα τίποτα.Το θέμα είχε τεθεί και πρίν λίγες μέρες απο κάποιο αλλό μέλος.Εβαλα τον κώδικα αλλα δεν τα κατάφερα.Ανεβάζω δείγμα DB
Ευχαριστώ:wink:
Αλέξανδρος

Meteora

13-01-11 18:30

Καλησπέρα σε όλους...
Αγαπητέ Άλέξανδρε δοκίμασε αυτό :

Κώδικας:

 

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

Δεν είμαι βέβαιος οτι αποτελεί τη απάνηση στο ερώτημά σου, αφού η διατύπωσή του δεν έχει την απαραίτητη ακρίβεια... Πολλά ερωτηματικά αφήνει-σε αυτή τη φάση που βρίσκεται η ανάπτυξη του έργου σου - και η σχεδίαση το πως θα γίνεται η εγγραφή records στη δευτ. φόρμα (combobox ή click στην εικόνα;).
Ελπίζω να βοήθησα.
Νίκος Δ.

alex	14-01-11 10:56

Καλημέρα Νίκο
Το κατάλαβα ότι δεν ήμουν σαφής αλλα δεν ήξερα πως να το διορθώσω.Καταρχίν ευχαριστώ για το ότι αχολήθηκες με το προβλημά μου.Όταν έχουμε σε μια φόρμα δύο δευτερεύουσεσ.Στην μια έχει ενα κουμπί και στην άλλη τις εγγραφές.Εγώ θέλω να έχω το εξής¨Πατώντας το κουμπι απο την μια φόρμα να βγάζει την εγγραφή στην αλλη και να προσθέτει.Θα δοκιμάσω αυτο τον κώδικα και θα σου απαντήσω.Και πάλι σε ευχαριστώ.
Αλέξανδρος

alex	14-01-11 11:26

Κώδικας:

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

Aγαπητέ Νίκο ήταν αυτό που ζητούσα.Και πάλι σευχαριστώ.Εγώ έβαζα στον απο πάνω κώδικα και την ΠαροχήID kαι δεν δούλεψε.Φτιάχνω ένα POINT OF SALE.Nα σε ρωτήσω κάτι άλλο.Μήπως ξέρεις πώς θα ενσωματώσω ένα BackUP στην φόρμα κάνωντας μεταφορά δεδομένων τι κώδικα θα βάλω στο κουμπί Τέλος εφαρμογής ώστε να μου βγάζει μήνυμα Yes or NO Θέλετε να αποθηκεύσετε την βάση σας .Πατώντας το Yes να αποθηκεύεται στο φάκελο που θα εχω ορίσει απο την φόρμα του backup.Aν γωρίζεις κάτι γιαυτο δεκτό.Εγω εκανα κάποιες δοκιμές εβαλα το Do cmd Quit και μετά ένα κωδικα με το int κλπ.Αν το βρώ θα το στείλω για βοήθεια.
Και πάλι ευχαριστώ
Αλέξανδρος

alex	14-01-11 11:44

1 Συνημμένο(α)

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 της φόρμας που έστειλα σε συνημένο

Meteora

14-01-11 16:55

Καλησπέρα κοινότητα...
Αγαπητέ Αλέξανδρε, δεν ξέρω γιατί το μήνυμά σου με ώρα αποστολής 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

Τα περιεχόμενα του ερωτήματος QryOla -εφόσον υπάρχει τουλάχιστον ένα- εξέρχονται σε μορφή excel στην επιφάνεια εργασίας με το όνομα backup.xls Το πεδίο [ID1] είναι ένα απο τα πεδία που περιέχονται στο ερώτημα.
Το παραπάνω κώδικα τοποθετείς στο κουμπί με όνομα btnCloseApli, το οποίο όταν πατάς κλείνεις την εφαρμογή.
Αυτά ...
Νίκος Δ.

alex	14-01-11 22:36

Καλησπέρα Νικο
Τι να πώ για την πολίτιμη βοήθειά σου.Τώρα μπήκα και είδα τον κώδικα δουλευω μερικές φορές και απόγευμα δεν τον δοκίμασα.¨Όσο για το ότι δεν μπορούσες να δείς το μήνυμα συμβαίνει γιατί είχα γυρίσει την ημερομηνία του υπολογιστή και την είχα ξεχάσει 2 χρόνια πρίν για να δώ΄ένα demo.Θα το κοιτάξω και θα σου πώ πιστεύω να το καταφέρω.Και πάλι σευχαριστώ
Αλέξανδρος

Η ώρα είναι 17:05.

Search Engine Optimization by vBSEO 3.3.2