Below is the full code for the networks: I have only 3500 Rows of data in the table. I don't think I have anything else updating.
Code:
Dim rU As DAO.Recordset, rN As DAO.Recordset
Dim Uname As Variant, PLName As Variant, CoName As Variant
Dim Max As Integer, I As Integer, M As Integer, Z As Integer
Dim A As String, B As String, H As String, S As String, W As String, V As String, NN As String
Dim NewWave As String, Units As String, PLT As String, Company As String, BN As String, DIV As String, Base As String
Dim BDEs As String, INFBN As String, ARBN(2), CAV As String, Fires As String, BEB As String, BSB As String, Air As String
Set rU = CurrentDb.OpenRecordset("NBOI")
Set rN = CurrentDb.OpenRecordset("NewNetID")
H = " HF"
S = " SRW(C)"
W = " WNW(C)"
V = " VHF"
W = " WNW(C)"
BDEs = "2BCT1ID"
Air = "AVN TF"
INFBN = "1BN18IN"
ARBN(1) = "1BN63AR"
ARBN(2) = "2BN70AR"
CAV = "5BN4CAV"
Fires = "1BN7FA"
BEB = "82BEB"
BSB = "299BSB"
DIV = "1ID"
Max = 13500
Do While Not rU.EOF
rN.MoveFirst
Do While Not rN.EOF
rU.Edit
rN.Edit
Uname = rU![BN]
Select Case Uname
Case Is = "BDE"
Base = BDEs
Z = 1
Case Is = "AERIAL"
Base = Air
Z = 1
Case Is = "INF BN 1"
Base = INFBN
Z = 3
Case Is = "AR BN 1"
Base = ARBN(1)
Z = 4
Case Is = "AR BN 2"
Base = ARBN(2)
Z = 5
Case Is = "CAV"
Base = CAV
Z = 6
Case Is = "Fires"
Base = Fires
Z = 8
Case Is = "BEB"
Base = BEB
Z = 7
Case Is = "BSB"
Base = BSB
Z = 9
Case Is = "DIV"
Base = DIV
Z = 0
Case Else
Base = ""
End Select
CoName = rU![CO]
Select Case CoName
Case Is = "HHB"
B = "HHB "
Case Is = "HHC"
B = "HHC "
Case Is = "HHT"
B = "HHT "
Case Is = "A"
B = "A "
Case Is = "B"
B = "B "
Case Is = "C"
B = "C "
Case Is = "D"
B = "D "
Case Is = "E"
B = "E "
Case Is = "F"
B = "F "
Case Is = "G"
B = "G "
Case Is = "H"
B = "H "
Case Is = "I"
B = "I "
Case Else
B = ""
End Select
PLName = rU![PLT]
Select Case PLName
Case Is = "TRAN"
A = "1 "
Case Is = "HQ"
A = "HQ "
Case Is = "1"
A = "1 "
Case Is = "2"
A = "2 "
Case Is = "SUP"
A = "2 "
Case Is = "3"
A = "3 "
Case Is = "ES"
A = "ES "
Case Is = "RCL"
A = "RTE CLR "
Case Is = "4"
A = "4 "
Case Is = "SGI"
A = "SGI "
Case Is = "SCT"
A = "SCT "
Case Is = "SNP"
A = "SNP "
Case Is = "SUP"
A = "SUP "
Case Is = "TUAS"
A = "TUAS "
Case Is = "TGT"
A = "TAP "
Case Is = "FUEL & WAT"
A = "F&W "
Case Is = "MRT"
A = "MORT "
Case Is = "MED"
A = "MED "
Case Is = Null
A = ""
Case Else
A = " "
End Select
Units = Base
Company = B & Base
PLT = A & B & Base
'MOUS
If rU![MUOS 1] = "METT" Then
rU("MUOS1") = "11500-METT-T MUOS"
Else: rU("MUOS1") = ""
End If
'HF
If rU("HF 1") = "METT" Then
rU("HF1") = "13000-METT-T" & H
ElseIf rU("HF 1") Like "BDE*" Then
NewWave = Right(rU("HF 1"), (Len(rU("HF 1")) - 4))
rU("HF1") = Max - Z & "-" & BDEs & " " & NewWave & H
ElseIf rU("HF 1") = "Bn Intel" Then
NewWave = Right(rU("HF 1"), (Len(rU("HF 1")) - 2))
rU("HF1") = Max - Z - 10 & "-" & Base & NewWave & H
ElseIf rU("HF 1") = "Bn Cmd" Then
NewWave = Right(rU("HF 1"), (Len(rU("HF 1")) - 2))
rU("HF1") = Max - Z & "-" & Base & NewWave & H
ElseIf rU("HF 1") Like "Co Cmd" Then
NewWave = Right(rU("HF 1"), (Len(rU("HF 1")) - 2))
rU("HF1") = Max - Z - 100 & "-" & B & Base & NewWave & H
ElseIf rU("HF 1") Like "Div FS" Then
NewWave = DIV & " " & Right(rU("HF 1"), (Len(rU("HF 1")) - 4))
rU("HF1") = Max - Z - 300 & "-" & NewWave & H
End If
For I = 1 To 2 'WNW
If rU("WNW " & I) = "METT" Then
rU("WNW" & I) = "10500-METT-T" & W
ElseIf rU("WNW " & I) = "BDE" Then
rU("WNW" & I) = "10001-" & BDEs & W
ElseIf rU("WNW " & I) = "BN" Then
rU("WNW" & I) = "1000" & Z & "-" & Base & W
ElseIf IsNull(rU("WNW " & I)) Then
rU("WNW" & I) = ""
End If
Next I
For I = 1 To 6
If rN("NetName") = NewWave And rN("Wave") = "VHF" Then
NN = rN("NetID")
End If
If rU("SINCGARS " & I) = "METT" Then
rU("SINC" & I) = "12500-METT-T" & V
ElseIf rU("SINCGARS " & I) Like "Div*" Then
NewWave = DIV & Right(rU("SINCGARS " & I), (Len(rU("SINCGARS " & I)) - 3))
rU("SINC" & I) = NN & "-" & NewWave & V
ElseIf rU("SINCGARS " & I) Like "Bde*" Then
NewWave = BDEs & Right(rU("SINCGARS " & I), (Len(rU("SINCGARS " & I)) - 3))
rU("SINC" & I) = NN & "-" & NewWave & V
ElseIf rU("SINCGARS " & I) Like "Bn*" Then
NewWave = Base & Right(rU("SINCGARS " & I), (Len(rU("SINCGARS " & I)) - 2))
rU("SINC" & I) = NN & "-" & NewWave & V
ElseIf rU("SINCGARS " & I) Like "CO*" Then
NewWave = Company & Right(rU("SINCGARS " & I), (Len(rU("SINCGARS " & I)) - 2))
rU("SINC" & I) = NN & "-" & NewWave & V
ElseIf rU("SINCGARS " & I) = "MEDEVAC" Then
NewWave = "MEDEVAC"
rU("SINC" & I) = NN & "-" & NewWave & V
ElseIf rU("SINCGARS " & I) = "Sptd Unit A&L" Then
NewWave = Base & " A&L"
rU("SINC" & I) = NN & "-" & NewWave & V
ElseIf rU("SINCGARS " & I) = "Sptd Unit Cmd" Then
NewWave = Company & " Cmd"
rU("SINC" & I) = NN & "-" & NewWave & V
ElseIf rU("SINCGARS " & I) Like "?? OPS" Then
NewWave = PLT & " " & Right(rU("SINCGARS " & I), (Len(rU("SINCGARS " & I)) - 3))
rU("SINC" & I) = NN & "-" & NewWave & V
ElseIf rU("SINCGARS " & I) Like "*TA*" Then
NewWave = PLT & " TA"
rU("SINC" & I) = NN & "-" & NewWave & V
ElseIf rU("SINCGARS " & I) Like "*Flight*" Then
NewWave = PLT & " " & "Flt Ops"
rU("SINC" & I) = NN & "-" & NewWave & V
ElseIf rU("SINCGARS " & I) Like "*OPS" Then
NewWave = PLT & " " & Right(rU("SINCGARS " & I), (Len(rU("SINCGARS " & I)) - 4))
rU("SINC" & I) = NN & "-" & NewWave & V
ElseIf rU("SINCGARS " & I) Like "*FD" Then
NewWave = PLT & " " & Right(rU("SINCGARS " & I), (Len(rU("SINCGARS " & I)) - 5))
rU("SINC" & I) = NN & "-" & NewWave & V
ElseIf rU("SINCGARS " & I) Like "*TA Intel" Then
NewWave = PLT & " " & Right(rU("SINCGARS " & I), (Len(rU("SINCGARS " & I)) - 5))
rU("SINC" & I) = NN & "-" & NewWave & V
End If
Next I
rU.Update
rN.MoveNext
Loop
rU.MoveNext
Loop
rU.Close
Set rU = Nothing
rN.Close
Set rN = Nothing
End Sub