[Resolvido]Instrução para excluir apenas dados mostrado em um formulário contínuo.

Boa tarde a todos da selva....

Estou meio que perdido em uma instrução em SQL.

Vou tentar ser bem explicito em minha duvida.

a- tblpgtofornece
nessa tabela cadastro o que se compra de qualquer fornecedor, pode ser X, Y ou Z.

b- frmbuscaforncedor
nesse formulário, busco o nome que preciso, para ver o quanto eu preciso pagar ao fornecedor.   A busca é feita através de uma combobox, mostrando o nome do mesmo, numa caixa de texto oculta(nomefornece).

c- frmpgtofornece
me mostra todas as compras do fornecedor escolhido no item b.

O que preciso e estou tendo e encontrando uma certa dificuldade,uma instrução em SQL, para excluir apenas e tão somente o fornecedor escolhido no item b e deixar os demais intactos para serem excluídos depois da conferencia de itens a serem pagos.

Essa exclusão será feita através de um botão no frmpgtofornece.

Alguns de vocês, já fizeram isso ?

Grato a todos.

Obs. tentei esse que eu montei, mas esta me dando a msg de parametros insuficientes
Dim strsql As String

strsql = "DELETE FROM tblpgtofornece WHERE nome=forms!frmbuscafornecedor!nomefornece"
CurrentDb.Execute strsql

A falta de parametros é isto;

DELETE * FROM

e se está a correr a instrução no form, deve referenciar os dois:

CurrentDb.Execute "DELETE * FROM tblpgtofornece WHERE nome=forms!SeuFormulario!SeuSubFormulario.Form!nomefornece"

JPaulo, boa tarde. Grato por me ajudar !

Ainda permanece o erro supracitado.

Eis como ficou a minha instrução:

Private Sub bt_excluir_Click()
Dim strsql As String
CurrentDb.Execute "DELETE * FROM tblpgtofornece WHERE nome=forms!frmbuscafornecedor!nomefornece"
CurrentDb.Execute strsql
End Sub

Ao executar me da a seguinte mensagem:

erro 3061
Parâmetros insuficientes. Eram esperados 1


Lembrando que eu escolho o nome do fornecedor através de uma combobox, o nome escolhido vai para uma caixa de texto oculta ( nomefornece) e ao clicar ok, abre um formulário contínuo com as informações desse fornecedor.

O formulário onde escolhe esse nome, fica atrás, do formulário contínuo. Ele não fecha.

Olá Silvio, posta para nós ver se teremos uma solução...

Marcelo, boa noite.

Me passa teu mail, pois o projeto esta meio grande para colocar aqui.

marcelodavid@mrdsystem.com.br
No aguardo.  

A instrução está errada Silvio, veja como ficará;

Private Sub bt_excluir_Click()
CurrentDb.Execute "DELETE * FROM tblpgtofornece WHERE nome='" & Forms!frmbuscafornecedor!nomefornece & "'"
End Sub

E ainda com está a dizer-nos que são dois formularios, deve referenciá-los;

Private Sub bt_excluir_Click()
CurrentDb.Execute "DELETE * FROM tblpgtofornece WHERE nome='" & Forms!Formulario1!Formulario2.Form!nomefornece & "'"
End Sub

Bom dia amigo,
Vi seu projeto Silvio e fiquei com uma dúvida:

Onde você quer excluir os registros? No próprio formulário?
Pois não vi nenhum botão dedicado a esse fim...

Observação:

Após usar um foprnecedor/peça em qualquer parte do
sistema, realmente não se deverá ser apagado, pois o
registro está em uso. E como o Access é um banco de
dados relacional, um registro é ligado a outro através
dos relacionamentos e dependendo da maneira que foi
feito, não é possível apagar um registro já usado em outros
locais.

Exemplo:

Tenho a tabela tbPedidos
Tenho a tabela tbItensPedido

A tbPedidos pode ter vários ItensPedidos (uma vês que o mesmo
pedido pode ter vários ítens)

Caso eu cadastre um item na tabela ItensPedidos, e use esse
registro na tabela tbPedidos, o ítem não será mais possível de
se excluir, pois já está utilização.

Qual a lógica disso?

Se tenho cadastrado o produto Manteiga e essa já faça parte
de alguma venda, caso Manteiga seja apagada, aquela venda
ficará com manteiga em falta... (Isso usando o modelo relacinal
de registros que é o mais usado).

Mas vamos, lá, em qual ocasião gostaria de excluir?

Marcelo, boa tarde.

Devido a estar sem internet, somente agora estou tendo acesso aqui.

Bom vamos lá.

a- realizo uma certa compra de peças, de um fornecedor X. Vou até o cadastro de peça, realizo o cadastro da mesma e escolho o fornecedor X
b - ao clicar em salvar, vai ser feito um update na tblpgtofornce, de certos campos.
c- após isso, o usuário vai no menu principal/contabilidade/ver despesas com fornecedores.
d- escolhe o fornecedor para mostrar todas as compras feitas nele.
e- após verificar se tudo esta certo, se tudo foi dado entrada e esta batendo o valor que o fornecedor passou para ele pagar , o usuário exclui essas compras feitas. Depois disso, ele vai para outro fornecedor.

Paulo, Boa noite a ti.

Sim, são dois formulários !

Em um, eu busco o fornecedor, através de uma combobox, e mostro o mesmo em uma caixa de texto oculta. Ao escolher o fornecedor, clico em ok e me mostra em outro formulário todos os valores de compras relativas a esse fornecedor.

A lógica, é apenas excluir o fornecedor X, deixando o Y e Z para depois.

Algo estranho....

O comando cedido pelo JPaulo, executa, mas diz que não acha a tabela....clico em fim...fecho o frm, abro novamente e os registros estão excluídos na tblpgtofornece.

Private Sub bt_excluir_Click()
Dim strsql As String
CurrentDb.Execute "DELETE * FROM tblpgtofornece WHERE nome='" & Forms!frmbuscafornece!nomefornece & "'"
CurrentDb.Execute strsql **** erro nessa linha.
End Sub

Agora estou meio ocupado aqui, assim que puder (mais para noite) eu volto cvom vc aqui, ok.

Boa noite Silvio, agora entendi o que você pretende!

Vamos lá! Pelo o que vi, é apenas um formulário, continuo...

O que fiz foi simples, criei uma variável publica do tipo string para receber o nome do fornecedor
selecionado na combo do formulário "frmbuscafornece".
Essa variável, será usada como critério na SQL que exclui os registros.
Alterei o campo Nome para txtNome.
Obs. Nome é palavra reservada, portanto é melhor nomear
seus controles (por exemplo: NomeCliente, NomeFornecedor...).

Seu banco já mandei de volta no seu e-mail (já que é um projeto particular).

Veja se é isso que pretende.

Um pitaco apenas;

Grande Silvio, se você utilizar CurrentDb.Execute "DELETE * FROM, não necessita do CurrentDb.Execute strsql, aliás o amigo já anda nestas ruas à muito tempo que fico sem saber o que se sabe....

Vamos aguardar pelo fim da ajuda do Marcelo.

Paulo, por vezes, fazemos e realizamos algumas coisas sem saber, sem notar na completa falta de atenção dos fatos !

E quando somos indagados pelo fato, a gente se assusta com o que fizemos e juramos que não fomos nós que fizemos isso.

Prestarei mais atenção antes de postar qualquer coisa aqui.

Silvio, viu a mensagem 13 do tópico? Viu o anexo que lhe enviei por e-mail?
No aguardo.

Marcelo, boa noite.

Agora que trocaram o meu modem aqui do escritório, estava sem conexão quase o tempo todo.

Vi, vi sim a msg 13. Ajudou muito aqui.

Aliais, ambos, você e o JPaulo me ajudaram muito.

Estou dando o tópico por resolvido.

Ok, amigão precisando dê-nos um grito! Gratos pelo retorno!
Obs.: Passei quase um mês sem telefone (da net)... Entendo o que passou...

Bom trabalho!