Vaste locatie van afbeeldingen, verschillende driveletters

Status
Niet open voor verdere reacties.
Bij mij komt die retour met fout in regel.

Code: 
         c01 = Dir(Mid(C_00.Tag, j, 1) & c00)
 
Dat is wat anders dan dat de bijlage het niet doet.
 
Je verteld er niet bij welke fout je dn krijgt op die regel.
 
Sorry maar begrijp er niks meer van.

Zou heel graag de code van #18 willen verfijnen, en niet een andere code uitdokteren.
Jullie hebben vast al lang in de gaten waar het niet goed gaat maar ik zie het niet.
Nogmaals als foto's op H:\Helpmij\Pictures staan dan gaat het goed maar als die bij een andere gebruiker T:\Helpmij\Pictures is dan moet het ook werken.
Wie geeft mij de oplossing want zo kom ik echt niet verder.
 
Zie #25.
 
gebruik dan dit eens:
een Msgbox ter controle ingevoegd.
Vertel ons wat er in de messagebox staat.

Code: 
[COLOR=#060]Private[/COLOR] Sub UserForm_Initialize[COLOR=#009]([/COLOR][COLOR=#009])[/COLOR]
  C_00[COLOR=#00F].[/COLOR][URL="http://www.php.net/list"][COLOR=#00F]List[/COLOR][/URL] [COLOR=#00F]=[/COLOR] Blad1[COLOR=#00F].[/COLOR]Cells[COLOR=#009]([/COLOR][COLOR=#F00]1[/COLOR][COLOR=#009])[/COLOR][COLOR=#00F].[/COLOR]CurrentRegion[COLOR=#00F].[/COLOR]Value
  
  With CreateObject[COLOR=#009]([/COLOR][COLOR=#C00]"scripting.filesystemobject"[/COLOR][COLOR=#009])[/COLOR]
     [COLOR=#060]For[/COLOR] [URL="http://www.php.net/each"][COLOR=#00F]Each[/COLOR][/URL] It In [COLOR=#00F].[/COLOR]drives
       C_00[COLOR=#00F].[/COLOR]Tag [COLOR=#00F]=[/COLOR] C_00[COLOR=#00F].[/COLOR]Tag [COLOR=#00F]&[/COLOR] It[COLOR=#00F].[/COLOR]driveletter
     [URL="http://www.php.net/next"][COLOR=#00F]Next[/COLOR][/URL]
  [URL="http://www.php.net/end"][COLOR=#00F]End[/COLOR][/URL] With
  
  MsgBox C_00[COLOR=#00F].[/COLOR]Tag
[URL="http://www.php.net/end"][COLOR=#00F]End[/COLOR][/URL] Sub
 
Laatst bewerkt:
Dat zijn dan alle drives waarop gezocht moet worden.
Dus dat gaat prima.
Zijn er drives waarop je geen leesrechten hebt ?

Welke waarde heeft de variabele j als je de foutmelding (welke ???) krijgt ?
Doorloop de code stapsgewijs met F8 in de VBEditor.
 
Laatst bewerkt:
Ik heb nog 2 vragen toegevoegd.
+1 nieuwe versie
 

Bijlagen

  • __ultiem_UF.xlsb
    19 KB · Weergaven: 12
Laatst bewerkt:
Als het daar misloopt is er iets mis met jouw D Drive.
 
Code van #33 getest.
In de listbox laat die zien waar foto's van zijn echter als die foto niet bestaat dan komt die met een fout.
Wat ook nu niet werkt is dat er maar 1 foto wordt getoond dus niet meer de opvolgende 202258 maar geen 2022258-1 enz.
Hij opent nu wel van verschillende drives.

Code: 
Private Sub UserForm_Initialize()
  C_00.List = Blad1.Cells(1).CurrentRegion.Value
  
  With CreateObject("scripting.filesystemobject")
     For Each It In .drives
       C_00.Tag = C_00.Tag & It.driveletter
     Next
  End With
End Sub
Private Sub C_00_Change()
   If C_00.ListIndex > -1 Then
    c00 = ":\HelpMij\Pictures\"
    
    If C_00.Column(1) = "Ja" Then
       For j = 1 To Len(C_00.Tag)
         c01 = Dir(Mid(C_00.Tag, j, 1) & c00 & C_00 & "*.jpg")
         If c01 <> "" Then Exit For
       Next
       If c01 <> "" Then Image1.Picture = LoadPicture(Mid(C_00.Tag, j, 1) & c00 & c01)
    End If
   End If
End Sub
 
Wat je zegt klopt niet.
Als een foto niet bestaat krijgt variabele c01 gewoon geen waarde en wordt leeg.
Er kan daar geen fout optreden.

De image1 control kan maar 1 foto bevatten.
Wat moet er dan gebeuren met een volgende foto van hetzelfde dossier ?

Het klinkt een beetje krakkemikkig als je in een bestand dossiers hebt staan met indicatie 'ja' waarvan geen bijpassende foto is.
 
Laatst bewerkt:
snb zei:
wat je zegt klopt niet.
Als een foto niet bestaat krijgt variabele c01 gewoon geen waarde en wordt leeg.
Er kan daar geen fout optreden.

Ga dat nog even controleren als ik tijd heb straks!!!

De image1 control kan maar 1 foto bevatten.
Wat moet er dan gebeuren met een volgende foto van hetzelfde dossier ?

Per dossier kunnen er meerdere foto's aanwezig zijn, de naam hiervan is dan opvolgend. ( 2022258, 2022258-1, 2022258-2 )

het klinkt een beetje krakkemikkig als je in een bestand dossiers hebt staan met indicatie 'ja' waarvan geen bijpassende foto is.
in pricipe komt dit ook niet voor maar mocht die foto er niet zijn dan moet die wel retour komen met een melding hierover en niet met een fout.
Klik om te vergroten...
 
Laatst bewerkt:
snb

HTML: 
wat je zegt klopt niet.
Als een foto niet bestaat krijgt variabele c01 gewoon geen waarde en wordt leeg.
Er kan daar geen fout optreden.

Afbeelding die op C:\HelpMij\Pictures staat die opent hij prima (als deze mappen niet bestaan op C:\ en wel op H:\HelpMij\Pictures dan gaat het mis.

Fout4.JPG
 
Het is handig dat je zelf leert hoe je ongerijmdheden in code kunt opsporen.
Het is ook handig als je preciezer bent in je feedback.
Als variabele c01 leeg is is dat geen fout.
Een fout in VBA is een 'syntaxisfout' of een compileerfout met een foutnummermelding.

De afbeelding die jij toont, toont geen fout.
De variabele c01 is leeg en moet nog een waarde krijgen via de gele regel.
Het wordt pas interessant wat de waarde van c01 is in de volgende VBA-regel.

Zet voor jouw gemak vóór de getoonde gele regel:

Code: 
Msgbox Dir(Mid(C_00.Tag,j,1) & c00 & C_00 & "*.jpg")
 
Laatst bewerkt:
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan