VBA COM ACCESS

EDSPICER 02/08/2010 15:55:12
#349180
Boa tarde pessoal.
sou novo aqui no forum e no vba. gostaria de pedir uma ajuda.
eu precisava na verdade que quando o form iniciava, ele trazia os campos vazios e quando eu clicasse em incluir ele buscasse na base o ultimo registro e colocasse na caixa de texto o numero do proximo registro.
quando eu clicasse em alterar, abrisse uma especie de dialogo me pedindo o numero do registro e , apos digitar ele mostrasse os campos referentes aquele registro para que eu alterasse, e quanod clicasse em ok, ele faria as atualizacoes/inclusoes necessarias.

se alguem tiver como me ajudar agradeceria muito.
JAMESBOND007 02/08/2010 16:11:29
#349185 Resposta escolhida
Se eu entendi direito, isto aqui pode te ajudar no numero do proximo registro.
Dim J As Integer

esse codigo eu uso para para me dar sempre um numero novo de registro
Private Sub Codaut()
            If tabelas.State = adStateOpen Then tabelas.Close
            tabelas.Open [Ô]cliente[Ô], conectiva, adOpenKeyset, adLockOptimistic
            If tabelas.BOF = True Or tabelas.EOF = True Then
            mskCodigo = 10
            Else
            If tabelas.State = adStateOpen Then tabelas.Close
            tabelas.Open [Ô]select max(codigo)as J from cliente[Ô]
            mskCodigo = tabelas!J + 1
            End If
End Sub


Private sub Form_Load()
Call Codaut
End Sub
EDSPICER 02/08/2010 21:30:37
#349229
ok, vou testa em seguida eu retorno.
obrigado.
EDSPICER 03/08/2010 10:19:44
#349255
Citação:

:
Se eu entendi direito, isto aqui pode te ajudar no numero do proximo registro.

Dim J As Integer

esse codigo eu uso para para me dar sempre um numero novo de registro
Private Sub Codaut()
            If tabelas.State = adStateOpen Then tabelas.Close
            tabelas.Open [Ô]cliente[Ô], conectiva, adOpenKeyset, adLockOptimistic
            If tabelas.BOF = True Or tabelas.EOF = True Then
            mskCodigo = 10
            Else
            If tabelas.State = adStateOpen Then tabelas.Close
            tabelas.Open [Ô]select max(codigo)as J from cliente[Ô]
            mskCodigo = tabelas!J + 1
            End If
End Sub


Private sub Form_Load()
Call Codaut
End Sub



essa [Ô]tabelas[Ô] voce atribui a que?
JAMESBOND007 03/08/2010 10:22:12
#349257
Recordset
EDSPICER 05/08/2010 23:48:20
#349586
resolveu...
obrigado pela ajuda.
JAMESBOND007 06/08/2010 07:24:09
#349589
ok. por nada e so fechar o topico
Tópico encerrado , respostas não são mais permitidas
Voltar