Access - Ερωτήσεις / Απαντήσεις Access + VBA... Εδώ δεν υπάρχουν όρια! |
| Εργαλεία Θεμάτων | Τρόποι εμφάνισης |
#1
| ||||
| ||||
Διόρθωση ρουτίνας
Καλησπέρα και Χρόνια Πολλά ευτυχισμένο το νέο έτος Καλησπέρα σε όλη την παρέα του forum. Eχω μια ρουτίνα sShowSurveyDays Την ρουτίνα την καλώ από κάποια φόρμα .θέλω να μου ανοίγει απο την ρουτίνα ο ιnternet explorer.Τι πρέπει να συμπληρώσω για να ανοίξει . Παραθέτω τον κώδικα. Στο σημείο που κοκκινίζει χρειάζεται συμπλήρωμα. Κώδικας: Public Sub sShowSurveyDays() 'Ρουτίνα που εμφανίζει το σύστημα καταγραφής στοιχείων για το νηπιαγωγείο Dim CurrentSysDate As Date, CurrentSysMonth, CurrentSysDay As Integer Dim i As Integer, TmpName As String CurrentSysDate = Date CurrentSysMonth = Month(CurrentSysDate) CurrentSysDay = Day(CurrentSysDate) i = 0 Dim RcdNames As New ADODB.Recordset RcdNames.Open "Select * From " & CnstNameTable & " Where intDay=" & CurrentSysDay _ & " and intMonth=" & CurrentSysMonth, CurrentProject.Connection, adOpenDynamic If Not RcdNames.EOF And Not RcdNames.BOF Then RcdNames.MoveFirst Do While Not RcdNames.EOF i = i + 1 If i > 1 Then TmpName = TmpName & " , " & RcdNames.Fields("SurveyDay") Else TmpName = RcdNames.Fields("SurveyDay") End If RcdNames.MoveNext Loop Dim Response As Integer If i > 1 Then Else Response = MsgBox("ΚΑΛΗΜΕΡΑ ΣΗΜΕΡΑ ΠΡΕΠΕΙ ΝΑ ΕΝΗΜΕΡΩΣΕΤΕ ΤΟ : " & TmpName _ & vbNewLine & "ΣΥΝΔΕΘΕΙΤΕ ΣΤΟ ΙΝΤΕΡΝΕΤ. ", vbYesNo + vbDefaultButton1, " ΕΝΗΜΕΡΩΣΗ ΤΟΥSURVEY ") End If If Response = vbYes Then DoCmd.OpenForm "" End If End If RcdNames.Close End Sub Εάν μπορεί να δουλέψει απο φόρμα δεκτόν.Αν δεν μπορεί τι πρέπει να συμπληρώσω για να ανοίξει τουλάχιστον ο Internet Explorer. Φιλικά Αλέξανδρος |
« Προηγούμενο Θέμα
|
Επόμενο Θέμα »
| |
Παρόμοια Θέματα | ||||
Θέμα | Δημιουργός | Forum | Απαντήσεις | Τελευταίο Μήνυμα |
Διόρθωση ενωτικού | xristos | Word - Ερωτήσεις / Απαντήσεις | 1 | 22-01-17 16:21 |
Αυτοματη διόρθωση | makoulis | Word - Ερωτήσεις / Απαντήσεις | 1 | 02-03-15 07:55 |
Διόρθωση-αλλαγή σε κώδικα ρουτίνας | alex | Access - Ερωτήσεις / Απαντήσεις | 10 | 07-10-13 12:06 |
Διόρθωση σε ερώτημα | comsup | Access - Ερωτήσεις / Απαντήσεις | 5 | 20-02-13 22:20 |
[Γενικά] Διορθωση κωδικα | misirlis | Excel - Ερωτήσεις / Απαντήσεις | 2 | 13-01-11 07:30 |
Η ώρα είναι 21:54.