Bom dia!
Estou iniciando uma BD em que uma empresa de engenharia tem várias obras.
e em cada obra haverá um BD, que esses dados serão enviado para a matriz.
tanto as obras como a matriz terão o mesmo BD.
Detalhe será acrescentados todos os dados das obra na matriz.
então...gostaria de criar um campo sequencial de ID seja diferente entre todos os bancos de dados.
já que irei acrescentar todos em um só banco de dados.
Se for possível que nesse campo ID tenha um numero padrão da obra, tipo um digito verificador sei lá
olá galera...tive que improvisar, foi o melhor que pude fazer pra resolver.
Sub autonum1()
Dim iLin1 As Long
iLin1 = (DCount("codmedicao", "medicao"))
Me.TEXT2 = iLin1
End Sub
Sub AUTONUM2()
Dim TXT2 As String
TXT2 = Me.CODIGO
Dim iLin As Long
iLin = Me.TEXT2
If iLin = 0 Then
Me.CODMEDICAO = TXT2
Else
'será o valar total de registro + 1
Me.CODMEDICAO = Me.CODIGO
End If
End Sub
FOI ISSO, ESPERO QUE POSSA AJUDAR OUTROS
O PROBLEMA É QUE O DCOUNT NÃO POSSO EXCLUIR REGISTRO
Estou iniciando uma BD em que uma empresa de engenharia tem várias obras.
e em cada obra haverá um BD, que esses dados serão enviado para a matriz.
tanto as obras como a matriz terão o mesmo BD.
Detalhe será acrescentados todos os dados das obra na matriz.
então...gostaria de criar um campo sequencial de ID seja diferente entre todos os bancos de dados.
já que irei acrescentar todos em um só banco de dados.
Se for possível que nesse campo ID tenha um numero padrão da obra, tipo um digito verificador sei lá
olá galera...tive que improvisar, foi o melhor que pude fazer pra resolver.
Sub autonum1()
Dim iLin1 As Long
iLin1 = (DCount("codmedicao", "medicao"))
Me.TEXT2 = iLin1
End Sub
Sub AUTONUM2()
Dim TXT2 As String
TXT2 = Me.CODIGO
Dim iLin As Long
iLin = Me.TEXT2
If iLin = 0 Then
Me.CODMEDICAO = TXT2
Else
'será o valar total de registro + 1
Me.CODMEDICAO = Me.CODIGO
End If
End Sub
FOI ISSO, ESPERO QUE POSSA AJUDAR OUTROS
O PROBLEMA É QUE O DCOUNT NÃO POSSO EXCLUIR REGISTRO
- Anexos
- OBRA35.zip
- Olá acho que encontrei uma maneiro de fazer isso, gostaria de uma opinião mais técnica. é meio que uma gambiarra, mais espero que ajude alguém.
- Você não tem permissão para fazer download dos arquivos anexados.
- (97 Kb) Baixado 14 vez(es)