Boa tarde a todos
como faço pra uma variavél publica ir pra um formulario?
- criei no modulo
Option Compare Database
Option Explicit
Public códVendedor As Byte
Public códFilial As Byte
Public Usuario As String
- na tabela do banco vendas tenho campo
codigodafilial numero
- criei um form pra buscar a filial que quero trabalhar
SELECT DISTINCTROW Filiais.CódigoDaFilial, Filiais.Filial, Filiais.Ativo
FROM Filiais
WHERE (((Filiais.Ativo)=True))
ORDER BY Filiais.Filial;
If Me.COMFiliais.Text = "REDENCAO" Then
strCaminho = "\\192.168.0.254\ARQ_DADOS\SysSco\001.mdb"
códFilial = 1
códVendedor = 1
- assim que pego a filial no servidor..ok
- no form cadastro de vendas tenho o campo
codigodafilial
- no botao de nova venda
DoCmd.GoToRecord , , acNewRec
Me.CódigoDoCliente.SetFocus
Me.codigodafilial = códFilial (aqui da erro)
Agora chegou o problema
como faço pra dizer toda vez que vou fazer uma nova vendas
que o codigodafilial = códFilial ??
Grato pela ajuda
Helder
como faço pra uma variavél publica ir pra um formulario?
- criei no modulo
Option Compare Database
Option Explicit
Public códVendedor As Byte
Public códFilial As Byte
Public Usuario As String
- na tabela do banco vendas tenho campo
codigodafilial numero
- criei um form pra buscar a filial que quero trabalhar
SELECT DISTINCTROW Filiais.CódigoDaFilial, Filiais.Filial, Filiais.Ativo
FROM Filiais
WHERE (((Filiais.Ativo)=True))
ORDER BY Filiais.Filial;
If Me.COMFiliais.Text = "REDENCAO" Then
strCaminho = "\\192.168.0.254\ARQ_DADOS\SysSco\001.mdb"
códFilial = 1
códVendedor = 1
- assim que pego a filial no servidor..ok
- no form cadastro de vendas tenho o campo
codigodafilial
- no botao de nova venda
DoCmd.GoToRecord , , acNewRec
Me.CódigoDoCliente.SetFocus
Me.codigodafilial = códFilial (aqui da erro)
Agora chegou o problema
como faço pra dizer toda vez que vou fazer uma nova vendas
que o codigodafilial = códFilial ??
Grato pela ajuda
Helder