1 Κάντε κλικ στο κουμπί " Έναρξη " των Windows και επιλέξτε το "Microsoft Office ", " Visual Basic for Applications ( VBA ) " . 2
Κάντε κλικ στο " Άνοιγμα " και επιλέξτε τον έλεγχο VBA της έκθεσης για την οποία θέλετε να αλλάξετε τη σειρά ταξινόμησης εικόνων
3
Προσθέστε τον ακόλουθο κώδικα μετά την . " γραμμή CurrentDb.Execute strSQL " στο ερώτημά σας VBA :
On Error GoTo err_handler
Dim strSQL Όπως String
strSQL = "SELECT sbqryAdmitDeals.lt_name " & _
" sbqryAdmitDeals.FullName , sbqryAdmitDeals.RoleLeadFK " & CDate ( Format ( Now ( ) , " Σύντομη ημερομηνία " ) ) - [ RepRecd ] AS Μέρες , 2 AS ΚωδΠαραγγελίας
" ΣΕ " [ Μεταβλητή Όνομα σας ] Ξενοδοχεία
" ΑΠΟ sbqryAdmitDeals "
"WHERE sbqryAdmitDeals.RoleLeadFK ) = "
DoCmd.SetWarnings Λάθος
DoCmd.RunSQL strSQL
DoCmd.SetWarnings True
ExitMySubName :
Exit Sub
err_handler :
DoCmd.SetWarnings True
MsgBox Err.Description , vbExclamation , " Αριθμός σφάλματος : " & Err.Number
Resume ExitMySubName
End Sub
Η
4 Κάντε κλικ στην εντολή " Query Wizard" στην κορδέλα Access.
5
Εισάγετε τον ακόλουθο ερώτημα στο πεδίο κειμένου :
SELECT sbqryAdmitDeals.lt_name CDate ( Format ( Now ( ) , " Σύντομη ημερομηνία " ) - [ RepRecd ] AS Μέρες , 2 AS ΚωδΠαραγγελίας σΕ mtblFSRcvd
ΑΠΟ sbqryAdmitDeals
WHERE ( ( sbqryAdmitDeals.RoleLeadFK ) = [ Forms] [ frmReports ] [ cboPrimaryContact ] ! ) ?
Η
6 Κάντε κλικ στο κουμπί " Run" για να εκτελέσετε το ερώτημα σχετικά με την πρόσβαση σας 2007 βάση δεδομένων χρησιμοποιώντας το χειριστήριο VBA .
Η
εικόνων
Πνευματικά δικαιώματα © Γνώση Υπολογιστών Όλα τα δικαιώματα κατοχυρωμένα