[nasos23]

Καλησπέρα σε όλους.
Δημήτρη δες μια πρόταση στο επισυναπτόμενο.
Στη φόρμα πρόσθεσα δύο κουμπιά με την ονομασία "Ενημέρωση"
τα οποία δημιουργούν μέσω (VBA) έναν βοηθητικό πίνακα "temp" και
και ένα ερώτημα ενημέρωσης.

Για το πρώτο κουμπί

Private Sub Εντολή100_Click()
DoCmd.SetWarnings False
Me.Refresh
DoCmd.RunSQL " SELECT Επαφές.ifolder AS ifolder2, Επαφές.Επώνυμο AS Επώνυμο2, Επαφές.Όνομα AS Όνομα2, Επαφές.Πατρώνυμο AS Πατρώνυμο2, Επαφές.ΕπώνυμοΠατέρα2, " & _
" Επαφές.Μητρώνυμο AS Μητρώνυμο2, Επαφές.ΕπώνυμοΜητέρας AS ΕπώνυμοΜητέρας2, Επαφές.[Ημ Γέννησης] AS [Ημ Γέννησης2], " & _
" Επαφές.[Χώρα Γέννησης] AS [Χώρα Γέννησης2], Επαφές.Υπηκοότητα AS Υπηκοότητα2, Επαφές.[ΑΡΙΘΜΟΣ ΔΙΑΒΑΤΗΡΙΟΥ] AS [ΑΡΙΘΜΟΣ ΔΙΑΒΑΤΗΡΙΟΥ2], " & _
" Επαφές.[ΗΜ ΕΚΔΟΣΗΣ ΔΙΑΒΑΤΗΡΙΟΥ] AS [ΗΜ ΕΚΔΟΣΗΣ ΔΙΑΒΑΤΗΡΙΟΥ2], Επαφές.[ΗΜ ΛΗΞΗΣ ΔΙΑΒΑΤΗΡΙΟΥ] AS [ΗΜ ΛΗΞΗΣ ΔΙΑΒΑΤΗΡΙΟΥ2], Επαφές.ΑΦΜ AS ΑΦΜ2, " & _
" Επαφές.ΑΜΚΑ AS ΑΜΚΑ2, Επαφές.Περιοχήκατοικίας AS Περιοχήκατοικίας2, Επαφές.αριθμόςκατοικίας AS αριθμόςκατοικίας2, " & _
" Επαφές.ΤΚκατοικίας AS ΤΚκατοικίας2, Επαφές.Οδός AS Οδός2, Επαφές.ΤΗΛΕΦΩΝΟ AS ΤΗΛΕΦΩΝΟ2, Επαφές.ΣταθερόΤηλέφωνο AS ΣταθερόΤηλέφωνο2, " & _
" Επαφές.email AS email2 INTO temp " & _
" FROM Επαφές " & _
" WHERE (((Επαφές.Επώνυμο)=[Φόρμες]![Φόρμα2a]![Σύνθετο93]));"
DoCmd.RunSQL "UPDATE Επαφές, temp SET Επαφές.ifolder2 = [temp].[ifolder2], Επαφές.Όνομα2 = [temp].[Όνομα2], " & _
" Επαφές.Πατρώνυμο2 = [temp].[Πατρώνυμο2], Επαφές.ΕπώνυμοΠατέρα2 = [temp].[ΕπώνυμοΠατέρα2], Επαφές.Μητρώνυμο2 = [temp].[Μητρώνυμο2], " & _
" Επαφές.ΕπώνυμοΜητέρας2 = [temp].[ΕπώνυμοΠατέρα2], Επαφές.ΗμΓέννησης2 = [temp].[Ημ Γέννησης2], Επαφές.Υπηκοότητα2 = [temp].[Υπηκοότητα2], " & _
" Επαφές.ΑΦΜ2 = [temp].[ΑΦΜ2], Επαφές.Περιοχήκατοικίας2 = [temp].[Περιοχήκατοικίας2], Επαφές.αριθμόςκατοικίας2 = [temp].[αριθμόςκατοικίας2], " & _
" Επαφές.ΤΚκατοικίας2 = [temp].[ΤΚκατοικίας2], Επαφές.Οδός2 = [temp].[Οδός2], Επαφές.ΤΗΛΕΦΩΝΟ2 = [temp].[ΤΗΛΕΦΩΝΟ2], " & _
" Επαφές.ΣταθερόΤηλέφωνο2 = [temp].[ΣταθερόΤηλέφωνο2], Επαφές.email2 = [temp].[email2] " & _
" WHERE (((Επαφές.ifolder)=[Φόρμες]![Φόρμα2a]![ifolder]));"
Me.Refresh
DoCmd.SetWarnings True
End Sub

Για το δεύτερο κουμπί

Private Sub Εντολή101_Click()
DoCmd.SetWarnings False
Me.Refresh
DoCmd.RunSQL " SELECT Επαφές.ifolder AS ifolder3, Επαφές.Επώνυμο AS Επώνυμο3, Επαφές.Όνομα AS Όνομα3, Επαφές.Πατρώνυμο AS Πατρώνυμο3, Επαφές.ΕπώνυμοΠατέρα3, " & _
" Επαφές.Μητρώνυμο AS Μητρώνυμο3, Επαφές.ΕπώνυμοΜητέρας AS ΕπώνυμοΜητέρας3, Επαφές.[Ημ Γέννησης] AS [Ημ Γέννησης3]," & _
" Επαφές.[Χώρα Γέννησης] AS [Χώρα Γέννησης3], Επαφές.Υπηκοότητα AS Υπηκοότητα3, Επαφές.[ΑΡΙΘΜΟΣ ΔΙΑΒΑΤΗΡΙΟΥ] AS [ΑΡΙΘΜΟΣ ΔΙΑΒΑΤΗΡΙΟΥ3], " & _
" Επαφές.[ΗΜ ΕΚΔΟΣΗΣ ΔΙΑΒΑΤΗΡΙΟΥ] AS [ΗΜ ΕΚΔΟΣΗΣ ΔΙΑΒΑΤΗΡΙΟΥ3], Επαφές.[ΗΜ ΛΗΞΗΣ ΔΙΑΒΑΤΗΡΙΟΥ] AS [ΗΜ ΛΗΞΗΣ ΔΙΑΒΑΤΗΡΙΟΥ3], Επαφές.ΑΦΜ AS ΑΦΜ3, Επαφές.ΑΜΚΑ AS ΑΜΚΑ3, " & _
" Επαφές.Περιοχήκατοικίας AS Περιοχήκατοικίας3, Επαφές.αριθμόςκατοικίας AS αριθμόςκατοικίας3, Επαφές.ΤΚκατοικίας AS ΤΚκατοικίας3, Επαφές.Οδός AS Οδός3, " & _
" Επαφές.ΤΗΛΕΦΩΝΟ AS ΤΗΛΕΦΩΝΟ3, Επαφές.ΣταθερόΤηλέφωνο AS ΣταθερόΤηλέφωνο3, Επαφές.email AS email3 INTO temp " & _
" FROM Επαφές " & _
" WHERE (((Επαφές.Επώνυμο)=[Φόρμες]![Φόρμα2a]![Σύνθετο97]));"
DoCmd.RunSQL "UPDATE Επαφές, temp SET Επαφές.ifolder3 = [temp].[ifolder3], Επαφές.Όνομα3 = [temp].[Όνομα3], Επαφές.Πατρώνυμο3 = [temp].[Πατρώνυμο3], " & _
" Επαφές.ΕπώνυμοΠατέρα3 = [temp].[ΕπώνυμοΠατέρα3], Επαφές.Μητρώνυμο3 = [temp].[Μητρώνυμο3], Επαφές.ΕπώνυμοΜητέρας3 = [temp].[ΕπώνυμοΠατέρα3], " & _
" Επαφές.ΗμΓέννησης3 = [temp].[Ημ Γέννησης3], Επαφές.Υπηκοότητα3 = [temp].[Υπηκοότητα3], Επαφές.ΑΦΜ3 = [temp].[ΑΦΜ3], Επαφές.Περιοχήκατοικίας3 = [temp].[Περιοχήκατοικίας3]," & _
" Επαφές.αριθμόςκατοικίας3 = [temp].[αριθμόςκατοικίας3], Επαφές.ΤΚκατοικίας3 = [temp].[ΤΚκατοικίας3], Επαφές.Οδός3 = [temp].[Οδός3], " & _
" Επαφές.ΤΗΛΕΦΩΝΟ3 = [temp].[ΤΗΛΕΦΩΝΟ3], Επαφές.ΣταθερόΤηλέφωνο3 = [temp].[ΣταθερόΤηλέφωνο3], Επαφές.email3 = [temp].[email3] " & _
" WHERE (((Επαφές.ifolder)=[Φόρμες]![Φόρμα2a]![ifolder]));"
Me.Refresh
DoCmd.SetWarnings True
End Sub