Vão existir outras alternativas, mas segue uma basicona. Se tiver algum campo sem o preenchimento, emite mensagem e retorna a page com txt sem preenchimento (se fosse formulário com muitos txt's poderia verificar qual campo ficou sem preenchimento e setá-lo para orientar melhor o usuário, mas como são poucos campos, acredito ser desnecessário).
Você pode também iniciar com as pages seguintes a primeira desabilitadas, e somente habilitá-las quando os 3 txt's estiverem preenchidos.
Sobre o formulário sempre se apresentar na page 0 (pagina inicial) é só mantê-lo salvo nessa posição quando estiver no ambiente VBA.
Ou outra alternativa, no evento initialize do form, expresse Me.MultiPage1.Value = 0
Private Sub MultiPage1_Click(ByVal Index As Long)
If Me.txtServico.Text = "" Or Me.txtTiposervico.Text = "" Or Me.txtdescricaoservico.Text = "" Then
MsgBox "Existem campos sem preenchimento.", vbCritical, "Depoisteconto"
Me.MultiPage1.Value = 0
End If
End Sub
Postado : 21/09/2012 5:51 am