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 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:35.

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


Search Engine Optimization by vBSEO 3.3.2