• Revista PROGRAMAR: Já está disponível a edição #53 da revista programar. Faz já o download aqui!

DreamPearl

Função Access em VB 2008

2 mensagens neste tópico

Olá  todos!

Será que alguém me consegue por esta função do Access a trabalhar em VB 2008?

Private Sub Form_Current() 'numerador do processo

    If Me.NewRecord Then

        If Nz(DMax("[Processo_n]", "Processos"), 0) = 0 Then

          Me!Processo_n.DefaultValue = 200

          Else

          Me!Processo_n.DefaultValue = Nz(DMax("[Processo_n]", "Processos"), 0) + 1

    End If

    End If

End Sub

Desde já muito obrigada.

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

ora ..ora..

Temos aqui várias coisas... vamos por partes.......

o me.newrecord... nem pensar....

o nz... podes construir uma função que lhe passas o valor a avaliar, e a expressão que deve retornar caso seja nula ou nothing ou ainda isdbnull (faz logo para as tres que ficas melhor servido...e é transversal).

Para o DMAX... vais ter que fazer um executescalar à base de dados..

Também podes fazer uma função que lhe passas a tabela, o campo que queres avaliar..e ele retorna o máximo...

Para veres como funcuina o execute scalar

http://msdn.microsoft.com/en-us/library/system.data.sqlclient.sqlcommand.executescalar.aspx

bom trabalho

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!


Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.


Entrar Agora