
20-01-19, 19:43
|
| Όνομα: ΝΑΣΟΣ Έκδοση λογισμικού Office: Ms-Office 2007, Ms-Office 2016 Γλώσσα λογισμικού Office: Ελληνική | | Εγγραφή: 14-10-2010
Μηνύματα: 455
| |
Παράθεση:
Μόλις δίνω τιμή στο σύνθετο πλαίσιο και το "apo-eos" είναι κενό εκτελώντας την
εντολή ανοίγει τη φόρμα 'fPelatiXreosiP' αλλά και τη "fPelatesXreosiP"
Γίνετε να μην ανοίγει από πίσω τη "fPelatesXreosiP"
If .........
If Nz(Me.Σύνθετο8, "") <> "" And Nz(Me.Apo, "") = "" Then
DoCmd.OpenForm "fPelatiXreosiP", , , "[a/aΠελατη]=" & Me![Σύνθετο8]
End If
If...........
Else
DoCmd.OpenForm "fPelatesXreosiP"
| Γιάννη στη βάση που ανέβασα ο κώδικας ανοίγει μόνο την φόρμα "fPelatesXreosiP"
Που είδες τη φόρμα "fPelatiXreosiP";
Την κατέβασα δύο φορές για έλεγχο.
Παρόλα αυτά κάνε την αντικατάσταση με το παρακάτω: Κώδικας: If Nz(Me.Σύνθετο8, "") <> "" And Nz(Me.Apo, "") = "" Then
DoCmd.OpenForm "fPelatesXreosiP", , , "[a/aΠελατη]=" & Me![Σύνθετο8]
End If
Καλή συνέχεια.
|