Ciao ragazzi, vi scrivo perchè sto impazzendo. Ho creato due maschere access di cui una funziona una bellezza... l'altra mi da problemi.
Ho utilizzato più o meno gli stessi codici però una su apertura funziona e quindi va sull'ultimo record, l'altra invece no... Di seguito vi posto tutto il codice della seconda:
Private Sub Comando42_Click()
On Error GoTo Err_Comando42_Click
DoCmd.GoToRecord , , acNewRec
Exit_Comando42_Click:
Exit Sub
Err_Comando42_Click:
MsgBox Err.Description
Resume Exit_Comando42_Click
End Sub
Private Sub Comando43_Click()
On Error GoTo Err_Comando43_Click
DoCmd.RunCommand acCmdSelectRecord
DoCmd.RunCommand acCmdCopy
DoCmd.RunCommand acCmdRecordsGoToNew
DoCmd.RunCommand acCmdSelectRecord
DoCmd.RunCommand acCmdPaste
Exit_Comando43_Click:
Exit Sub
Err_Comando43_Click:
MsgBox Err.Description
Resume Exit_Comando43_Click
End Sub
Private Sub Comando44_Click()
On Error GoTo Err_Comando44_Click
DoCmd.RunCommand acCmdSelectRecord
DoCmd.RunCommand acCmdDeleteRecord
Exit_Comando44_Click:
Exit Sub
Err_Comando44_Click:
MsgBox Err.Description
Resume Exit_Comando44_Click
End Sub
Private Sub Form_Open(Cancel As Integer)
DoCmd.GoToRecord , , acLast
End Sub
Aspetto vostre notizie.
Grazie