ULTIMO CODIGO DE CADASTRO IGUAL A ZERO

RPMARQUES 19/06/2010 09:51:51
#345251

funcionou amigo...obrigado pela dica...
mas uma ai...ñ sei se tu viu...mas tem um laber informando o quantidade de registros cadastrados....
como faço pra que ele fique sempre atualizando...???
desculep as minhas perguntas simples...mas tenho pouca prática....
se eu colocar o código que traz a quantidade de registros na tabela, dentro de um timer, ele fica atualizando direto...
to certo???

abraços a todos...

MSMJUDAS 19/06/2010 10:32:54
#345254

Acho que nem precisa colocar um timer, vc pode colocar assim:

No FORM_ACTIVE do frmAgenda coloque isso:

If funcoes.Agenda.State = 1 Then
Me.lblInf1.Caption = [Ô]TOTAL DE REGISTROS: [Ô] & funcoes.Agenda.RecordCount
End If


E depois da linha Agenda.Requery, coloque isso:

frmAgenda.lblInf1.Caption = [Ô]TOTAL DE REGISTROS: [Ô] & funcoes.Agenda.RecordCount

Assim, toda vez que vc for cadastrar um novo registro, vai atualizar a label. Se vc colocar um botão pra excluir, coloque essa linha tbm depois de fazer a exclusão.

RPMARQUES 19/06/2010 11:20:52
#345259

obrigado mesmo cara...valew pelas dicas....
la vai mais uma...heheheh...que cara chato heion...hehehe
como eu faço pra mostra no grid os telefones com a máscara, um detalhe...no banco eu to salvando sem a máscara...
tem idéia de como eu faço isso...
pq ali no grid ele ta trazendo só o conteudo...

valew....

MSMJUDAS 21/06/2010 16:09:34
#345384

Supondo que vc esteja gravando como texto e no formato XX99999999, onde XX é o DDD e o resto o número do telefone, faça assim:

Public Sub Function MascaraTelefone(vNumero As String) As String
If Len(vNumero) = 10 Then
MascaraTelefone = [Ô]([Ô] & Mid(vNumero, 1, 2) & [Ô])[Ô] & [Ô] [Ô] & Mid(vNumero, 3, 4) & [Ô]-[Ô] & Mid(vNumero, 5, 4)
Else
MascaraTelefone = vNumero
End If
End Function

Aí só chamar

grid.TextMatrix(1,1) = MascaraTelefone(Recordset!NUMERO_FONE))

Vai ficar assim: (11) 1234-5678