Invulformulier

[HSV]

Altijd leuk een bedankje voor de niet geteste code.
Teveel werk of moet het in een bestandje gegoten worden?

 

[Bandit0]

Ben nog bezig met testen.
Heb een paar reserve kopieen gemaakt van het werkende bestand dat ik tot nu toe had.
Voor ik probeer een code te wijzigigen, dit omdat ik geen ster hierin ben en als het fout gaat heb ik niets meer.

 

[Haije]

als het fout gaat heb ik niets meer

Je kunt altijd nog terugvallen op de bijlage die je hier geplaatst hebt, maar het is inderdaad verstandig om een kopie te maken en daarin e.e.a. uit te proberen.

 

[HSV]

Als men dan op dit symbool klikt moet de afbeelding die bij deze regel hoort getoond worden in een popup bijvoorbeeld.
Weet niet of dit mogelijk is?

Alvast bedankt,
Bandit

Het is exact wat de code doet.

Hou het simpel.
Als het je niet bevalt ga je het bestand niet opslaan en anders maak je er een copy van toch?

 

[Bandit0]

Ik ben aan het zoeken in de code op welk tabblad en waar ik de code die je gepubliceert hebt te plakken.

 

[HSV]

Ga in de ontwerpmodus van Userform Wedstrijd en dubbelklik op Invoeren.
Waar de cursor knippert is de code die je moet vervangen.

 

[Bandit0]

Goedemiddag Harry,

Heb de code aangepast maar het werkt nog niet.
Weet niet zeker of ik het wel op de juiste plaats heb veranderd vandaar dat ik het bestand nog even heb bijgesloten.
Misschien dat je even kunt kijken wat ik fout doe?

 

[HSV]

Je hebt het in een werkblad gezet.

Ga naar formulieren Wedstrijd.

 

[Bandit0]

Hoi Harry,

Bedankt voor je snelle antwoord.
Ga ermee aan de slag.

 

[HSV]

Het is een koud kunstje om het voor je in het bestand plaatsen, maar daar leer je helemaal niets van.
Gewoon goed lezen wat ik schrijf zou voldoende moeten zijn.

Ik verneem het wel.

 

[Bandit0]

Goedemorgen Harry,

Heb de code volgens mij (ik hoop het tenminste) op de goede plaats staan nu.
Echter als ik alle gegevens heb invoerd en een afbeelding heb geselcteerd om up te loaden en op de knop invoeren klik krijg ik een foutmelding.
Heb het bestand bijgesloten zoals ik het nu heb.
Misschien kun je aangeven wat ik niet goed doe?

Alvast bedankt,
Bandit

 

[emields]

Probeer het zo eens

 

[Bandit0]

Goedemiddag Harry,

Bedankt voor het bestand.
Echter krijg ik nog wel een foutmelding als ik klaar ben met invoeren van de gegevens, heb een schermafdruk bijgesloten.
Ook krijg ik een foutmelding als gegevens wil bekijken onder de knop Bekijk uitslagen evenementen.

 

[HSV]

In het bestand wat je wat plaatst gaat alles goed.

Wat doet deze regel in het plaatje hierin?

bestand = Application.GetOpenFilename("Upload-bestanden (*.jpg), *.jpg", , "Bestandsnaam", , False)

Die staat hier al.

Private Sub CommandButton4_Click()
 bestand = Application.GetOpenFilename("Upload-bestanden (*.jpg), *.jpg", , "Bestandsnaam", , False)
End Sub

Het vreemde is dat het in je bestand wel goed staat.

Haal onderstaande code nog uit moduleblad Open; die hoort daar niet.

Private Sub CommandButton4_Click()
For i = 1 To 13
    If Me("w" & i) = "" Then
        MsgBox Me("l" & i) & " is niet ingevuld!"
        Me("w" & i).SetFocus
        Exit Sub
    End If
Next
Set sh = Sheets("wedstrijden").Cells(Rows.Count, 1).End(xlUp)
    sh.Offset(1).Resize(, 13) = Array(w1, Format(w2, "mm/dd/yyyy"), w3, w4, w5, w6, w7, w8, w9, w10, w11, w12, w13)
    If bestand <> "" Then
       sh.Offset(1, 13).ClearComments
         With sh.Offset(1, 13).AddComment.Shape
            .Height = .Height * 2
            .Width = .Width * 2
            .Fill.UserPicture bestand
         End With
    End If
    For i = 1 To 13
        Me("w" & i) = ""
    Next
 bestand = ""
End Sub

 

[Bandit0]

Goedeavond Harry,

Ik heb de code uit het moduleblad Open weggehaald.
Echter begrijp ik niet wat je met de bovenste 2 codes bedoeld, kan het ook nergens dubbel vinden in het bestand?
Kun je aangeven op welk blad ik moet kijken?

Bandit

 

[HSV]

Goedenavond,

In het bestand staat het goed maar in het plaatje staat die regel daar.

 

[Bandit0]

Goedenavond Harry,

Heb het nog een keer opnieuw aangepast maar ik blijf de foutmelding krijgen net als in het plaatje ondanks dat dit nu goed moet zijn.
Ook krijg ik nog steeds een foutmelding als ik gegevens wil bekijken onder de knop Bekijk uitslagen evenementen.
Heb het laatste bestand dat ik heb bijgesloten.

 

[HSV]

Hier geen foutmeldingen.

Zie tabblad Wedstrijden cel N5 waar ik een foto heb geplaatst.
Geen idee wat je handelingen zijn, maar ik vul alles in en klik op Uploaden.

 

[Bandit0]

Goedemorgen Harry,

Bedankt voor het bestand.
Zie inderdaad jouw foto inderdaad staan.
Echter als ik op het eerste blad (open) sta en via de knop /button naar bekijk uitslagen evenementen ga en de gegevens die jij ingevoerd hebt wil oproepen krijg
ik de foutmelding zoals op bijgevoede afbeelding.
Dus ik weet niet wat er nu fout gaat.

Alvast bedankt,
Bandit

 

[HSV]

Bandit,

Bij deze de code aangepast en het bestand maar bijgevoegd.