[Resolvido]Gravar dados na tabela por uma caixa de listagem não associada

Bom dia,

Novamente preciso de ajuda.
Tenho um formulário vendas onde gravo os pedidos.
Criei uma caixa de listagem não associada e agora quando mando gravar o pedido ele retorna com erro e não esta gravando.
Se alguém puder me ajudar já agradeço.
Segue em anexo BD.

O erro está no procedimento GravaItensPedido. Copiei ela do seu arquivo e colei aqui deixando apenas alguns pontos. Segue abaixo com apontamento dos erros para você entender e corrigi-los.

Código:

...
'no início do módulo que há por trás do formulário há uma instrução
'que diz que todas as variáveis contidas no módulo serão declaradas
'é a instrução da linha abaixo. Contanto que você respeite a regra que essa instrução impõe, ok. Tudo certo.
Option Explicit

...

'início do seu procedimento. Ok. Tudo certo.
'se esse procedimento for usado somente neste formulário
'então poderia trocar o "Public" por "Private"
Public Sub GravaItensPedido()
...

        'essa instrução de seleção informa que o conjunto de registros
        'a ser aberto é o da tabela tblpedidosdetalhe. Ok. Tudo certo.
        sSql = "SELECT * FROM tblpedidosdetalhe WHERE  IdPedido = 0"

        ...
 
        'Aqui há um erro!
        'você faz uso de uma variável que não está declarada.
        'quebrando a regra estabelecida pela instrução "Option Explicit" do início do módulo
        'Ou você remove a linha "Option Explicit" - Não recomendado
        'Ou declara a variável no início do seu procedimento usando  -->> Dim i as long
        For i = 1 To .ListCount - 1

            ...

            'veja a repetição do "Value"
            RS("IdPedido") = txtIdPedido.Value.Value 'o .Value deveria existir apenas uma vez

            ...

            'aqui você atribui um valor ao campo "qtdevenda"
            'porém na tabela tblpedidosdetalhe não existe um campo com este nome
            'não deveria ser "quant"?
            RS("qtdevenda") = .Column(3, i)

          ...

End Sub

...

Outro ponto. Você inicia essa Function

Código:

Private Function fnValidaProdutos() As Boolean

...

'depois finaliza a function. Ok. Tudo certo.
End Function

'mas em seguida finaliza um Sub (procedimento).
'essa linha deve ser removida já que nenhum procedimento foi iniciado
End Sub

Espero que as dicas ajudem para entender o que faz cada linha e permita um melhor entendimento do código.
Bons estudos.

Boa tarde,
Damasceno

Já fiz a alteração e muito obrigado pela ajuda.
Não aproveitando de sua boa vontade, já aproveitando
Como eu faço para ter um valor total do pedido e a quantidade de itens do pedido? por esta lista.
Já tentei fazendo uma consulta e não consegui!
Tem outra forma?

Sem mais e desde já muito agradecido

Boa noite Damasceno,

Depois de quase fundir a cabeça consegui fazer as somas das lista e contas os itens.

Somar

Private Sub SomaLista()
Dim Soma As Single
Dim K As Integer
For K = 1 To lstProdutos.ListCount - 1
Soma = Soma + lstProdutos.Column(5, K)
Next K
Me.SomaCo = Soma

End Sub

Contar
Private Sub ContaLista()
Dim Count As Single
Dim K As Integer
For K = 1 To lstProdutos.ListCount - 1
Count = Count + lstProdutos.Column(3, K)
Next K
Me.SomaItem = Count

Muito Obrigado novamente pela ajuda..

Parabéns pela evolução.

Faltou dar o tópico como resolvido.

Bom dia,

Tinha esquecido..de dar o resolvido

Muito obrigado pela ajuda.

O fórum agradece o retorno. Sucesso.