Aqui temos algumas das funções básicas em formulários, isso nos ajuda ao programar a relembrar ações simples que nos falta a memória, exemplo:

Public Function Excluir()

DoCmd.SetWarnings False
DoCmd.RunCommand acCmdSelectRecord
DoCmd.RunCommand acCmdDeleteRecord
DoCmd.SetWarnings True
End Function

Public Function Desfazer()

DoCmd.RunCommand acCmdUndo

End Function

Public Function Salvar()

DoCmd.RunCommand acCmdSaveRecord

End Function

Public Function Proximo()
On Error GoTo Err_Proximo

DoCmd.GoToRecord , , acNext
Exit Function

Err_Proximo:
If Err.Number = 2105 Then
MsgBox "Você Encontrou o último registro", 16, "Atenção"
Else
MSG_ERRO
End If

End Function

Public Function Anterior()
On Error GoTo Err_Anterior

DoCmd.GoToRecord , , acPrevious
Exit Function

Err_Anterior:
If Err.Number = 2105 Then
MsgBox "Você Encontrou o primeiro registro", 16, "Atenção"
Else
MSG_ERRO
End If

End Function

Public Function Novo()

DoCmd.GoToRecord , , acNewRec

End Function

Public Function Fechar()

DoCmd.Close

End Function

Public Function MSG_ERRO()
MsgBox "Ocorreu um erro inesperado de número: " & Err.Number & ", Comunique os responsaveis pelo sistema.", 16, "Atenção"
End Function

Public Function JanelaImprimir()
On Error GoTo Err_Imprimir

DoCmd.RunCommand acCmdPrint
Exit Function

Err_Imprimir:
If Err.Number = 2501 Then
Exit Function
End If
End Function

Public Function AbrirFormularioNormal(NomeDoFormulario As String)

DoCmd.OpenForm NomeDoFormulario

End Function

Public Function AbrirFormularioDialogo(NomeDoFormulario As String)

DoCmd.OpenForm NomeDoFormulario, , , , , acDialog

End Function

Public Function AbrirFormularioOculto(NomeDoFormulario As String)

DoCmd.OpenForm NomeDoFormulario, , , , , acHidden

End Function

Public Function ImprimirRelatorio(NomeDoRelatorio As String)

DoCmd.OpenReport NomeDoRelatorio, acViewNormal

End Function

Public Function VizualizarRelatorio(NomeDoRelatorio As String)

DoCmd.OpenReport NomeDoRelatorio, acViewPreview

End Function

Public Function Maximizar()
DoCmd.Maximize
End Function

Public Function Minimizar()
DoCmd.Minimize

End Function

Public Function Restaurar()
DoCmd.Restore
End Function

Public Function AbrirConsulta(NomeDaConsulta As String)
DoCmd.OpenQuery NomeDaConsulta
End Function

Public Function AbrirTabela(NomeDaTabela As String)
DoCmd.OpenTable NomeDaTabela
End Function

Public Function ExecutarSQL(SQL As String)
DoCmd.RunSQL SQL
End Function

Public Function RetirarAvisos()
DoCmd.SetWarnings False
End Function

Public Function ColocarAvisos()
DoCmd.SetWarnings True
End Function

Public Function ExecutarMacro(NomeDaMacro As String)
DoCmd.RunMacro NomeDaMacro
End Function

Public Function OcultarBarraDeFerramentas(NomeDaBarra As String)
DoCmd.ShowToolbar NomeDaBarra, acToolbarNo
End Function

Public Function ExibirBarraDeFerramentas(NomeDaBarra As String)
DoCmd.ShowToolbar NomeDaBarra, acToolbarYes
End Function

Public Function ExecutarAplicativo(Caminho As String)
Dim Retorno
Retorno = Shell(Caminho, vbNormalFocus)
End Function

Public Function AutoNumeracao(NomeDaTabela As String, NomeDoCampo As String)
Dim MyDB As Database
Dim MyTB As Recordset

Set MyDB = CurrentDb()
Set MyTB = MyDB.OpenRecordset("Select Max(" & NomeDoCampo & ") as Codigo From " & NomeDaTabela)

If MyTB.RecordCount > 0 Then
AutoNumeracao = Int(MyTB!Codigo) + 1
Else
AutoNumeracao = 1
End If

End Function

Public Function FormularioAtivo()
On Error GoTo Err_Ativo
Dim frmFormulárioAtual As Form
Set frmFormulárioAtual = Screen.ActiveForm
FormularioAtivo = frmFormulárioAtual.Name
Exit Function

Err_Ativo:
If Err.Number = 2475 Then
FormularioAtivo = "Não ha formulario"
End If
End Function

Aproveite!
Abraço,
Flavio Rbeiro
www.spyderit.com.br