Início
![[Resolvido]SubFormulário de Compras Bloqueado Empty](https://2img.net/i/empty.gif)
Samuel Ribeiro 8/1/2019, 15:08Boa tarde
Depois de muito tempo retornei abrindo um tópico neste respeitável Fórum.
Este erro que vou postar ja havia ocorrido comigo uma vez, mas não me lembro como resolvi, quando abro o formulário de registro de compras seleciono o fornecedor normalmente e preencho os campos que precisam se preenchidos, mas quando vou acrescentar produtos no sub Formulário ele esta bloqueado e não deixa ser acrecentado registros
Segue imagem e código do formulário:
Depois de muito tempo retornei abrindo um tópico neste respeitável Fórum.
Este erro que vou postar ja havia ocorrido comigo uma vez, mas não me lembro como resolvi, quando abro o formulário de registro de compras seleciono o fornecedor normalmente e preencho os campos que precisam se preenchidos, mas quando vou acrescentar produtos no sub Formulário ele esta bloqueado e não deixa ser acrecentado registros
Segue imagem e código do formulário:
- Código:
Option Compare Database
Private Sub Ref1_AfterUpdate()
Prod.Requery
End Sub
Private Sub Comando21_Click()
On Error GoTo Err_Comando21_Click
DoCmd.GoToRecord , , acNewRec
Exit_Comando21_Click:
Exit Sub
Err_Comando21_Click:
MsgBox Err.Description
Resume Exit_Comando21_Click
End Sub
Private Sub Comando22_Click()
On Error GoTo Err_Comando22_Click
DoCmd.GoToRecord , , acPrevious
Exit_Comando22_Click:
Exit Sub
Err_Comando22_Click:
MsgBox Err.Description
Resume Exit_Comando22_Click
End Sub
Private Sub Comando23_Click()
On Error GoTo Err_Comando23_Click
DoCmd.GoToRecord , , acNext
Exit_Comando23_Click:
Exit Sub
Err_Comando23_Click:
MsgBox Err.Description
Resume Exit_Comando23_Click
End Sub
Private Sub Comando24_Click()
On Error GoTo Err_Comando24_Click
DoCmd.Close
Exit_Comando24_Click:
Exit Sub
Err_Comando24_Click:
MsgBox Err.Description
Resume Exit_Comando24_Click
End Sub
Private Sub Comando25_Click()
On Error GoTo Err_Comando25_Click
DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
Exit_Comando25_Click:
Exit Sub
Err_Comando25_Click:
MsgBox Err.Description
Resume Exit_Comando25_Click
End Sub
Private Sub btnRelatorioDeCompras_Click()
Dim strDocName As String
Dim strFilter As String
strDocName = "rltCompras"
strFilter = "id = Forms!Compras!id"
DoCmd.OpenReport strDocName, acViewPreview, , strFilter
End Sub
