Access - Ερωτήσεις / Απαντήσεις Access + VBA... Εδώ δεν υπάρχουν όρια! |
| Εργαλεία Θεμάτων | Τρόποι εμφάνισης |
#1
| |||
| |||
Αδέσμευτο πλαίσιο κειμένου να ενημερώνει πεδίο
Καλησπέρα σε όλο το FORUM Για πολλοστή φορά ζητάω τη βοήθεια σας Έχω μια forma που προέρχεται από ερώτημα μπορεί ένα αδέσμευτο πλαίσιο κειμένου να ενημερώσει πεδίο της forma μόνο τα πεδία που δεν έχουν τιμή Ευχαριστώ |
#2
| |||
| |||
Κώστα καλό σου βράδυ, Στο πεδίο 'ΚΕΙΜΕΝΟ', της φόρμας, στο συμβάν After Update βάλε αυτόν τον κώδικα Dim db As Database Dim rst As DAO.Recordset Dim sql As String Dim rscnt As Integer sql = "SELECT [ΑΠΟΘΗΚΗ].[DATEOUT]" & _ " FROM ΠΕΛΑΤΕΣ INNER JOIN ΑΠΟΘΗΚΗ " & _ " ON [ΠΕΛΑΤΕΣ].ΚΩΔ_ΠΕΛ] = [ΑΠΟΘΗΚΗ].[ΚΩΔ_ΠΕΛ] " & _ " WHERE [ΑΠΟΘΗΚΗ].[DATEOUT] IS NULL" Set db = CurrentDb Set rst = db.OpenRecordset(sql, dbOpenDynaset) rscnt = rst.RecordCount If rscnt = 0 Then rst.Close Set rst = Nothing Set db = Nothing Exit Sub Else Do rst.Edit rst![DATEOUT] = [Forms]![DATEOUT]![KEIMENO] rst.Update rst.MoveNext Loop Until rst.EOF End If rst.Close Set rst = Nothing Set db = Nothing me.refresh |
#3
| ||||
| ||||
Καλησπέρα σε όλους! Εναλλακτικά, μπορούμε να χρησιμοποιήσουμε σε συμβάν "με το κλικ" ενός κουμπιού το παρακάτω: Κώδικας: Private Sub cmdSetDates_Click() If IsDate(Me.MyDate) Then CurrentDb.Execute "UPDATE [ΠΕΛΑΤΕΣ] INNER JOIN [ΑΠΟΘΗΚΗ] " & _ "ON [ΠΕΛΑΤΕΣ].[ΚΩΔ_ΠΕΛ] = [ΑΠΟΘΗΚΗ].[ΚΩΔ_ΠΕΛ] SET [ΑΠΟΘΗΚΗ].[DATEOUT] = " _ & CDbl(Me.MyDate) & " WHERE Not IsDate([ΑΠΟΘΗΚΗ].[DATEOUT])" Me.Refresh End If End Sub Φιλικά Τάσος
__________________ Ms-Office Development Team Ανάπτυξη επαγγελματικών εφαρμογών |
#4
| |||
| |||
Τάσο ευχαριστώ πολύ στη a) περίπτωση μου κτυπάει με σφάλμα στην έκφραση του ερωτήματος [ΠΕΛΑΤΕΣ].ΚΩΔ_ΠΕΛ] = [ΑΠΟΘΗΚΗ].[ΚΩΔ_ΠΕΛ] " & _λείπει μια [ και δουλεύει στη b) δουλεύει άψογα ευχαριστώ ευχαριστώ ευχαριστώ |
#5
| |||
| |||
Τάσο μήπως μπορεί να γίνει Έχω ένα πρόβλημα επειδή τη forma την έχω δευτερεύουσα και δεν το ανάφερα νομίζοντας ότι θα δούλευε μπορεί να ενημερώνει μονο το DATEOUT του συγκεκριμένου ΚΩΔ_ΠΕΛ έτσι πηγαίνει και γεμίζει όλο το υπόλοιπο DATEOUT |
#6
| |||
| |||
Καλησπέρα Κώστα σου πρόσθεσα επί πλέον ένα σύνθετο πλαίσιο από όπου επιλέγεις το όνομα και με το update του Τάσου ελπίζω να έγινε.. |
#7
| |||
| |||
Θανάση σε ευχαριστώ δουλεύει και μου κάνει λύθηκε και το πρόβλημα με το προηγούμενο POST Διπλές εγγραφές σε Ερώτημα και Έκθεση ευχαριστώ εσένα και τον Τάσο |
« Προηγούμενο Θέμα
|
Επόμενο Θέμα »
| |
Παρόμοια Θέματα | ||||
Θέμα | Δημιουργός | Forum | Απαντήσεις | Τελευταίο Μήνυμα |
[ Φόρμες ] Σύνθετο πλαίσιο κειμένου | asterix | Access - Ερωτήσεις / Απαντήσεις | 5 | 26-09-14 20:17 |
[Συναρτήσεις] Εισαγωγή συνάρτησης σε πλαίσιο κειμένου | perikles | Excel - Ερωτήσεις / Απαντήσεις | 12 | 08-05-14 13:11 |
[Γενικά] Πλαίσιο κειμένου Activex | gfevran | Excel - Ερωτήσεις / Απαντήσεις | 2 | 20-01-14 11:46 |
[ Φόρμες ] Ενημέρωση πλαίσιο κειμένου | ΚΩΣΤΑΣ2 | Access - Ερωτήσεις / Απαντήσεις | 5 | 20-06-11 21:27 |
Εισαγωγή Στοιχείων από ένα πλαίσιο κειμένου | Ghost_carp | Access - Ερωτήσεις / Απαντήσεις | 5 | 21-10-09 21:09 |
Η ώρα είναι 21:42.