Uso em rede do código de J.Paulo

Ajudem, por favor: utilizo o código de J. Paulo para numerar, com três dígitos e ano do registro. Alterei-o para quatro dígitos. Contudo, uso o Access em rede com outro computador e se num computador se está inserindo dados, o outro não permite um novo registro. O que posso fazer para que seja aceito a inserção de dados concomitantemente? Há, ainda, outro problema: a navegação nos registros não obedece a ordem dos registros.
O código é este, abaixo.

Código:


'No módulo:
Public Function NumeracaoAno() As String

Dim fazcodigo(1), I As Integer, temporario As Integer

fazcodigo(1) = Nz(DMax("Left(OrdemdeServiço,4)", "SOLICITACOES", "Right(OrdemdeServiço,4)=Year(Date())"), 0)

    For I = 1 To UBound(fazcodigo)
        If temporario < fazcodigo(I) Then temporario = fazcodigo(I)
    Next

NumeracaoAno = Format(temporario + 1, "0000") & "/" & Year(Date)

End Function
Private Sub Form_SOLICITAR()
Me.relogio.Caption = Time()
End Sub

'No Formulário:
Private Sub Command3_Click()
DoCmd.GoToRecord , , acNewRec
End Sub
Private Sub Command4_Click()
On Error GoTo Erro
DoCmd.GoToRecord , , acNext
Exit Sub
Erro:
Texto = "Não há registro maior que este!"
Msg = MsgBox(Texto, vbOKOnly + vbInformation, "Aviso do sistema")
Exit Sub
End Sub
Private Sub Command5_Click()
On Error GoTo Erro
DoCmd.GoToRecord , , acPrevious
Exit Sub
Erro:
Texto = "Não há regitro menor que este!"
Msg = MsgBox(Texto, vbOKOnly + vbInformation, "Aviso do sistema")
Exit Sub
End Sub
Private Sub Form_Open(Cancel As Integer)

If Not IsNull(Me.OrdemdeServiço) Then
Else
Me.OrdemdeServiço.Value = "0000" & "/" & Year(Date)
End If

End Sub
Private Sub Form_Timer()
Me.relogio.Caption = Time()
End Sub



Boas Amigão, por vezes o tópico nos passa despercebido, resolveste esta questão?

Cumprimentos.

Olá Piloto! Até o momento não solucionei a questão. Postei a questão e aguardei, como não houve respostas fiquei em stand-by, ou melhor, dormi!

Quanto à navegação não obedecer, não sei.

Que a função funciona, à isso é que funciona.

Quanto ao banco em rede, ele deve estar compartilhado e na altura em que gerar o numero de registro, deve ser imediatamente salvo, para que a função possa efetuar a leitura do ultimo.

J. Paulo, o problema da navegação foi resolvido com a eliminação de códigos duplicados. Haviam sido duplicados não sei por qual razão!
Quanto ao uso em rede, o problema persiste. Como faço para que o salvamento ocorra automaticamente?

Código:



Private Sub Form_Open(Cancel As Integer)
Call DesabilitaObjetos
If Not IsNull(Me.OrdemdeServiço) Then
Else
Me.OrdemdeServiço.Value = "0000" & "/" & Year(Date)
End If

End Sub

Public Function NumeracaoAno() As String

Meu formulário é Front end.

Dim fazcodigo(1), i As Integer, temporario As Integer

fazcodigo(1) = Nz(DMax("Left(OrdemdeServiço,4)", "SOLICITACOES", "Right(OrdemdeServiço,4)=Year(Date())"), 0)

    For i = 1 To UBound(fazcodigo)
        If temporario < fazcodigo(i) Then temporario = fazcodigo(i)
    Next

NumeracaoAno = Format(temporario + 1, "0000") & "/" & Year(Date)

End Function

Private Sub Form_Timer()
Me.relogio.Caption = Time()
End Sub



Preciso que o usuário da outra máquina possa ter um novo registro enquanto eu estiver preenchendo o formulário. No momento, o outro usuário somente consegue gerar outro código após eu fechar o meu formulário com algum dado inserido.

Ao carregar o formulario, já se encontra criada a numeração, então é só salvar de imediato para disponibilizar a numeração aos demais usuários;

Private Sub Form_Load()
On Error Resume Next
    DoCmd.RunCommand acCmdSaveRecord
    Me.Recalc
End Sub

Testei e não funcionou! Somente surge um novo código se um dos usuários fechar e abrir o formulário.

O que desejo é que qualquer usuário ao abrir o formulário ou clicar o botão NOVO tenha um novo código saltando o código que está sendo utilizado pelo outro. Funcionamento igual ao da numeração automática do Access!

Up!!