| Access - Ερωτήσεις / Απαντήσεις Access + VBA... Εδώ δεν υπάρχουν όρια! |
| | Εργαλεία Θεμάτων | Τρόποι εμφάνισης |
|
#1
| |||
| |||
|
Εκτελώ τον παρακάτω κώδικα και μου βγάζει λάθος MONO στην συννένωση των κριτηρίων is not Null AND is Null (to με κόκκινο font)... Δοκίμασα και διάφορους άλλους συνδιασμούς μετά το googlισμα αλλά και πάλι δεν έκανα τίποτα... οπότε οι έμπειροι ας βάλουν το χεράκι τους... Κώδικας: Private Sub cmd19_Click()
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "ERGASIES1"
If Me.group1.Value = 1 Then
DoCmd.OpenForm stDocName, acNormal
Else
If Me.group1.Value = 2 Then
stLinkCriteria = "DateFinished Is Null"
DoCmd.OpenForm stDocName, , , stLinkCriteria
Else
If Me.group1.Value = 3 Then
stLinkCriteria = "DateFinished Is not Null"
DoCmd.OpenForm stDocName, , , stLinkCriteria
Else
If Me.group1.Value = 4 Then
stLinkCriteria = "DateFinished Is not Null" And "DatePickedUp Is Null"
DoCmd.OpenForm stDocName, , , stLinkCriteria
Else
if Me.group1.Value = 5 Then
stLinkCriteria = "[DateFinished]>=" & "#" & Me![Beginning Date] & "#" & _
"And [DateFinished]<=" & "#" & Me![Ending Date] & "#"
DoCmd.OpenForm stDocName, , , stLinkCriteria
End If
End If
End If
End If
End If
End Sub
Τελευταία επεξεργασία από το χρήστη Tasos : 08-03-10 στις 16:34. |
« Προηγούμενο Θέμα
|
Επόμενο Θέμα »
| |
| ||||
| Θέμα | Δημιουργός | Forum | Απαντήσεις | Τελευταίο Μήνυμα |
| Παράμετρο κριτήριων σε ερώτημα | vraxnakisg | Access - Ερωτήσεις / Απαντήσεις | 1 | 08-06-16 18:23 |
| Σφάλμα σε κώδικα | Dimitriss | Access - Ερωτήσεις / Απαντήσεις | 2 | 04-01-16 01:02 |
| [Συναρτήσεις] Αναζήτηση 2 ή περισσότερων κριτηρίων | mmanoum | Excel - Ερωτήσεις / Απαντήσεις | 4 | 31-12-15 15:13 |
| [ Φόρμες ] Σφάλμα σε κώδικα | xristos | Access - Ερωτήσεις / Απαντήσεις | 0 | 31-12-13 20:52 |
| [ Φόρμες ] Σφάλμα: Table 'TempMSysAccessObjects' already exists | xristos0718 | Access - Ερωτήσεις / Απαντήσεις | 2 | 13-04-10 09:25 |
Η ώρα είναι 17:13.



Θεματικός Τρόπος
