Ανανέωση ιστοσελίδας
ms-office.gr > Forum > Microsoft Access > Access - Ερωτήσεις / Απαντήσεις > Αδέσμευτο πλαίσιο κειμένου να ενημερώνει πεδίο

Access - Ερωτήσεις / Απαντήσεις Access + VBA... Εδώ δεν υπάρχουν όρια!

Απάντηση στο θέμα

 

Εργαλεία Θεμάτων Τρόποι εμφάνισης
  #1  
Παλιά 28-08-12, 22:09
Όνομα: ΚΩΣΤΑΣ
Έκδοση λογισμικού Office: Ms-Office 2007, Ms-Office 2016
Γλώσσα λογισμικού Office: Ελληνική
 
Εγγραφή: 22-04-2010
Περιοχή: Νέα Ιωνία
Μηνύματα: 115
Προεπιλογή Αδέσμευτο πλαίσιο κειμένου να ενημερώνει πεδίο

Καλησπέρα σε όλο το FORUM
Για πολλοστή φορά ζητάω τη βοήθεια σας

Έχω μια forma που προέρχεται από ερώτημα μπορεί ένα αδέσμευτο πλαίσιο κειμένου να ενημερώσει πεδίο της forma μόνο τα πεδία που δεν έχουν τιμή
Ευχαριστώ
Συνημμένα Αρχεία
Τύπος Αρχείου: zip TEST.zip (135,8 KB, 20 εμφανίσεις)
Απάντηση με παράθεση
  #2  
Παλιά 29-08-12, 00:03
Όνομα: Κώστας
Έκδοση λογισμικού Office: Ms-Office 2010
Γλώσσα λογισμικού Office: Ελληνική
 
Εγγραφή: 22-01-2012
Περιοχή: Πειραιάς
Μηνύματα: 181
Προεπιλογή

Κώστα καλό σου βράδυ,

Στο πεδίο 'ΚΕΙΜΕΝΟ', της φόρμας, στο συμβάν 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  
Παλιά 29-08-12, 00:24
Το avatar του χρήστη Tasos
Διαχειριστής
Όνομα: Τάσος Φιλοξενιδης
Έκδοση λογισμικού Office: Ms-Office 365
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική, Γερμανική
 
Εγγραφή: 21-10-2009
Μηνύματα: 2.011
Προεπιλογή

Καλησπέρα σε όλους!

Εναλλακτικά, μπορούμε να χρησιμοποιήσουμε σε συμβάν "με το κλικ" ενός κουμπιού το παρακάτω:

Κώδικας:
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
όπου Me.MyDate = το πεδίο "ΚΕΙΜΕΝΟ".

Φιλικά

Τάσος
__________________
Ms-Office Development Team
Ανάπτυξη επαγγελματικών εφαρμογών
Απάντηση με παράθεση
  #4  
Παλιά 29-08-12, 10:46
Όνομα: ΚΩΣΤΑΣ
Έκδοση λογισμικού Office: Ms-Office 2007, Ms-Office 2016
Γλώσσα λογισμικού Office: Ελληνική
 
Εγγραφή: 22-04-2010
Περιοχή: Νέα Ιωνία
Μηνύματα: 115
Προεπιλογή

Τάσο ευχαριστώ πολύ
στη a) περίπτωση μου κτυπάει με σφάλμα στην έκφραση του ερωτήματος [ΠΕΛΑΤΕΣ].ΚΩΔ_ΠΕΛ] = [ΑΠΟΘΗΚΗ].[ΚΩΔ_ΠΕΛ] " & _λείπει μια [ και δουλεύει
στη b) δουλεύει άψογα
ευχαριστώ ευχαριστώ ευχαριστώ
Απάντηση με παράθεση
  #5  
Παλιά 29-08-12, 13:49
Όνομα: ΚΩΣΤΑΣ
Έκδοση λογισμικού Office: Ms-Office 2007, Ms-Office 2016
Γλώσσα λογισμικού Office: Ελληνική
 
Εγγραφή: 22-04-2010
Περιοχή: Νέα Ιωνία
Μηνύματα: 115
Προεπιλογή

Τάσο μήπως μπορεί να γίνει
Έχω ένα πρόβλημα επειδή τη forma την έχω δευτερεύουσα και δεν το ανάφερα νομίζοντας ότι θα δούλευε
μπορεί να ενημερώνει μονο το DATEOUT του συγκεκριμένου ΚΩΔ_ΠΕΛ έτσι πηγαίνει και γεμίζει όλο το υπόλοιπο DATEOUT
Συνημμένα Αρχεία
Τύπος Αρχείου: zip Κώστας2.zip (130,3 KB, 22 εμφανίσεις)
Απάντηση με παράθεση
  #6  
Παλιά 29-08-12, 18:51
Όνομα: Θανάσης
Έκδοση λογισμικού Office: Ms-Office 2003, Ms-Office 2007
Γλώσσα λογισμικού Office: Ελληνική
 
Εγγραφή: 22-02-2012
Μηνύματα: 238
Προεπιλογή

Καλησπέρα
Κώστα σου πρόσθεσα επί πλέον ένα σύνθετο πλαίσιο από όπου επιλέγεις το όνομα και με το update του Τάσου ελπίζω να έγινε..
Συνημμένα Αρχεία
Τύπος Αρχείου: zip TEST.zip (136,1 KB, 53 εμφανίσεις)
Απάντηση με παράθεση
  #7  
Παλιά 30-08-12, 15:16
Όνομα: ΚΩΣΤΑΣ
Έκδοση λογισμικού Office: Ms-Office 2007, Ms-Office 2016
Γλώσσα λογισμικού Office: Ελληνική
 
Εγγραφή: 22-04-2010
Περιοχή: Νέα Ιωνία
Μηνύματα: 115
Προεπιλογή

Θανάση σε ευχαριστώ δουλεύει και μου κάνει
λύθηκε και το πρόβλημα με το προηγούμενο POST
Διπλές εγγραφές σε Ερώτημα και Έκθεση
ευχαριστώ εσένα και τον Τάσο
Απάντηση με παράθεση
Απάντηση στο θέμα


Δικαιώματα - Επιλογές
Δε μπορείτε να δημοσιεύσετε νέα μηνύματα
Δε μπορείτε να δημοσιεύσετε απαντήσεις
Δεν μπορείτε να επισυνάψετε αρχεία
Δεν μπορείτε να επεξεργαστείτε τα μηνύματα σας

Ο κώδικας ΒΒ είναι σε λειτουργία
Τα Smilies είναι σε λειτουργία
Ο κώδικας [IMG] είναι σε λειτουργία
Ο κώδικας HTML είναι εκτός λειτουργίας
Trackbacks are εκτός λειτουργίας
Pingbacks are εκτός λειτουργίας
Refbacks are εκτός λειτουργίας


Παρόμοια Θέματα

Θέμα Δημιουργός 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.