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/3256-b-d.html)

kapetang 06-08-14 23:15

Δε διάβασες προσεκτικά το μήνυμά μου.
Υπάρχουν γραμμές στον πίνακα Ergasies, όπου η τιμή στο πεδίο RouloID είναι κενή (null).
Τι θα γίνει;

asarigiannis 07-08-14 06:10

καλημέρα και συγνώμη.καμία κενή εγγραφή,όλες θα αντιστοιχούν σε RaouloID.Στην Β.Δ που έχω ανεβάσει θέλουν delete ή βάλε το RaouloID απο το πρώτο ράουλο.Ευχαριστώ

kapetang 07-08-14 07:41

Καλημέρα

Αστέριε άλλαξε τον κώδικα με τον παρακάτω:

Κώδικας:

Private Sub Form_AfterInsert()
    Dim strSQL As String, ergID As Long, raouloID As Long
   
    ergID = DMax("[ErgasiaID]", "[tblErgasies]")
    raouloID = DLookup("[RaouloID]", "[tblErgasies]", "[ErgasiaID]=" & ergID)
    strSQL = "UPDATE tblErgasies SET tblErgasies.Enero = 'όχι' WHERE " & _
    "tblErgasies.ErgasiaID<>" & ergID & " AND tblErgasies.RaouloID=" & raouloID
   
    CurrentDb.Execute (strSQL)
    Me.Requery
End Sub

Φιλικά/Γιώργος

asarigiannis 07-08-14 13:58

thats it..tnxxxx


Η ώρα είναι 06:32.

Ms-Office.gr - ©2000 - 2026, Jelsoft Enterprises Ltd.


Search Engine Optimization by vBSEO 3.3.2