[Resolvido]Problema no código ao cupilar bd!

Boa noite amigos!

Pessoal construi um bd está funcionando normal, mas quando vou cupilar da erro em um dos códigos!
Alguem poderia ajudar o irmão Lupércio, ja tentei descobrir mas não estou encontrando a solução!

Segue o bd, para os ninjas!

No FrmCadastro:

Private Sub Comando35_Click()
Dim db1 As Database, db2 As Database, rs1 As DAO.Recordset, rs2 As DAO.Recordset, rs3 As DAO.Recordset

If MsgBox("Confirma Transferencia?", vbYesNo + vbQuestion, "CONFIRMAR") = vbYes Then

Set db1 = CurrentDb

Set rs1 = db1.OpenRecordset("TbCombustivel", dbOpenTable)

With rs1

.AddNew

![DtAbastecimento] = Me.DtAbastecimento 'Não tem este campo no form
![NmeMotorista] = Me.NmeMotorista
![ModCaminhao] = Me.ModCaminhao
![Placa] = Me.Placa
![TtalLitros] = Me.TtalLitros 'Não tem este campo no form

.Update

End With

MsgBox "Transferencia confirmada.", vbOKOnly + vbInformation, "Concluído"

End If



End Sub

Cupilar? O aplicativo deve ter te deixado com ódio mesmo para começar o nome com essa sílaba né?

Bem, mas compilar no caso seria converter para accde? Qual é o erro? em qual módulo?

Olá mestres críquio e Harysohn vocês são os caras e respondem na hora que precisamos!

O Harysohn matou a charada, poisé amigos eu preciso que fique assim, sem os campos no form, pois no clique do botão eu transfiro os dados para uma tabela definitiva, e está exatamente como eu quero.

A pergunta é será que mais tarde não causará problemas no bd? Um abraço!

Sobre a palavavra mestre críquio, cupilar é muito feia mesmo!

Tem uma coisa tambem que precisa consertar. Você se esqueceu de fechar os Recordset e Database. Isso contribui muito para corromper o bd, deixar os os objetos abertos e ocupando memória:

Código:

...
rs1.Close
Set rs1 = Nothing

db1.Close
Set db1 = Nothing

É primordial ter cuidado com isso. O mesmo vale para tudo que usarmos Open e Set, os quais temos que fechar com o Close e liberar a memória usando o Set Objeto = Nothing.

Amigão como você quer carregar um campo no recordset com um o valor de um objeto que não existe????

Ta errado.. e poderá ocasionar erro em tempo de execução e travar o aplicativo.

Cumprimentos.

Harysohn
E como tem pessoas que constroem bds com forms e objetos não Aclopado, transferindo os para tabela e não dão erros, tenho um exemplo mesmo aqui do JPaulo e funciona normal! Essa uma objeção, não estou contra o que você disse!

Amigão....


Não acoplado é uma coisa

Objeto não existente é outra.

O objeto não acoplado significa ele não é acoplado a um campo em uma tabela. É um objeto por assim dizer... Virgem

QUando cria uma caixa texto no form, aparece escrito: Não acoplado.. mas se voce digitar um campo da tabela dentro dele, ele fica vinculado a este campo.


No seu caso... Não existe o objeto!!!!


Ou voce colocou no código com algum erro de digitação.

Observe que ao digitar a palavre Me. (o editor do vb ja mostra varias sugestoes de objetos)

Se No form voce tiver uma caixa texto com o nome de " txtCampo "

Ao colocar Me.t (ele ja vai filtrando)

Me.txt (nesse ponto ele ja mostra todos os objetos que começam com a sigla txt,


Se não aparecer.. ou o objeto não existe ou voce digitou errado o nome.


Cumprimentos.

Críquio,, olá

Ficou certo o fechamento do Recordset e Database agora:

If IsNull(Me.QtdeCargas) Then
Me.QtdeCargas.SetFocus
MsgBox "Luiz preencha a quantidade de cargas do material!", vbInformation, "Atenção!"
ElseIf IsNull(Me.TpMaterial) Then
Me.TpMaterial.SetFocus
MsgBox "Luiz preencha o tipo de material transportado!", vbInformation, "Atenção!"
Else




Dim db1 As Database, db2 As Database, rs1 As DAO.Recordset, rs2 As DAO.Recordset, rs3 As DAO.Recordset

If MsgBox("Confirma a quantidade de cargas?", vbYesNo + vbQuestion, "CONFIRMAR!") = vbYes Then

Set db1 = CurrentDb

Set rs1 = db1.OpenRecordset("TbTransporte", dbOpenTable)

With rs1

.AddNew
![DtTransporte] = Me.DtTransporte
![NmeMotorista] = Me.NmeMotorista
![ModCaminhao] = Me.ModCaminhao
![Placa] = Me.Placa
![CapTransporte] = Me.CapTransporte
![QtdeCargas] = Me.QtdeCargas
![TpMaterial] = Me.TpMaterial
.Update

End With
rs1.Close
Set rs1 = Nothing

db1.Close
Set db1 = Nothing
MsgBox "Lançamento Confirmado.", vbOKOnly + vbInformation, "Concluído"
DoCmd.Close
End If
End If

Ta certo você Harysohn, me desculpe. Voce tem razão, e obrigado pela aula, aliás pela recapitulação eu ja sabia disso. Até mais!

Tópico encerrado! Obrigado a todos!

So faltou o resolvido amigão.

Desta vez eu coloco.

Cumprimentos.

Só mais uma dica: melhor colocar a mensagem de confirmação antes de fechar os Recordset e Database, pois, caso ocorra algum imprevisto no processo, o usuário não recebe a mensagem de confirmação sem que realmente tenha gravado os dados.

Obrigado pela dica amigo críquio!

Ficou assim e funcionando normal!

If IsNull(Me.QtdeCargas) Then
Me.QtdeCargas.SetFocus
MsgBox "Luiz preencha a quantidade de cargas do material!", vbInformation, "Atenção!"
ElseIf IsNull(Me.TpMaterial) Then
Me.TpMaterial.SetFocus
MsgBox "Luiz preencha o tipo de material transportado!", vbInformation, "Atenção!"
Else
Dim db1 As Database, db2 As Database, rs1 As DAO.Recordset, rs2 As DAO.Recordset, rs3 As DAO.Recordset

If MsgBox("Confirma a quantidade de cargas?", vbYesNo + vbQuestion, "CONFIRMAR!") = vbYes Then

Set db1 = CurrentDb

Set rs1 = db1.OpenRecordset("TbTransporte", dbOpenTable)

With rs1

.AddNew
![DtTransporte] = Me.DtTransporte
![NmeMotorista] = Me.NmeMotorista
![ModCaminhao] = Me.ModCaminhao
![Placa] = Me.Placa
![CapTransporte] = Me.CapTransporte
![QtdeCargas] = Me.QtdeCargas
![TpMaterial] = Me.TpMaterial
.Update

MsgBox "Lançamento Confirmado.", vbOKOnly + vbInformation, "Concluído"
DoCmd.Close

End With
rs1.Close
Set rs1 = Nothing
db1.Close
Set db1 = Nothing
End If
End If