Boa tarde Pessoal
Não sou muito experiente com o access mais consigo me virar
Hoje enquanto tentava gerar um relatório de comissão, apareceu este erro
Erro em tempo de execução '6'; Estouro
Ao depurar
Option Compare Database
Private Sub Comando26_Click()
DoCmd.SetWarnings False
DoCmd.OpenQuery "cnsComissoes"
End Sub
Private Sub Comando14_Click()
End Sub
Private Sub Comando27_Click()
End Sub
Private Sub Comando28_Click()
DoCmd.SetWarnings False
DoCmd.OpenQuery "cnsChequeDEV2x"
End Sub
Private Sub rep_AfterUpdate()
DoCmd.SetWarnings False
DoCmd.OpenQuery "cnsTemp1"
DoCmd.OpenQuery "cnsTemp2"
DoCmd.OpenQuery "cnsTemp3"
DoCmd.OpenQuery "cnsTemp4"
DoCmd.OpenQuery "cnsTemp5"
DoCmd.OpenQuery "cnsTemp6"
DoCmd.OpenQuery "cnsTemp7"
DoCmd.OpenQuery "cnsTemp8"
Me.dataemi = DLookup("[datae]", "[cnsRep]", "NOME = '" & Me.REP & "'")
End Sub
Private Sub REP_DblClick(Cancel As Integer)
End Sub
Se alguém souber me ajudar agradeço!!!
Não sou muito experiente com o access mais consigo me virar
Hoje enquanto tentava gerar um relatório de comissão, apareceu este erro
Erro em tempo de execução '6'; Estouro
Ao depurar
Option Compare Database
Private Sub Comando26_Click()
DoCmd.SetWarnings False
DoCmd.OpenQuery "cnsComissoes"
End Sub
Private Sub Comando14_Click()
End Sub
Private Sub Comando27_Click()
End Sub
Private Sub Comando28_Click()
DoCmd.SetWarnings False
DoCmd.OpenQuery "cnsChequeDEV2x"
End Sub
Private Sub rep_AfterUpdate()
DoCmd.SetWarnings False
DoCmd.OpenQuery "cnsTemp1"
DoCmd.OpenQuery "cnsTemp2"
DoCmd.OpenQuery "cnsTemp3"
DoCmd.OpenQuery "cnsTemp4"
DoCmd.OpenQuery "cnsTemp5"
DoCmd.OpenQuery "cnsTemp6"
DoCmd.OpenQuery "cnsTemp7"
DoCmd.OpenQuery "cnsTemp8"
Me.dataemi = DLookup("[datae]", "[cnsRep]", "NOME = '" & Me.REP & "'")
End Sub
Private Sub REP_DblClick(Cancel As Integer)
End Sub
Se alguém souber me ajudar agradeço!!!