Forum - Συναρτήσεις β.δ

Σελίδα 2 από 2

Εμφάνιση 40 μηνυμάτων αυτού του θέματος σε μία σελίδα

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.

Σελίδα 2 από 2

Εμφάνιση 40 μηνυμάτων αυτού του θέματος σε μία σελίδα

Search Engine Optimization by vBSEO 3.3.2