Adding records based on value from other records - vba

Question

I'm going to try this again because I'm so lost..: I have an Access database and the backend contains the tables:
tblStat
groupID
Userid
complex
open
new account
Shipped
not-shipped
code
A
123
Yes
No
Yes
869
B
147
No
Yes
no
936
And tblCode
uniqueid
codetype
code
A,yes,No,Yes
shipped
869
B,No,Yes,No
not-Shipped
936
When I upload a report, it populates the tblStats and using the groupid, complex, open and new account records to make a uniqueid and later adds the code to tblStats. Based on the uniqueID, it can be shipped or not-shipped. The old reports we used contained shipped or not-shipped number values, but with the new reports, I will need to use codetype and code record to reference the tblStat for each order and determine whether the order is shipped or not, and add 1 to tblStats.
I want to do something like
if tblCode.codetype = shipped and the code are the same then tblStat.shipped = 1 else if tblCode.Codetype = not-shipped and the codes are the same tblStat.not-shipped = 1
and then:
with recordset .shipped = shipped .not-shipped = notshipped end with
I just can't seem to figure it out..
I really hope I've provided enough info and cleraity this time around. If you need any code, let me know. thanks.

Answer 1

I cant get my head around for a solution purely in SQL, but in VBA, the method below does the following:
Gather records due to be updated from tblStat.
Loop and try to find a match in tblCode.
Update record accordingly.
There's a helper function to try to find the match in tblCode and an enum the function returns to make the code a bit cleaner and easier to read.
I'm pretty sure something better exists.
Private Enum ShipEnum
None = 0
Shipped
NotShipped
End Enum
Sub T()
On Error GoTo catch
'get records due to be updated
Dim r As DAO.Recordset
Set r = CurrentDb().OpenRecordset("SELECT groupID, complex, [open], [new account], Shipped, [not-shipped], code FROM tblStat WHERE Shipped Is Null AND [not-shipped] Is Null;", dbOpenDynaset)
If r.EOF Then
MsgBox "No records."
GoTo Leave
End If
r.MoveLast
r.MoveFirst
'loop and try to match each record with a record in tblCode
Dim idx As Long, uniqueId As String, shippedStatus As ShipEnum
For idx = 1 To r.RecordCount
'build the unique id for the record
uniqueId = r![groupID] & "," & r![Complex] & "," & r![Open] & "," & r![new account]
'get codetype
shippedStatus = CodeTypeByCriteria(uniqueId, r![Code])
'update if shipped or not-shipped
If shippedStatus <> ShipEnum.None Then
r.Edit
r![Shipped] = IIf(shippedStatus = ShipEnum.Shipped, 1, 0)
r![not-shipped] = IIf(shippedStatus = ShipEnum.NotShipped, 1, 0)
r.Update
End If
r.MoveNext
Next idx
'all good
MsgBox "Complete"
Leave:
If Not r Is Nothing Then r.Close
Exit Sub
catch:
MsgBox Err.Description, vbCritical
Resume Leave
End Sub
Private Function CodeTypeByCriteria(ByVal stringUniqueId As String, ByVal stringCode As String) As ShipEnum
With CurrentDb().OpenRecordset("SELECT codetype FROM tblCode WHERE StrConv(uniqueId, 2)='" & StrConv(stringUniqueId, vbLowerCase) & "' And code='" & stringCode & "'", dbOpenSnapshot)
If Not .EOF Then
Select Case ![codetype]
Case "shipped":
CodeTypeByCriteria = ShipEnum.Shipped
Case "not-shipped":
CodeTypeByCriteria = ShipEnum.NotShipped
Case Else:
Exit Function
End Select
End If
End With
End Function

Answer 2

If code column in both the tables have unique values and you haven't made mistake while writing code field's values for both tables in your question then these queries should work:
UPDATE tblStat JOIN tblCode ON tblStat.code = tblCode.code
SET shipped = 1
WHERE CONCAT(groupID, ',', complex, ',', open, ',', new_account) = uniqueid
AND codetype = 'shipped';
UPDATE tblStat JOIN tblCode ON tblStat.code = tblCode.code
SET not_shipped = 1
WHERE CONCAT(groupID, ',', complex, ',', open, ',', new_account) = uniqueid
AND codetype = 'not-shipped';
Edit:
These queries are according to MySQL. In VBA, there should be some other function or way - like joining string with + operator?