28-03-16, 19:34
|
| Όνομα: Γιώργος Έκδοση λογισμικού Office: Ms-Office 2007 Γλώσσα λογισμικού Office: Ελληνική | | Εγγραφή: 05-02-2010
Μηνύματα: 196
| |
Καλησπέρα σε όλους
Γιώργο στην φόρμα frmContacts πρόσθεσε το πεδίο ΑΝΑΓΝΩΡΙΣΤΙΚΟ στον κώδικα τις φόρμας ( VB) Κώδικας: Dim db As DAO.Database
Dim Rs As DAO.Recordset
Set db = CurrentDb
Set Rs = db.OpenRecordset("SELECT ΑΡΑΣΦΑΛΙΣΤΗΡΙΟΥ,ΗΜΕΡ_ΕΚΔΟΣΗΣ,ΜΙΚΤΑ,ΛΗΞΗ FROM ISXYS WHERE ΑΝΑΓΝΩΡΙΣΤΙΚΟ =" & Me.ΑΝΑΓΝΩΡΙΣΤΙΚΟ)
Και αντικατέστησε το Κώδικας: strBody = "Σας ενημερώνουμε ότι το συμβόλαιο με αριθμό " & Rs!ΑΡΑΣΦΑΛΙΣΤΗΡΙΟΥ & " και με ημερομηνία έκδοσης " & _
Rs!ΗΜΕΡ_ΕΚΔΟΣΗΣ & " και μικτά " & Rs!ΜΙΚΤΑ & " έληξε στις " & Rs!ΛΗΞΗ
|