Pessoal neste código abaixo ,preciso fazer o seguinte 1° impedir que o usuário salve dados sem preencher determinados campos até ai tudo bem,mas no mesmo botão tem um código para gerar parcelas, o que preciso é interromper o código caso algum quando não tenha sido preenchido
Private Sub btnGerar_Click()
If IsNull(Me.TxtDescricao) Then
Cancel = True
Me.TxtDescricao.SetFocus
MsgBox "Preencha o Campo Descricação"
ElseIf IsNull(Me.txtData) Then
Cancel = True
Me.txtData.SetFocus
MsgBox "Preencha o campo Data"
ElseIf IsNull(Me.txtvalor) Then
Cancel = True
Me.txtvalor.SetFocus
MsgBox "Preencha o campo Valor"
End If
DoCmd.CancelEvent
Aqui deveria interromper para o usuário preencher o campo
If MsgBox("Deseja gerar as Parcelas?", vbYesNo, "Gerar Parcelas") = vbYes Then
Dim I As Integer
Dim StrDateAdd As Date
Dim StrValorParc As Double
Dim StrValorstatus As Double
Dim strValorData As Double
Dim Parc As String
StrValorParc = Me.txtValor_Total
For I = 1 To Me.txtParc
StrDateAdd = DateAdd("m", I, Format(Me.txtData, "dd/mm/yyyy"))
StrParc = I & "/" & Me.txtParc
Strstatus = Me.Status
CurrentDb.Execute "INSERT INTO tbldespesas(Descrição,vencimento,txtValor,parcela,status)" _
& " Values(""" & Me.TxtDescricao.Value & """,#" & Format(StrDateAdd, "mm/dd/yyyy") & "#, """ & StrValorParc & """,""" & StrParc & """,""" & Strstatus & """);"
Next I
MsgBox "Parcelas geradas com sucesso!", vbInformation, "Gerar parcelas"
End If
DoCmd.GoToRecord , , acNewRec
End Sub
Private Sub btnGerar_Click()
If IsNull(Me.TxtDescricao) Then
Cancel = True
Me.TxtDescricao.SetFocus
MsgBox "Preencha o Campo Descricação"
ElseIf IsNull(Me.txtData) Then
Cancel = True
Me.txtData.SetFocus
MsgBox "Preencha o campo Data"
ElseIf IsNull(Me.txtvalor) Then
Cancel = True
Me.txtvalor.SetFocus
MsgBox "Preencha o campo Valor"
End If
DoCmd.CancelEvent
Aqui deveria interromper para o usuário preencher o campo
If MsgBox("Deseja gerar as Parcelas?", vbYesNo, "Gerar Parcelas") = vbYes Then
Dim I As Integer
Dim StrDateAdd As Date
Dim StrValorParc As Double
Dim StrValorstatus As Double
Dim strValorData As Double
Dim Parc As String
StrValorParc = Me.txtValor_Total
For I = 1 To Me.txtParc
StrDateAdd = DateAdd("m", I, Format(Me.txtData, "dd/mm/yyyy"))
StrParc = I & "/" & Me.txtParc
Strstatus = Me.Status
CurrentDb.Execute "INSERT INTO tbldespesas(Descrição,vencimento,txtValor,parcela,status)" _
& " Values(""" & Me.TxtDescricao.Value & """,#" & Format(StrDateAdd, "mm/dd/yyyy") & "#, """ & StrValorParc & """,""" & StrParc & """,""" & Strstatus & """);"
Next I
MsgBox "Parcelas geradas com sucesso!", vbInformation, "Gerar parcelas"
End If
DoCmd.GoToRecord , , acNewRec
End Sub