Forum

Forum (https://www.ms-office.gr/forum/)
-   Access - Ερωτήσεις / Απαντήσεις (https://www.ms-office.gr/forum/access-erotiseis-apantiseis/)
-   -   [ Φόρμες ] Ανέβασμα φώτο (https://www.ms-office.gr/forum/access-erotiseis-apantiseis/2506-anebasma-foto.html)

mikekal1oo 03-05-13 11:16
Ανέβασμα φώτο
 
Πως ανεβάζεις μια φώτο έχοντας κάποιο κουμπί επιλογής και ακόμη ένα για την διαγραφή της.Νάστε καλά.Καλή Ανάσταση

Tasos 03-05-13 12:07
Καλημέρα Μιχάλη, καλή Ανάσταση!

Από που πάιρνεις την εικόνα και που την ανεβάζεις;

Καταγράφεται η διαδρομή της ή ενσωματώνεται στη βάση δεδομένων;

Μιλάμε για *.mdb ή για *accdb;

Περιμένουμε νέα σου.

Τάσος

mikekal1oo 03-05-13 13:51
Τάσο μπορείς να μου δώσεις παραδείγματα και για τις δύο περιπτώσεις;Όσο για την βάση είναι φτιαγμένη σε 2003.Προκαταβολικά χρόνια πολλά για την γιορτή σου

Tasos 03-05-13 13:56
Μιχάλη ευχαριστώ!

Δεν κατάλαβα ακόμα όμως τι θέλεις να κάνεις.

Με εκτίμηση

Τάσος

mikekal1oo 03-05-13 14:57
Απλά έχω κάποια βάση που χρειάζετε να ανεβάσω σε κάθε εγγραφή μια φώτο.Θέλω να υπάρχει κουμπί που θα διαλέγω την φώτο και ένα που θα την διαγράφω.Νάσε καλά

Tasos 03-05-13 15:34
1 Συνημμένο(α)
Μιχάλη, θέλω ευχαρίστως να σε βοηθήσω αλλά δεν είμαι ούτε στον υπολογιστή σου ούτε στο μυαλό σου για να έχω μια πιο πλήρη εικόνα του ζητούμενου.

Δές το πρότυπο Contacts της Microsoft στο συνημμένο για να πάρεις μια ιδέα σε σχετικά με τη διαχείριση εικόνων στις νεότερες εκδόσεις Microsoft Access.

Τάσος

mikekal1oo 03-05-13 15:45
Θα μελετήσω αυτό που μου έδωσες.Αν έχω κάποιο πρόβλημα θα σου το ρωτήσω.Νάσε καλά.Καλές γιορτές πάλι

mikekal1oo 03-05-13 16:32
1 Συνημμένο(α)
Τάσο σου στέλνω ένα παράδειγμα από ένα προγραμματάκι που έκανα.Φυσικά με παρμένα ...πραγματάκια από αλλού.Δέχομαι κρητικές και διορθώσεις.Νάσε καλά

alex 03-05-13 16:44
Μιχάλη καλησπέρα !!!

Ανεβασέ το και σε 2003 να το δούμε όλοι.

Φιλικά/Αλέξανδρος

mikekal1oo 03-05-13 16:52
Αλέξανδρε μου λέει ότι δεν μπορεί να το αποθηκεύσει σε 2003 .Δεν ξέρω γιατί

mikekal1oo 03-05-13 16:58
1 Συνημμένο(α)
Κάτι κατάφερα.Απλά δεν αναγνωρίζει κάποια γραφικά

alex 03-05-13 16:59
Μιχάλη!!

Δεν γνωρίζω από 2013 από 2007 νομίζω ναι. Εάν έχει κάποιος ίσως μπορεί να ανεβάσει.Αλλιώς πρέπει συντόμως να κάνω αναβάθμιση σε win 2008 kai office 2013.

Αλέξανδρος

alex 03-05-13 17:22
Μιχάλη
Την εφτιαξα κάποια reference αλλαγή και κάποια προσθήκη DAO και εντάξει.
Αλέξανδρος

mikekal1oo 03-05-13 17:26
Όπως είχα γράψει στον Τάσο δεκτές κρητικές και διορθώσεις.

Tasos 04-05-13 12:45
Καλημέρα και χρόνια πολλά!

Μιχάλη δοκίμασε (γενικότερο παράδειγμα):

Κώδικας:
Private Sub cmdInsertPic_Click()
    On Error Resume Next
    Dim ret As Boolean
    Dim strFile As String
    Dim fCancelled As Boolean
    WizHook.Key = 51488399
    ret = WizHook.OpenPictureFile(strFile, fCancelled)
    If ret Xor fCancelled Then
        Me.ΑδΚυκλοφορίας = strFile
        Me.picsubform.Form.imgPicture.Picture = strFile
    End If
    If Err <> 0 Then MsgBox Err.Description, vbExclamation
End Sub
Στο συμβάν "Με το τρέχον" της υποφόρμας picsubform:

Κώδικας:
Private Sub Form_Current()
    Me.imgPicture.Picture = vbNullString
    If Not IsNull(Me.ΑδΚυκλοφορίας) Then
        If Dir(Me.ΑδΚυκλοφορίας, vbDirectory) <> vbNullString Then
            Me.imgPicture.Picture = Me.ΑδΚυκλοφορίας
        End If
    End If
End Sub
Καλή συνέχεια!

Τάσος

mikekal1oo 04-05-13 13:10
Νάσε καλά και χρόνια πολλά

mikekal1oo 05-05-13 10:33
Χριστός Ανέστη σε όλους


Η ώρα είναι 21:36.

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


Search Engine Optimization by vBSEO 3.3.2