caros amigos tudo bem?
mas vamos la, Eu tenho de auto numeração num formulário de cadastro porem descobri que se duas pessoas ao mesmo tempo abrir o mesmo a auto-numeração não muda fica a mesma.
tem alguma ideia de como posso fazer abrir dois formulários ao mesmo tempo com auto-numeração diferentes uma das outras?
Abraços
mas vamos la, Eu tenho de auto numeração num formulário de cadastro porem descobri que se duas pessoas ao mesmo tempo abrir o mesmo a auto-numeração não muda fica a mesma.
tem alguma ideia de como posso fazer abrir dois formulários ao mesmo tempo com auto-numeração diferentes uma das outras?
Abraços
- Código:
Public Function Contador(strCampo As String, BANCODEDADOSCENTRAL As String) As Long
Dim strSQL As String, rkt As DAO.Recordset
strSQL = "SELECT Max" & "(" & strCampo & ")" & " As MaxValor"
strSQL = strSQL & " FROM " & BANCODEDADOSCENTRAL
Set rkt = DBEngine(0)(0).OpenRecordset(strSQL, dbOpenForwardOnly)
Contador = Nz(rkt("MaxValor")) + 1
rkt.Close: Set rkt = Nothing
End Function
- Código:
Private Sub Form_Current()
'Se está em um novo registro gera o número de serie
Dim intContador As Integer
If Me.NewRecord Then
intContador = Contador("CODPASTA", "BANCODEDADOSCENTRAL")
Me.COD = intContador
End If
End Sub