Oi sou novato em Access e resolvi pedir a ajuda a vcs.
1.Eu tenho uma caixa de combinação que me tras 3 tipos de empresas.
2.Tenho um sub form onde eu escolho a quantidade de produtos.
3.Tenho um botão que faz a relação entre esses produtos e ferramentas, gerando 2 tabelas diferentes, uma dos produtos que precisamos comprar e outra dos produtos que ja temos.
4. Para saber dos produtos que precisamos comprar e produtos que ja temos, usei botão de opção e tb tentei caixa de seleção.
Eles sempre me retornam que eu inseri uma expressão que não tem valor.
Segue o trecho de codigo que estou utilizando:
If txtEmpresa.Text = "" Then
MsgBox ("Select MPA/Warehouse."), vbOKOnly, vbInformation
ElseIf txtEmpresa.Text = "1 - Flextronics" And opBuy.Value = True Then
DoCmd.OpenForm "FrmSetup_InfoBUYFlex", acNormal, , , , acWindowNormal, acCmdParameterInf
ElseIf txtEmpresa.Text = "1 - Flextronics" And opTol.Value = True Then
DoCmd.OpenForm "FrmSetup_InfoFlex", acNormal, , , , acWindowNormal, acCmdParameterInf
ElseIf txtEmpresa.Text = "2 - Jabil" And opBuy.Value = True Then
DoCmd.OpenForm "FrmSetup_InfoBUYJabil", acNormal, , , , acWindowNormal, acCmdParameterInf
ElseIf txtEmpresa.Text = "2 - Jabil" And opTol.Value = True Then
DoCmd.OpenForm "FrmSetup_InfoJabil", acNormal, , , , acWindowNormal, acCmdParameterInf
ElseIf txtEmpresa.Text = "3 - Foxconn" And opBuy = True Then
DoCmd.OpenForm "FrmSetup_InfoBUYFoxconn", acNormal, , , , acWindowNormal, acCmdParameterInf
ElseIf txtEmpresa.Text = "3 - Foxconn" And opTol.Value = True Then
DoCmd.OpenForm "FrmSetup_InfoFoxconn", acNormal, , , , acWindowNormal, acCmdParameterInf
End If
End Sub
(lembrando que ja tententei substituir o valor "true" por 1 e 0)
1.Eu tenho uma caixa de combinação que me tras 3 tipos de empresas.
2.Tenho um sub form onde eu escolho a quantidade de produtos.
3.Tenho um botão que faz a relação entre esses produtos e ferramentas, gerando 2 tabelas diferentes, uma dos produtos que precisamos comprar e outra dos produtos que ja temos.
4. Para saber dos produtos que precisamos comprar e produtos que ja temos, usei botão de opção e tb tentei caixa de seleção.
Eles sempre me retornam que eu inseri uma expressão que não tem valor.
Segue o trecho de codigo que estou utilizando:
If txtEmpresa.Text = "" Then
MsgBox ("Select MPA/Warehouse."), vbOKOnly, vbInformation
ElseIf txtEmpresa.Text = "1 - Flextronics" And opBuy.Value = True Then
DoCmd.OpenForm "FrmSetup_InfoBUYFlex", acNormal, , , , acWindowNormal, acCmdParameterInf
ElseIf txtEmpresa.Text = "1 - Flextronics" And opTol.Value = True Then
DoCmd.OpenForm "FrmSetup_InfoFlex", acNormal, , , , acWindowNormal, acCmdParameterInf
ElseIf txtEmpresa.Text = "2 - Jabil" And opBuy.Value = True Then
DoCmd.OpenForm "FrmSetup_InfoBUYJabil", acNormal, , , , acWindowNormal, acCmdParameterInf
ElseIf txtEmpresa.Text = "2 - Jabil" And opTol.Value = True Then
DoCmd.OpenForm "FrmSetup_InfoJabil", acNormal, , , , acWindowNormal, acCmdParameterInf
ElseIf txtEmpresa.Text = "3 - Foxconn" And opBuy = True Then
DoCmd.OpenForm "FrmSetup_InfoBUYFoxconn", acNormal, , , , acWindowNormal, acCmdParameterInf
ElseIf txtEmpresa.Text = "3 - Foxconn" And opTol.Value = True Then
DoCmd.OpenForm "FrmSetup_InfoFoxconn", acNormal, , , , acWindowNormal, acCmdParameterInf
End If
End Sub
(lembrando que ja tententei substituir o valor "true" por 1 e 0)