[Meteora]

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

 
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 στην εικόνα;).
Ελπίζω να βοήθησα.
Νίκος Δ.