0

なぜこれが機能しないのですか!? どうやら私のデータベースは、式で参照されているフィールド "" を見つけることができません。署名しましたが、かなりイライラしています-ps。

Private Sub Command17_Click()
On Error GoTo Err_Command17_Click

Dim rst As DAO.Recordset
Dim strEmailAddress

Set rst = CurrentDb.OpenRecordset([CourseRosterMaterialsEmail_Query])

Do Until rst.EOF
  strEmailAddress = strEmailAddress & rst([CourseRosterMaterialsEmail_Query].[Email]) & ";"
  rst.MoveNext
Loop

strEmailAddress = Left(strEmailAddress, Len(strEmailAddress) - 1)

DoCmd.SendObject , , acFormatRTF, strEmailAddress, _
, , [CourseTitle], [Forms]![CourseRosterMaterials_Form]![Details], False, False

rst.Close
Set rst = Nothing

Exit_Command17_Click:
    Exit Sub

Err_Command17_Click:
    MsgBox Err.Description
    Resume Exit_Command17_Click

End Sub
4

1 に答える 1

0

これを試して：

Private Sub Command17_Click()
    On Error GoTo Err_Command17_Click

    Dim rst As DAO.Recordset
    Dim strEmailAddress

    Set rst = CurrentDb.OpenRecordset([CourseRosterMaterialsEmail_Query])

    Do Until rst.EOF
      strEmailAddress = strEmailAddress & rst("Email") & ";"
      rst.MoveNext
    Loop

    strEmailAddress = Left(strEmailAddress, Len(strEmailAddress) - 1)

    DoCmd.SendObject , , acFormatRTF, strEmailAddress, _
    , , [CourseTitle], [Forms]![CourseRosterMaterials_Form]![Details], False, False

    rst.Close
    Set rst = Nothing

    Exit_Command17_Click:
        Exit Sub

    Err_Command17_Click:
        MsgBox Err.Description
        Resume Exit_Command17_Click

End Sub

通常、Recordset のフィールドを参照するには、次のようにする必要があります。

rst("FieldName") 'May be ambiguous
rst("FieldAliasName") 'Only if you use aliases
rst("tablename.fieldname") 'I'm actually not sure if this always works
rst("[field name]") 'Use brackets for tables with spaces, symbols, or reserved words
于 2013-09-11T17:29:41.633 に答える