Gostaria de saber qual a expressão utilizar no campo que criei para que ao abrir um determinado número de registro, apareçam da seguinte forma, por exemplo, ao abrir 10 registros, durante a navegação mostre: 1/10, um de dez; 2/10, ou seja, dois de dez; 3/10, três de dez, e assim por diante. Este controle será colocado entre os navegadores de registros. Tem que ser uma expressão para ser digitada na Propriedade Fonte de Controle do campo.
2 participantes
[Resolvido]Formato-rotulo de exibição-navegação de registros
Veríssimo- Avançado
- Respeito às regras :
Sexo :
Localização :
Mensagens : 296
Registrado : 07/06/2011
JPaulo- Moderador
- Respeito às regras :
Sexo :
Localização :
Mensagens : 11026
Registrado : 04/11/2009
1º Insira uma caixa de texto no seu form e dê o nome de txtResultado
2º Cole esta função dentro do VBA do seu formulario;
Public Function ExibeResultado(frmNome As Form)
'By JPaulo ® Maximo Access
On Error Resume Next
Dim rs As DAO.Recordset
Set rs = frmNome.RecordsetClone
rs.MoveLast
rs.Bookmark = frmNome.Bookmark
If (Err <> 0) Then
ExibeResultado= rs.RecordCount + 1 & " de " & rs.RecordCount + 1
Else
ExibeResultado= rs.AbsolutePosition + 1 & " de " & rs.RecordCount
End If
End Function
No evento VBA do currente desse formulario, coloque assim;
Me.txtResultado.Value = "Total Registos -" & ExibeResultado(Forms!SeuFormulario)
2º Cole esta função dentro do VBA do seu formulario;
Public Function ExibeResultado(frmNome As Form)
'By JPaulo ® Maximo Access
On Error Resume Next
Dim rs As DAO.Recordset
Set rs = frmNome.RecordsetClone
rs.MoveLast
rs.Bookmark = frmNome.Bookmark
If (Err <> 0) Then
ExibeResultado= rs.RecordCount + 1 & " de " & rs.RecordCount + 1
Else
ExibeResultado= rs.AbsolutePosition + 1 & " de " & rs.RecordCount
End If
End Function
No evento VBA do currente desse formulario, coloque assim;
Me.txtResultado.Value = "Total Registos -" & ExibeResultado(Forms!SeuFormulario)
.................................................................................
Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.
Pay-Pal R$ Aqui
Pay-Pal € Aqui
Ou ainda: Aqui (Novo)
Sucesso e Bons Estudos
Success and Good Studies
Utilize o Sistema de Busca do Fórum...
102 Códigos VBA Gratuitos...
Instruções SQL como utilizar...
Veríssimo- Avançado
- Respeito às regras :
Sexo :
Localização :
Mensagens : 296
Registrado : 07/06/2011
Perfeito!
Obrigado, JPaulo.
Obrigado, JPaulo.