MultiPage

[ccirtina]

Nu poate sa se faca focus, primesc mesaj de eroare.

[ccirtina]

Am gasit solutia, voi seta la MultiPage1, style - fmTabStyleNone

[ccirtina]

Revin cu codurile vba ce trebuie introduse:

Cod: Selectaţi tot

Private Sub BtNext1_Click()
With GIE.mpMyMulti
    .Pages(0).Visible = False
    .Pages(1).Visible = True
    .Pages(2).Visible = False
    .Pages(3).Visible = False
    .Pages(4).Visible = False
    .Pages(5).Visible = False
    .Pages(6).Visible = False
    .Pages(7).Visible = False
    .Value = 1
End With
End Sub
Private Sub BtPreview2_Click()
With GIE.mpMyMulti
    .Pages(0).Visible = True
    .Pages(1).Visible = False
    .Pages(2).Visible = False
    .Pages(3).Visible = False
    .Pages(4).Visible = False
    .Pages(5).Visible = False
    .Pages(6).Visible = False
    .Pages(7).Visible = False
    .Value = 0
End With
End Sub
Private Sub UserForm_Initialize()
With GIE.mpMyMulti
    .Pages(0).Visible = True
    .Pages(1).Visible = False
    .Pages(2).Visible = False
    .Pages(3).Visible = False
    .Pages(4).Visible = False
    .Pages(5).Visible = False
    .Pages(6).Visible = False
    .Pages(7).Visible = False
    .Value = 0
End With
End Sub 

Nu m-am apucat sa scriu codurile pentru fiecare pagina, dar sunt convins ca se intelege si se poate dezvolta.