Bom dia.
Tentei por algumas vezes adaptar o código abaixo para criar um novo cadastro.
Mas desisti. rsrs
Gostaria que novo fosse no formato 0000/2015 e assim sucessivamente.
Tentei com esse comando:
'Me.Pedido = Format(Mid(DMax("Pedido", "tbl_Pedido"), 1, 4) + 1, "0000") & "/" & Year(Now)
Também gostaria que tivesse essa MSGBOX informando ao usuario que é ....
"Obrigatório o preenchimento de todos campos desta primeira guia!.
Esta guia possui os objetos CboUnidadeRequisitante, CboServicoRequisitante, CboOficialRequisitante, TxtNumOfEntrada e dtDataSolicitacao que desejo que fossem obrigatório o seu preenchimento.
e por fim com o foco voltando a
bom...
O código foi esse abaixo...
Private Sub CmdNovoregistro_Click()
'Vai para novo registro
Me.Pedido = Format(Mid(DMax("Pedido", "tbl_Pedido"), 1, 4) + 1, "0000") & "/" & Year(Now)
On Error GoTo Err_CmdNovoregistro_Click
DoCmd.GoToRecord , , acNewRec
On Error GoTo Err_CmdNovoregistro_Click
DoCmd.GoToRecord , , acNewRec
Exit_CmdNovoregistro_Click
Exit Sub
Err_CmdNovoregistro_Click
MsgBox Err.Description
Resume Exit_CmdNovoregistro_Click
If CboUnidadeRequisitante <> "" And CboServicoRequisitante <> "" And CboOficialRequisitante <> "" And TxtNumOfEntrada <> "" And dtDataSolicitacao <> "" Then
Else
MsgBox ("Obrigatório preenchimento de todos campos desta primeira guia!"), vbInformation + vbOKOnly, "Dados Necessários"
End If
Exit Sub
Me!CboServicoRequisitante.SetFocus
End Sub
e não funfou!.
Alguém poderia dizer onde errei?
Obrigado.
Tentei por algumas vezes adaptar o código abaixo para criar um novo cadastro.
Mas desisti. rsrs
Gostaria que novo fosse no formato 0000/2015 e assim sucessivamente.
Tentei com esse comando:
'Me.Pedido = Format(Mid(DMax("Pedido", "tbl_Pedido"), 1, 4) + 1, "0000") & "/" & Year(Now)
Também gostaria que tivesse essa MSGBOX informando ao usuario que é ....
"Obrigatório o preenchimento de todos campos desta primeira guia!.
Esta guia possui os objetos CboUnidadeRequisitante, CboServicoRequisitante, CboOficialRequisitante, TxtNumOfEntrada e dtDataSolicitacao que desejo que fossem obrigatório o seu preenchimento.
e por fim com o foco voltando a
bom...
O código foi esse abaixo...
Private Sub CmdNovoregistro_Click()
'Vai para novo registro
Me.Pedido = Format(Mid(DMax("Pedido", "tbl_Pedido"), 1, 4) + 1, "0000") & "/" & Year(Now)
On Error GoTo Err_CmdNovoregistro_Click
DoCmd.GoToRecord , , acNewRec
On Error GoTo Err_CmdNovoregistro_Click
DoCmd.GoToRecord , , acNewRec
Exit_CmdNovoregistro_Click
Exit Sub
Err_CmdNovoregistro_Click
MsgBox Err.Description
Resume Exit_CmdNovoregistro_Click
If CboUnidadeRequisitante <> "" And CboServicoRequisitante <> "" And CboOficialRequisitante <> "" And TxtNumOfEntrada <> "" And dtDataSolicitacao <> "" Then
Else
MsgBox ("Obrigatório preenchimento de todos campos desta primeira guia!"), vbInformation + vbOKOnly, "Dados Necessários"
End If
Exit Sub
Me!CboServicoRequisitante.SetFocus
End Sub
e não funfou!.
Alguém poderia dizer onde errei?
Obrigado.