Advertisement
Advertisement
| 12.03.2007 at 12:44PM PST, ID: 22998541 |
|
[x]
Attachment Details
|
||
1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14: 15: |
For j = 0 To 1
'Save Row and Column Descriptions
If j = 0 Then c = "Row" Else c = "Col"
strSQL = "INSERT INTO tbHRI_Descrip (HRI_ID,Descrip_ID,DescripType,Label," & _
"Description)" & _
"VALUES ('" & Me.txtHRI_ID.Value & "','" & i & "','" & c & "','" & _
Me.Controls("txt" & c & "Label" & i).Value & "','" & _
Me.Controls("txt" & c & "Descrip" & i).Value & "')"
DoCmd.RunSQL strSQL
Next
|