variables verdwijnen na controle

[sarges]

Beste kenners,

Ik kom er niet uit waar ik fout ga.
Ik heb een verplicht veld wat ingevuld moet worden. De melding komt prima maar de variables die in mijn regel staan geven dan een fout (ontbreekt) als ik weer terug bij mijn overzicht kom.
Graag jullie hulp

Serge

Private Sub cmdK_Click()
If cboK1 = "" Then
     enmAntwoord = MsgBox("Je hebt niet alles ingevuld?", vbQuestion Or vbYes, "Let op!")
     If enmAntwoord = vbYes Then
        Overzicht.Show
     End If
     End If

  With ActiveDocument
    For j = 1 To 3
      .Variables("cboMP" & j) = Me("cboK" & j).Value
    Next
    .Fields.Update
    .Fields.Unlink
  End With

    ActiveDocument.Bookmarks("cm3").Range.Text = cbo3.Value
    ActiveDocument.Bookmarks("cm4").Range.Text = cbo4.Value
    ActiveDocument.Bookmarks("cm5").Range.Text = cbo5.Value
    ActiveDocument.Bookmarks("cm6").Range.Text = cbo6.Value
    ActiveDocument.Bookmarks("cm7").Range.Text = cbo7.Value
    ActiveDocument.Bookmarks("cm8").Range.Text = cbo8.Value
 
Unload Me
Overzicht.Show

 

[snb]

Kun je beginnen met het gebruik van de juiste code-markering ? geen php , maar VBA .

 

[sarges]

Ik heb dit uit boeken over genomen.
Op internet naar zoiets gelijkwaardig gezocht.
Ik weet nog niet hoe het allemaal juist moet. Doe mn best

 

[snb]

Ik bedoel dit:

Private Sub cmdK_Click()
If cboK1 = "" Then
     enmAntwoord = MsgBox("Je hebt niet alles ingevuld?", vbQuestion Or vbYes, "Let op!")
     If enmAntwoord = vbYes Then
        Overzicht.Show
     End If
     End If
 
  With ActiveDocument
    For j = 1 To 3
      .Variables("cboMP" & j) = Me("cboK" & j).Value
    Next
    .Fields.Update
    .Fields.Unlink
  End With
 
    ActiveDocument.Bookmarks("cm3").Range.Text = cbo3.Value
    ActiveDocument.Bookmarks("cm4").Range.Text = cbo4.Value
    ActiveDocument.Bookmarks("cm5").Range.Text = cbo5.Value
    ActiveDocument.Bookmarks("cm6").Range.Text = cbo6.Value
    ActiveDocument.Bookmarks("cm7").Range.Text = cbo7.Value
    ActiveDocument.Bookmarks("cm8").Range.Text = cbo8.Value
 
Unload Me
Overzicht.Show

 

[snb]

Serge,

Ik kan alleen maar zeggen: begin bij het begin.
Waar je nu mee bezig bent sluit niet aan op het nivo dat je van VBA beheerst. Begin vooraan en simpel en bouw het langzaam op. Met rijles begin je ook niet met de 'bijzondere verrichtingen'.

 

[sarges]

Ik wil teveel tegelijk, weet ik.
Maar wil dit project graag werkend hebben zo mijn dagelijks werk een stuk makkelijker wordt.
Voor de toekomst wil ik het project steeds meer verbeteren en steeds netter maken qua VBA script. In ieder geval bedankt voor je hulp en uitleg.

Serge

 

[sarges]

Ben al een eind op weg om alles steeds een beetje netter en beter neer te zetten.
Ben nu bezig om het samen te laten lopen met de bookmarks.
Dat wanneer de keuze:
Variable
Or
Bookmark
dat dan de juiste gegevens op de juiste plek komen

Begreep ook eerst niet wat je bedoelde met PHP of CODE, maar is ondertussen duidelijk

  If Trim(cbo1.Value) = "" Or Trim(cbo2.Value) = "" Or Trim(cbo3.Value) = "" Then

    MsgBox "Niet alle verplichte velden zijn ingevuld!.", vbCritical, "Let op!"
   
Else

For t = 1 To 2
ActiveDocument.Tables(t).Select
'Zorgt er voor dat de laatste regel en 1ste cell gekozen wordt
    Selection.HomeKey Unit:=wdRow
    Selection.EndKey Unit:=wdColumn

'///////////////////////////////////////////////////////////////////////////////
    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:= _
        ("DOCVARIABLE tijd1"), PreserveFormatting:=True
    Selection.MoveRight Unit:=wdCell
    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:= _
        ("DOCVARIABLE tijd2"), PreserveFormatting:=True
    Selection.MoveRight Unit:=wdCell
    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:= _
        ("DOCVARIABLE tijd3"), PreserveFormatting:=True
    Selection.MoveRight Unit:=wdCell
'//////////////////////////////////////is met de macro gedaan.
Next
With ActiveDocument
    For n = 1 To 3
      .Variables("tijd" & n) = Me("cbo" & n).Value
    Next
 .Fields.Update
.Fields.Unlink

  End With

End If

 

[snb]

Een documentvariabele moet je in een document zichtbaar maken met een veld. Zie de bijlage. Voer de macro 'tst' uit in de module ThisDocument.
Gebruik VBA niet voor de opmaak van documenten. Doe dat vooraf in een document of sjabloon.

 

[sarges]

Zal er weer induiken.
Zie ongeveer wat het doet, nu nog zelf de opbouw.
Bedankt weer voor de verdere info

Serge