Forum

Forum (https://www.ms-office.gr/forum/)
-   Access - Ερωτήσεις / Απαντήσεις (https://www.ms-office.gr/forum/access-erotiseis-apantiseis/)
-   -   [ Active X Controls ] Access Backup (https://www.ms-office.gr/forum/access-erotiseis-apantiseis/1338-access-backup.html)

Tasos 12-11-11 11:00

1 Συνημμένο(α)
Καλημέρα Θοδωρή!

Μπορείς να δεις την εφαρμογή του κώδικα στο παρακάτω συνημμένο.

Καλή συνέχεια!

SIERRA1 13-11-11 00:38

Τάσο καλησπέρα.
Άμα σου πω πόσο κοντά ήμουν... το λιγότερο θα ήμουν ψεύτης.
Ουτε καν πήγε το μυαλό μου να δημιουργήσω φόρμες με κουμπιά.
Προσπαθούσα να το προσαρμόσω στη λύση που έδωσες στον Δημήτρη αλλά δεν κατάφερνα τίποτα.
Τάσο το προσαρμοζω στη βάση και θα ποστάρω αποτελέσματα.
Ευχαριστώ και πάλι.

SIERRA1 13-11-11 21:35

Τάσο καλησπέρα.
Όλα πήγαν μια χαρά, και το παραδειγμά σου έιναι πάρα πολύ καλό.
Η φόρμα frmBak δουλεύει υπεροχα και μάλιστα όποτε θέλεις να κάνεις backup χωρίς να κλείνεις παράθυρα και άλλα, όταν όμως πήγα να ανοιξω τη φόρμα "frmInfo" έβλαλε το παρακάτω μύνημα:

Run-time error '94'
Invalid use of Null

Όταν πάτησα End λειτούργησε κανονικά η φόρμα χωρίς το χρονομετρο.
Όταν πατησα Debug με πήγε στο παράθυρο VBA

Private Sub Form_Load()
Dim ret As String
ret = Me.OpenArgs
If InStr(1, ret, "\") Then
Me.lblInfo.Caption = "Δημιουργήθηκε ένα αντίγραφο της βάσης αυτής στο φάκελο:"
Me.txtInfo = ret
ElseIf IsNumeric(Left(ret, 1)) And Left(ret, 1) <> 0 Then
Me.lblInfo.Caption = "Παρουσιάστηκε σφάλμα κατά τη δημιουργία αντίγραφου ασφαλείας:"
Me.txtInfo = ret
ElseIf Left(ret, 1) = 0 Then
Me.lblInfo.Caption = vbNullString
Me.txtInfo = "Η ενέργεια ακυρώθηκε από το χρήστη!"
End If
Countdown = 10
Me.TimerInterval = 1000
Me.cmdCloce.Caption = Me.lblwdCloce.Caption & " ( " & Countdown & " )"
End Sub

Είναι κάποιο πρόβλημα αυτό; ή όχι.

Ευχαριστώ.


Η ώρα είναι 18:40.

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


Search Engine Optimization by vBSEO 3.3.2