no form 2,3,4.... vao constar algumas inf do form 1 ai fiz a seguinte sub
Private Sub Form_Load()
TxtNomeCliente.Text = FrmRecepcao.TxtNomeCliente.Text
TxtProduto.Text = FrmRecepcao.TxtProduto.Text
End Sub
e me retorna erro dizendo que não pode executar por estar aberto o primeiro form e sinaliza nesta sub do primeiro form
Private Sub Form_Load()
Dim cod As Long
cnnCetecInfServiços.CursorLocation = adUseClient
rsSelecao.Open "Select * From Clientes", cnnOleopl, 1, 2 'erro aqui
If rsSelecao.RecordCount = 0 Then
cod = "00001"
Else
rsSelecao.MoveLast
cod = rsSelecao("Numero_OS") + 1
End If
TxtNumOS.Text = cod
End Sub
Fechei todas as sub adicionar, excluir, alterar mas não funciona
parece facil..... mas preciso de ajuda
Editado por Jonathan Queiroz Adcionar tag's (Jonathan)
Utilizamos cookies e tecnologias semelhantes de acordo com a nossa Política de Privacidade, e ao continuar navegando, você concorda com estas condições.
Pergunta
tito13
boa tarde
parece facil, mas não estou identificando o erro
no form 2,3,4.... vao constar algumas inf do form 1 ai fiz a seguinte sub
e me retorna erro dizendo que não pode executar por estar aberto o primeiro form e sinaliza nesta sub do primeiro formFechei todas as sub adicionar, excluir, alterar mas não funciona
parece facil..... mas preciso de ajuda
Editado por Jonathan QueirozAdcionar tag's (Jonathan)
Link para o comentário
Compartilhar em outros sites
18 respostass a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.