01. februar 2003 - 13:12Der er
15 kommentarer og 2 løsninger
Visning af billede
Jeg bruger dette til at vise et billede
Den tjekker om der er en billedsti og billedfil i db'en men jeg vil også gerne have den til at tjekke om billedefilen eksistere, så jeg ikke får en fejl hvis selve billedefilen mangler.
-------------------------------------- If Not IsNull(Me!Fangst_billedsti) Then Me!Fangst_billeder.Picture = Me!Fangst_billedsti & Me!Fangst_billedfil Else Me!Fangst_billeder.Picture = "(none)" End If ---------------------------------------
I dette særtema ser vi på, hvordan cloud og AI bliver fundamentet for virksomhedernes digitale forretning, og hvordan de nye muligheder for automatisering og forretningsværdi kan udnyttes uden at miste overblik, sikkerhed og menneskelig kontrol.
Din kode giver en fejl hos mig så derfor skriver jeg lige den fulde kode her:
If Dir(Me!Fangst_billedsti & Me!Fangst_billedfil) <> "" Then Me!Fangst_billeder.Picture = Me!Fangst_billedsti & Me!Fangst_billedfil Else Me!Fangst_billeder.Picture = "" End If
If Not IsNull(Me!Fangst_billedsti) Then Me!Fangst_billeder.Picture = Me!Fangst_billedsti & Me!Fangst_billedfil Else Me!Fangst_billeder.Picture = Null End If
Jeg har prøvet at gøre følgende, og det virker. Jeg får ingen fejlmeddelelse, men kan man ikke skrive noget tekst istedet. evt. "Du har fået placeret mappen med billeder forkert"
If Dir(Me!Fangst_billedsti & Me!Fangst_billedfil) <> "" Then Me!Fangst_billeder.Picture = Me!Fangst_billedsti & Me!Fangst_billedfil Else Me!Fangst_billeder.Picture = "" End If
If Dir(Me!Fangst_billedsti & Me!Fangst_billedfil) <> "" Then Me!Fangst_billeder.Picture = Me!Fangst_billedsti & Me!Fangst_billedfil Else Me!Fangst_billeder.Picture = "" MsgBox "Du har fået placeret mappen med billeder forkert." End If
Dette er ikke afprøvet. Tag en Label fra værktøjskassen og placer den i billedet. Giv den egenskaben i format-fanen Synlig "nej".
If Dir(Me!Fangst_billedsti & Me!Fangst_billedfil) <> "" Then Me!Fangst_billeder.Picture = Me!Fangst_billedsti & Me!Fangst_billedfil Else Me!Fangst_billeder.Picture = "" Me.Label1.Visible.true Me.Label1.Caption "Du har fået placeret mappen med billeder forkert." End If
Jeg har lige formatteret min PC til xp, så jeg er ikke rigtig klar over hvad der sker, men ovenstående kan ikke være helt galt.
Private Sub Form_Current() If Me.felt1 > 4 Then Me.Etiket2.Visible = True Else: Me.Etiket2.Visible = False End If End Sub
Det er ikke nødvendigt med en Caption. Koden gennemløbes hver gang du skifter post, og hvis felt er større end 4, vil etiketten være synlig ellers ikke. en betingelse er dog, at etikettens egenskab Synlig er sat til "Nej".
Læg din e-mail hvis du vil have en testdb tilsendt.
Mjaaaa > Der skete det, at jeg havde for meget garbage på min PC, og havde den med på job . Men denne unævnelige EDB-ansvarlige havde lånt Win 98 og -Me cd'en til en anden. Så noget skulle jo prøves. Og så havde jeg jo formatteret den iaftes. Nu må vi se hvad der sker.
Ja - Du kan jo altid indsætte en standardværdi for nye poster i tabelen, men jeg tror ikke det er smart. Hvis du f.eks vil indsætte en standardværdi i feltet Fangst_billeder vil feltet jo aldrig være Null, som du jo måler efter i formularen:
If Dir(Me!Fangst_billedsti & Me!Fangst_billedfil) <> "" Then
Så hellere indsætte denne kode i formularens VedAktuelHændelse (OnCurrent):
If Me.NewRecord then Me.Fangst_billedsti = "Og stien her" End If
Så længe der ikke står noget i Me!Fangst_billedfil, så vil Dir(Me!Fangst_billedsti&Me!Fangst_billedfil) vel returnere en tom streng (eller null - det ved jeg faktisk ikke). Under alle omstændigheder, så returner Dir-funtionen vel kun en værdi, hvis den finder en fil, der svarer til beskrivelsen.
superjab > Jeg ved det ikke. Jeg har aldrig rodet med Dir-funktionen. Jeg har haft travlt med at få min PC op at køre og har ike afprøvet mit forslag, så det var blot et skud fra hoften.
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.
