-Ïîèñê ïî äíåâíèêó

Ïîèñê ñîîáùåíèé â rss_sql_ru_access_programming

 -Ïîäïèñêà ïî e-mail

 

 -Ïîñòîÿííûå ÷èòàòåëè

 -Ñòàòèñòèêà

Ñòàòèñòèêà LiveInternet.ru: ïîêàçàíî êîëè÷åñòâî õèòîâ è ïîñåòèòåëåé
Ñîçäàí: 16.03.2006
Çàïèñåé:
Êîììåíòàðèåâ:
Íàïèñàíî: 4


Íåò äîñòóïà ê äèðåêòîðèè ñ ôîòî, êàê îáðàáîòàòü?

Âòîðíèê, 17 Ôåâðàëÿ 2015 ã. 14:12 + â öèòàòíèê
Èç ñòàðîé òåìû, ãäå îáðàáàòûâàëè âàðèàíò îòñóòñòâèÿ ôàéëà, âîçíèê åùå îäèí âîïðîñ
http://www.sql.ru/forum/1049733/kak-obrabotat-oshibku-net-kartinki-po-adresu

Êàê îáðàáîòàòü îøèáêó, åñëè íåòó äîñòóïà ê äèðåêòîðèè?

Dim strFileName As String
...

    If Len(Nz(Me.ôîòî,"")) > 0 Then
        strFileName= CurrentProject.Path & "\" & Me.ôîòî.Value 'ìîæíî Value íå óïîòðåáëÿòü, ñâîéñòâî ïîóìîë÷àíèþ
            If Len(Dir$(strFileName)) = 0 then strFileName="" 
    End If
Me.ÐàìêàÔîòî.Picture = strFileName
...


Îøèáêà â ýòîé ñòðîêå âîçíèêàåò If Len(Dir$(strFileName)) = 0
Êàðòèíêà ñ äðóãîãî ñàéòà.

http://www.sql.ru/forum/1143042/net-dostupa-k-direktorii-s-foto-kak-obrabotat


 

Äîáàâèòü êîììåíòàðèé:
Òåêñò êîììåíòàðèÿ: ñìàéëèêè

Ïðîâåðêà îðôîãðàôèè: (íàéòè îøèáêè)

Ïðèêðåïèòü êàðòèíêó:

 Ïåðåâîäèòü URL â ññûëêó
 Ïîäïèñàòüñÿ íà êîììåíòàðèè
 Ïîäïèñàòü êàðòèíêó