boa tarde,
Senhores peço humildemente a ajuda de vcs nesse formulário.
frm_lubrificacao
Private Sub Form_Load()
Me.Caption = NOMESYS & " - Lubrificacao"
Me.boxtool.width = Me.width
Call CarregaDados(0)
vgIdAbast = Nz(Me.cod_lubrificacao, 0)
CarregaCboPesq
CarregaListaLubrif
End Sub
Sd
Oliveira
Senhores peço humildemente a ajuda de vcs nesse formulário.
frm_lubrificacao
Private Sub Form_Load()
Me.Caption = NOMESYS & " - Lubrificacao"
Me.boxtool.width = Me.width
Call CarregaDados(0)
vgIdAbast = Nz(Me.cod_lubrificacao, 0)
CarregaCboPesq
CarregaListaLubrif
End Sub
Sd
Oliveira