[ Συναρτήσεις ] β.δ

[kapetang]

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

[asarigiannis]

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

[kapetang]

Καλημέρα

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

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]

thats it..tnxxxx