[Resolvido] Numeração

Boa noite amigos

Aonde estou a errar ?

Assim não funciona

O campo Me.encomenda é texto

Private Sub Cliente_AfterUpdate()

If IsNull(Me!Encomenda) Or Me!Encomenda = "" Then
Me.Encomenda = DLast("encomenda", "TEncomenda", "operação ='" & Me.Operação & "'") + 1
Else

Me.Encomenda = DLast("encomenda", "Tconsignacao", "operação ='" & Me.Operação & "'") + 1
End If

Obrigado

Carregue primeiro o campo em uma variável número

Algo assim:


Private Sub Cliente_AfterUpdate()
Dim IntEnc as Integer

If IsNull(Me!Encomenda) Or Me!Encomenda = "" Then
IntEnc = CInt(DLast("encomenda", "TEncomenda", "operação ='" & Me.Operação & "'"))
Me.Encomenda = IntEnc + 1
Else

Me.Encomenda = DLast("encomenda", "Tconsignacao", "operação ='" & Me.Operação & "'") + 1
End If

Faça o mesmo para o else..

Cumprimentos.

Boa noite Piloto

Dá erro

Run-time error '94':
Invalid use of null

Assim funciona perfeito, mas:

Me.Encomenda = DLast("encomenda", "Tconsignacao", "operação ='" & Me.Operação & "'") + 1
If IsNull(Me!Encomenda) Or Me!Encomenda = "" Then
Me.Encomenda = 1
End If


Mas eu queria que quando fosse nulo fosse buscar o Nº a:
DLast("encomenda", "TEncomenda", "operação ='" & Me.Operação & "'") + 1

Obrigado

Isso ocorre porque quando tenta-se carregar uma variável com valor nulo ela não aceita..
Então neste caso a expressão com o Dlast está retornando um valor nulo.. por isso o erro...

Tente assim:

Me.Encomenda = CInt(DLast("encomenda", "Tconsignacao", "operação ='" & Me.Operação & "'")) + 1

Cumprimentos.