[Resolvido] Ajuda com problema de código

Boa Tarde !

Pessoal, toda vez que executo este código VB a janela de ajuda do access abre sozinha, como se eu pressione o "F1" !!!

Alguem poderia me explicar o que tem no código abaixo que abre esta janela ?


Private Sub geraparcelas()

DoCmd.DoMenuItem acFormBar, acRecordsMenu, Save, acMenuVer70
Dim db As Database, rs As Recordset
Dim VALORPARCELA As Currency, i As Byte

Set db = CurrentDb()
Set rs = db.OpenRecordset("TBLPGTO")
VALORPARCELA = (Me.Total_do_Acordo - Me.Entrada) / Me.Numero_de_Parcelas

For i = 1 To Me.Numero_de_Parcelas
   rs.AddNew
   rs("CLIENTE") = Me.Cliente
   rs("valor parcela") = Me.ValorParcelas
   rs("processo numero") = Me.Processo
   rs("parcela") = CStr(i & "/" & Me.Numero_de_Parcelas)
   rs("vencimento") = DateAdd("m", i - 1, Me.DataPgto)
   rs.Update
Next
rs.Close
db.Close
Me.Parcelas.Requery

End Sub


No aguardo.

[]´s

Jean

Ola seja bem vindo ao forum.

1°
Mostre-nos toda a instrução do botão que chama esse Sub.

2°
Comente ou delete a primeira linha do salvar e substitua por esta,

DoCmd.RunCommand acCmdSaveRecord

Desculpa ae Avelino.

Avelino e JPaulo

Deu Certo !!

Obrigado pela ajuda rapida e eficaz.

Abraço.


Jean

Na próxima coloco a versão do Access e a instrução completa do botão.