Field Names in DAO

[dave b via AccessMonster.com]

SQLString = "SELECT *" & vbCrLf
SQLString = SQLString & " FROM (((tblDowntime" & vbCrLf
SQLString = SQLString & " INNER JOIN tblDept" & vbCrLf
SQLString = SQLString & " ON tblDownTime.Dept = tblDept.ID)" &
vbCrLf
SQLString = SQLString & " LEFT JOIN tblProcessStep" & vbCrLf
SQLString = SQLString & " ON tblDownTime.ProcessStep =
tblProcessStep.ProcessStep)" & vbCrLf
SQLString = SQLString & " INNER JOIN tblReason" & vbCrLf
SQLString = SQLString & " ON tblDownTime.IDReason = tblReason.
IDReason)" & vbCrLf
SQLString = SQLString & " INNER JOIN tblCat" & vbCrLf
SQLString = SQLString & " ON tblDownTime.IDCat = tblCat.IDCat"
& vbCrLf
SQLString = SQLString & " WHERE (tblDowntime.ProductID &
tblDowntime.LotNo ='" & [Forms]![frmMnMenu]![cboProductID] & [Forms]!
[frmMnMenu]![cboLotNumber] & "')"

 

[dave b via AccessMonster.com]

Thank you to anyone who would have replied. I found the answer by reviewing
previous postings on Access Monster.

The answer is :
Dim myfield
myfield = snpDTData.Fields(13).Name
MsgBox myfield

The field in question shows up as tblDowntime.IDCat, which I expected. Then
I realized I had to enclose the field name in brackets in order to use it:
snpdata![tblDowntime.IDCat].

SQLString = "SELECT *" & vbCrLf
SQLString = SQLString & " FROM (((tblDowntime" & vbCrLf
SQLString = SQLString & " INNER JOIN tblDept" & vbCrLf
SQLString = SQLString & " ON tblDownTime.Dept = tblDept.ID)" &
vbCrLf
SQLString = SQLString & " LEFT JOIN tblProcessStep" & vbCrLf
SQLString = SQLString & " ON tblDownTime.ProcessStep =
tblProcessStep.ProcessStep)" & vbCrLf
SQLString = SQLString & " INNER JOIN tblReason" & vbCrLf
SQLString = SQLString & " ON tblDownTime.IDReason = tblReason.
IDReason)" & vbCrLf
SQLString = SQLString & " INNER JOIN tblCat" & vbCrLf
SQLString = SQLString & " ON tblDownTime.IDCat = tblCat.IDCat"
& vbCrLf
SQLString = SQLString & " WHERE (tblDowntime.ProductID &
tblDowntime.LotNo ='" & [Forms]![frmMnMenu]![cboProductID] & [Forms]!
[frmMnMenu]![cboLotNumber] & "')"

 

[TC]

Thank you to anyone who would have replied. I found the answer by reviewing
previous postings on Access Monster.

The answer is :
Dim myfield
myfield = snpDTData.Fields(13).Name
MsgBox myfield

If you're still reading, you really do not want to do it like that.
That code will malfunction unpredictably, the moment you do anything
that stops the field you want, being field #13. Replace the number 13
with the name of the field in question, enclosed in double quotes.

HTH,
TC (MVP Access)
http://tc2.atspace.com