É possivel criar uma função de navegação em modulos com o codigo abaixo:
Public Sub VerificarRegistro(frmWindow As Form)
With frmWindow
If .CurrentRecord = 1 Then
.cmdNavegacaoPrimeiro.Enabled = False
.cmdNavegacaoAnterior.Enabled = False
.cmdNavegacaoProximo.Enabled = True
.cmdNavegacaoUltimo.Enabled = True
Else
.cmdNavegacaoPrimeiro.Enabled = True
.cmdNavegacaoAnterior.Enabled = True
.cmdNavegacaoProximo.Enabled = True
.cmdNavegacaoUltimo.Enabled = True
End If
If .CurrentRecord = .RecordsetClone.RecordCount Then
.cmdNavegacaoPrimeiro.Enabled = True
.cmdNavegacaoAnterior.Enabled = True
.cmdNavegacaoProximo.Enabled = False
.cmdNavegacaoUltimo.Enabled = False
End If
End With
End Sub
substituindo os comandos "cmdNavegacaoPrimeiro" e etc por argumentos em uma função?
Public Sub VerificarRegistro(frmWindow As Form)
With frmWindow
If .CurrentRecord = 1 Then
.cmdNavegacaoPrimeiro.Enabled = False
.cmdNavegacaoAnterior.Enabled = False
.cmdNavegacaoProximo.Enabled = True
.cmdNavegacaoUltimo.Enabled = True
Else
.cmdNavegacaoPrimeiro.Enabled = True
.cmdNavegacaoAnterior.Enabled = True
.cmdNavegacaoProximo.Enabled = True
.cmdNavegacaoUltimo.Enabled = True
End If
If .CurrentRecord = .RecordsetClone.RecordCount Then
.cmdNavegacaoPrimeiro.Enabled = True
.cmdNavegacaoAnterior.Enabled = True
.cmdNavegacaoProximo.Enabled = False
.cmdNavegacaoUltimo.Enabled = False
End If
End With
End Sub
substituindo os comandos "cmdNavegacaoPrimeiro" e etc por argumentos em uma função?