[alex]

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