Meus amigos,
Ja havia comentado com vocês em posts passados, que estaria desenvolvendo um pequeno sistema de ordem de serviços para minha empresa. Desde esse dia, que bato cabeça para relacionar as tabelas do sistema e não consigo fazer funcionar da forma que desejo. Resolvi colocar o Banco de dados no Megaupload e pedir a vocês que deem uma olhada, apenas para me dizer o que estou fazendo de errado.
A url é essa: Sistema Ordem de Serviços
Eu tenho as tabelas CLIENTES, EQUIPAMENTOS e PEÇAS. Minha intenção é criar um formulario onde eu entre com as informações do cliente. No rodapé do mesmo eu gostaria de colocar dois botões, um para que eu possa entrar com os dados do equipamento do cliente e outro para A ordem de serviço do mesmo. Eu primeiro criei o formulario EQUIPAMENTOS e dentro dele um subformulario PEÇAS como as tabelas estão relacionadas, para cada equipamento que eu digitar, poderei incluir as peças defeituosas de cada um. Ou seja, uma relação de 1 para N. Depois eu criei o formulario CLIENTE e chamei através de um botão, o formulario EQUIPAMENTOS so que quando ele abre, da erro, porque diz que eu preciso de um campo para relacionar na tabela clientes.
No evento ao carregar do formulario equipamentos eu coloquei:
---------------------------
Private Sub Form_Load()
Dim codigo As Integer
codigo = Forms!frm_clientes!CodCli
Me!CodCli = codigo
Forms![frm_equipamentos].Filter = "[CodCli] =" & Me.[CodCli]
Forms![frm_equipamentos].FilterOn = True
End Sub
----------------------------
A intenção é filtrar o formulario com o codigo do cliente, me parece que o erro é ocasionado pelas ultimas linhas. Mas não consegui descobrir o motivo.
No evento ao clicar do botão do formulario CLIENTES que chama o formulario EQUIPAMENTOS eu coloquei:
--------------------------------
Private Sub Comando27_Click()
If IsNull(Me.CodCli) Then
MsgBox "CodCli é inválido", vbInformation, "Aviso"
Else
DoCmd.OpenForm "frm_equipamentos", , , , acFormAdd
End If
End Sub
--------------------------------
Se vocês puderem dar uma olhada no BD e me informar o que eu estou errando, eu agradeceria bastante
Grato
Ja havia comentado com vocês em posts passados, que estaria desenvolvendo um pequeno sistema de ordem de serviços para minha empresa. Desde esse dia, que bato cabeça para relacionar as tabelas do sistema e não consigo fazer funcionar da forma que desejo. Resolvi colocar o Banco de dados no Megaupload e pedir a vocês que deem uma olhada, apenas para me dizer o que estou fazendo de errado.
A url é essa: Sistema Ordem de Serviços
Eu tenho as tabelas CLIENTES, EQUIPAMENTOS e PEÇAS. Minha intenção é criar um formulario onde eu entre com as informações do cliente. No rodapé do mesmo eu gostaria de colocar dois botões, um para que eu possa entrar com os dados do equipamento do cliente e outro para A ordem de serviço do mesmo. Eu primeiro criei o formulario EQUIPAMENTOS e dentro dele um subformulario PEÇAS como as tabelas estão relacionadas, para cada equipamento que eu digitar, poderei incluir as peças defeituosas de cada um. Ou seja, uma relação de 1 para N. Depois eu criei o formulario CLIENTE e chamei através de um botão, o formulario EQUIPAMENTOS so que quando ele abre, da erro, porque diz que eu preciso de um campo para relacionar na tabela clientes.
No evento ao carregar do formulario equipamentos eu coloquei:
---------------------------
Private Sub Form_Load()
Dim codigo As Integer
codigo = Forms!frm_clientes!CodCli
Me!CodCli = codigo
Forms![frm_equipamentos].Filter = "[CodCli] =" & Me.[CodCli]
Forms![frm_equipamentos].FilterOn = True
End Sub
----------------------------
A intenção é filtrar o formulario com o codigo do cliente, me parece que o erro é ocasionado pelas ultimas linhas. Mas não consegui descobrir o motivo.
No evento ao clicar do botão do formulario CLIENTES que chama o formulario EQUIPAMENTOS eu coloquei:
--------------------------------
Private Sub Comando27_Click()
If IsNull(Me.CodCli) Then
MsgBox "CodCli é inválido", vbInformation, "Aviso"
Else
DoCmd.OpenForm "frm_equipamentos", , , , acFormAdd
End If
End Sub
--------------------------------
Se vocês puderem dar uma olhada no BD e me informar o que eu estou errando, eu agradeceria bastante
Grato