從其他表訪問 Vba 序列 ID

Question

我有兩個表，ID 表和 Mastertable。 在 ID 表中，我有級別和活動，它給出了一個起始編號，讓我們說 1000。在 Mastertable 中，我有許多與相同活動和級別相關聯的圖紙。 我必須從 ID 表值 1000 開始為它們提供編號，並將其增加 1。完成后，必須將 mastertable 中的最大值重新插入 ID 表。

此外，如果有級別和活動，則必須選擇 ID 來查找級別和活動，如果沒有提到級別，則只需查找活動。

我嘗試了很多，但沒有成功。

我使用了下面的代碼，但它只查找活動而不是級別。 它也不會返回到 id 表並從主表更新最大 ID。

Option Compare Database
Option Explicit

Public Function SequenceNew()
Dim strSQL As String
Dim db As Database
Dim rs As DAO.Recordset
Dim a, initNo As Integer
Dim b As Integer


strSQL = "SELECT * FROM MasterTable ORDER BY LevelID"
'Set db = CurrentDb
Set rs = CurrentDb.OpenRecordset(strSQL)
If rs.RecordCount > 0 Then
rs.MoveFirst
Do While Not rs.EOF

rs.Edit
If rs![DrawingTypeName] = "Concrete" And rs![ProjectName] = Forms!frm_Publish!CboProject And rs!IDGiven = "Not Given" Then
a = a + 1
rs!Sequence = DLookup("CONCRETE", "Qry_ID_Selected") + a

ElseIf rs![DrawingTypeName] = "Reinforcement" And rs![ProjectName] = Forms!frm_Publish!CboProject And rs!IDGiven = "Not Given" Then
b = b + 1
rs!Sequence = DLookup("REINFORCEMENT", "Qry_ID_Selected") + b

ElseIf rs![DrawingTypeName] = "Steel structural works" And rs![ProjectName] = Forms!frm_Publish!CboProject And rs!IDGiven = "Not Given" Then

End If
rs.Update
rs.MoveNext
Loop
rs.Close
Set db = Nothing
Else
MsgBox " No records Found"
rs.Close
Set db = Nothing
End If

End Function

應該有其他更好的方法來做到這一點。 主表 ID 表

Answer 1

這個問題是由我可以解決的新代碼解決的。

Option Compare Database
Option Explicit

Public Function SequenceNewLevel()
Dim strSQL As String
Dim strSQL1 As String
Dim db As Database
Dim rs As DAO.Recordset
Dim rs1 As DAO.Recordset2
Dim a, initNo As Integer
a = 0
strSQL = "SELECT * FROM MasterTable"
strSQL1 = "SELECT * FROM ID"
Set db = CurrentDb
Set rs1 = CurrentDb.OpenRecordset(strSQL1)
If rs1.RecordCount > 0 Then
rs1.MoveFirst
Do While Not rs1.EOF
    rs1.Edit
    Set rs = CurrentDb.OpenRecordset(strSQL)
    If rs.RecordCount > 0 Then
    rs.MoveFirst
    Do While Not rs.EOF
    rs.Edit
        If rs![TypeOfDrawing] = rs1![Activity] And rs![Project] = rs1![Project] And rs![LevelName] = rs1![Level] And rs![IDGiven] = "Not Given" Then
        a = a + 1
        rs!Sequence = rs1!StartID + a
        rs1!StartID = rs!Sequence
        a = 0
        rs![IDGiven] = "GIVEN"
        End If
    rs.Update
    rs.MoveNext
    Loop
End If
 rs1.Update
rs1.MoveNext
Loop
rs1.Close
rs.Close
Set db = Nothing
Else
MsgBox " No records Found"
rs.Close
Set db = Nothing
End If
End Function


Public Function SequenceNewWithOutLevel()
Dim strSQL As String
Dim strSQL1 As String
Dim db As Database
Dim rs As DAO.Recordset
Dim rs1 As DAO.Recordset2
Dim a, initNo As Integer
a = 0
strSQL = "SELECT * FROM MasterTable"
strSQL1 = "SELECT * FROM IDWithoutlevel"
Set db = CurrentDb
Set rs1 = CurrentDb.OpenRecordset(strSQL1)
If rs1.RecordCount > 0 Then
rs1.MoveFirst
Do While Not rs1.EOF
    rs1.Edit
    Set rs = CurrentDb.OpenRecordset(strSQL)
    If rs.RecordCount > 0 Then
    rs.MoveFirst
    Do While Not rs.EOF
    rs.Edit
        If rs![TypeOfDrawing] = rs1![Activity] And rs![Project] = rs1![Project] And rs![IDGiven] = "Not Given" Then
        a = a + 1
        rs!Sequence = rs1!StartID + a
        rs1!StartID = rs!Sequence
        a = 0
        rs![IDGiven] = "GIVEN"
        End If
    rs.Update
    rs.MoveNext
    Loop
End If
 rs1.Update
rs1.MoveNext
Loop
rs1.Close
rs.Close
Set db = Nothing
Else
MsgBox " No records Found"
rs.Close
Set db = Nothing
End If
End Function