Code Aanpassen Werkt Niet

[AD1957]

Misschien moet je de knop "afsluiten"ook nog aanpassen. :dIs maar wat je wensen zijn.

 

[marcel31281]

Bedankt:thumb:

Alleen blijf ik een foutmelding krijgen "kan het opgegeven object niet vinden"

Wat doe ik fout?

 

[AD1957]

Ben een beetje lui om te gaan zoeken.
In welk formulier heb je de code dan aangepast.
En wanneer komt de foutmelding.

 

[marcel31281]

in frm.verpleeghuizen heb ik de code geplaatst, de foutmelding krijg ik als op afsluiten of rapport opslaan klik.

Op deze regel geeft het een foutmelding

Me("TextBox" & i) = ""

 

[AD1957]

Wel even goed nadenken.
In het formulier verpleeghuizen staat geen textbox7 en andere.
Dus code beetje aanpassen kun je zelf wel.
Hoor het wel.

 

[snb]

Wat is de waarde van i ?
Bijv. 12
Bestaat de control Textbox12 ?

Ben je bekend met de funktietoets F8 ?

 

[marcel31281]

Opgelost... had inderdaad wat beter moet lezen en nadenken

Thnx!!

( F8 gebruik ik nooit, geen idee wat dit doet, )

 

[Haije]

( F8 gebruik ik nooit, geen idee wat dit doet, )

Als je in de editor van VBA staat kun je met F8 stap voor stop door de code lopen. Probeer het maar eens

 

[marcel31281]

Er gaat nog steeds iets niet goed, als ik een nieuw bed selecteer neemt hij deze gegevens niet over maar blijven de gegevens van het vorige bed staan (zie Frm.Verpleeghuizen)

Nu dacht ik dit op te lossen met onderstaande aanpassing in de formule, maar dat werkt dus niet

Me.Hide
         For i = 8 To 10
         Me("TextBox" & i) = ""
         Next i
        
         ComboBox1 = ""
         TextBox19 = ""
         TextBox1 = ""
         TextBox2 = ""
         TextBox3 = ""
         TextBox4 = ""
         TextBox5 = ""
         TextBox6 = ""

 

[AD1957]

Me.Hide

For i = 8 To 10
  Me("TextBox" & i) = ""
Next i

ComboBox1 = ""
TextBox19 = ""

en dit toevoegen in de code van de userform:

Private Sub UserForm_Activate()
  With Sheets("-OVERZICHT-")
        Dim num As Integer
        num = ActiveCell.Row
        TextBox1.Value = .Cells(num, 7).Value 'serienummer
        TextBox2.Value = .Cells(num, 8).Value 'klantnummer
        TextBox3.Value = .Cells(num, 9).Value 'type bed
        TextBox4.Value = .Cells(num, 4).Value 'etage
        TextBox5.Value = .Cells(num, 5).Value 'naam afdeling
        TextBox6.Value = .Cells(num, 6).Value 'kamernummer
        TextBox19.Value = .Cells(num, 10).Value 'bijzonderheden
  End With
End Sub

 

[marcel31281]

Bedankt, het werkt fantastisch:thumb:

In mijn vorige bestanden had ik een optie ingebouwd die de actieve regel oplicht, echter ben ik deze in het proces kwijtgeraakt en kan nergens terugvinden hoe ik dit ooit gemaakt had.

Heb jij wellicht een idee

Alvast bedankt,

 

[AD1957]

Gewoon even zoeken in je oude bestanden
verder zou ik dit nog toevoegen:

Private Sub TextBox10_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 13 Or KeyCode = 9 Then
  ComboBox1.SetFocus [COLOR="#008000"]'of textbox19.setfocus wat je maar wenst[/COLOR]
End If
End Sub

De teksten in combobox1 zou ik ook aanpassen:
GOEDGEKEURD: blablabla
AFGEKEURD: blablabla
Je kunt dan nml. meteen G of A intikken in de combobox (voordeel: geen muisarm)

 

[AD1957]

Gewoon even zoeken in je oude bestanden

Ik had er nog eentje.
Kijk in de voorwaardelijke opmaak voor de oplossing.

 

[marcel31281]

Na het in de praktijk testen van het bestand vandaag zijn onderstaande problemen nog naar boven gekomen, zou je eens mee kunnen kijken hiernaar?

- De userform die verschijnt als je in kolom B klikt, zouden we graag laten verschijnen net boven of onder de geselecteerde cel, ik heb al wat lopen stoeien met de eigenschappen maar dit wert niet helemal lekker.

- En ik kan wel een map aanmaken in One Drive, maar kan hier vervolgens niet het rapport in op slaan (misschien is dit wel ergens geblokeerd op onze laptops)

Verder werkt het bestand fatastisch en stukken beter als de oude manier

 

[AD1957]

En ik kan wel een map aanmaken in One Drive, maar kan hier vervolgens niet het rapport in op slaan (misschien is dit wel ergens geblokeerd op onze laptops)

geen idee, misschien heeft iemand anders een oplossing

De userform die verschijnt als je in kolom B klikt, zouden we graag laten verschijnen net boven of onder de geselecteerde cel,

Zal straks even kijken, zal wel lukken

 

[AD1957]

voor de userform in event userform_initialize

me.top=activecell.top + 60 'waarde eventueel aanpassen

zet voor de zekerheid in de eigenschappen Left en Top op 0

 

[marcel31281]

Bedankt :thumb::thumb:

 

[marcel31281]

En ik kan wel een map aanmaken in One Drive, maar kan hier vervolgens niet het rapport in op slaan (misschien is dit wel ergens geblokeerd op onze laptops)

Is opgelost dankzij Edmoor, de string bleek te lang ( meer als 219 tekens )

 

[AD1957]

Marcel,
Ik wil altijd weer iets bijleren. Zie de oplossing van Edmoor hier niet staan.

 

[marcel31281]

De oplossing was eigenlijk niks meer dan de string inkorten zodat je onder de 219 tekens komt

https://www.helpmij.nl/forum/showthread.php/952084-Problemen-met-opslaan-PDF

Daarnaast lijkt op de 1 of andere manier dit vanmorgen ineens niet meer te werken, nadat ik de code voor het oplichten van de actieve rij erin heb geplakt

Vreemde is dat het op de 1e paar cellen wel werkt en als je verder naar beneden gaat loopt het vast

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Application.CutCopyMode = False Then
Application.Calculate
Application.ScreenUpdating = False
End If


If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, ListObjects(1).ListColumns(2).DataBodyRange) Is Nothing Then
    Frm_Status.Show
    

    End If
End Sub