Forum

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/5888-sindesi-dio-ypoformon.html)

mdragon 15-05-21 03:12

Σύνδεση δύο υποφορμών
 
1 Συνημμένο(α)
Καλημέρα σε όλη την παρέα,
Έχω μία φόρμα στην οποία έχω συνδέσει δύο υποφόρμες.
Στον αριστερό πίνακα είναι τα έργα και στον δεξιό οι εργασίες των αντίστοιχων έργων.
Στα έργα όπως και στις εργασίες υπάρχει το πεδίο Ολοκλήρωση.
Πώς μπορώ να καταφέρω να μην με αφήνει να επιλέξω το πεδίο Ολοκήρωση (έργου στην αριστερή φόρμα) εάν όλα τα πεδία εργασιών του δεξιού πίνακα του αντίστοιχου έργου δεν έχουν τικ Ολοκλήρωσης.

Ανεβάζω δείγμα της βάσης ώστε να καταλάβετε καλύτερα αυτό που θέλω να περιγράψω

nasos23 15-05-21 08:28

Καλημέρα Μάρω.
Δοκίμασε το παρακάτω:
Κώδικας:

Private Sub Completed_BeforeUpdate(Cancel As Integer)
Dim x As String
x = DCount("Completed", "TblTaskStepsByClient", _
"Completed=0 and ClientTaskID=" & Me.IdClientTask & "")
If x > 0 Then
MsgBox IIf(x > 1, "Δεν έχουν ολοκληρωθεί " & x & " βήματα!", _
"Δεν έχει ολοκληρωθεί " & x & " βήμα!"), vbInformation, "Προσοχή!!"
    Me.Undo
      Cancel = True
    End If
End Sub


mdragon 15-05-21 13:46

Να 'σαι καλά Νάσο.
Δουλεύει τέλεια


Η ώρα είναι 09:52.

Ms-Office.gr - ©2000 - 2026, Jelsoft Enterprises Ltd.


Search Engine Optimization by vBSEO 3.3.2