Database

[djutoch]

Haal eens de regel weg in het Private Sub UserForm_Initialize() event en zie of dit je probleem oplost.

Je hebt geen enkel userform met multipages.

MultiPage1.Value = 0

 

[Sary]

1 uur geleden, djutoch zei:

Haal eens de regel weg in het Private Sub UserForm_Initialize() event en zie of dit je probleem oplost.

Je hebt geen enkel userform met multipages.

MultiPage1.Value = 0

 

Als ik dat doe haalt hij niets uit mijn lijsten, alles lijkt leeg dan.

[djutoch]

Tja, dan weet ik niet wat er gebeurd maar het is ieder geval een feit dat je geen enkele userform hebt met multipages, deze regel kan alleen maar fouten opleveren.

Ik heb niet verder gekeken in je code(s)

Verander eens

MultiPage1.Value = 0

in

MultiPage1.Value = 1

[emielDS]

er zit een multipage in fram. die enkel werkt als er bij  RTP verwerkt  "ja" wordt geantwoord.

[Sary]

1 uur geleden, djutoch zei:

Tja, dan weet ik niet wat er gebeurd maar het is ieder geval een feit dat je geen enkele userform hebt met multipages, deze regel kan alleen maar fouten opleveren.

Ik heb niet verder gekeken in je code(s)

Verander eens

MultiPage1.Value = 0

in

MultiPage1.Value = 1

Ook niet, soort blijft leeg..

[emielDS]

Probeer deze eens.

ik heb in alle userform's [MN_table].value vervangen door [mn].value

Database aanpassing (1).xlsm

[Sary]

10 uren geleden, emielDS zei:

Probeer deze eens.

ik heb in alle userform's [MN_table].value vervangen door [mn].value

Database aanpassing (1).xlsm 563.42 kB · 2 downloads

 

[Sary]

Dag emielDS,

Wat afgewerkte mengers betreft, hier krijg ik nog steeds niets te zien bij soort als ik het materiaalnummer ingeef. Bij de andere, tankstalen,vloeibare,grondstoffen enz krijg ik steeds volgend scherm als ik bij materiaalnummer klik..

2 minuten geleden, Sary zei:

 

Foutcode.docx

[djutoch]

Quote

krijg ik steeds volgend scherm als ik bij materiaalnummer klik..

Dat spreekt voor zich, de combobox refereert naar je mn lijst, die bestaat uit 1 kolom.

Een combobox of listbox start altijd vanaf kolom 0

Je code in de combobox is T_05.Value = T_03.Column(1), maar die heb je helemaal niet, want je mn lijst bevat maar 1 kolom

Gezien een combobox start van kolom 0 moet je code de volgende zijn.

T_05.Value = T_03.Column(0)

de eerste kolom van je mn lijst is namelijk kolom 0 van je combobox,

Quote

T_05.Value = T_03.Column(1

Kolom 1 van je listbox refereert naar de 2de kolom van je mn lijst die niet bestaat, vandaar de foutmelding.

[djutoch]

voor je eerste vraag

Gebruik volgende code in de combobox materiaal nummer.

Private Sub T_03_Click()
    T_05.Value = T_03.Column(0)
End Sub