insertとselectを使用してSQL文字列を作成する

Question

私は3つのフィールドを持つシンプルなフォームを持っています - テーブルVenueからの会場のリストを表示するリストボックス、日付ピッカーを持つテキストボックス、イベント名。会場のテーブルを見て会場IDを選択するには、リストボックスの値が必要です。私は、この会場IDと日付とイベント名のテキストボックスの値でイベントテーブルを更新したいと思います。示すように、私が作成したコードは次のとおりです。

Private Sub cmdCreateEvent_Click() 

    Dim dteDateHeld As Date 
    Dim strEventName As String 
    Dim strVenue As String 
    Dim strSQL As String 

    'check at least the event name is complete - venue and date may be selected after creating the event - check with Lynette 
    If Me.txtEventName.Text = "" Then 
     MsgBox "Please enter the name of the event in order to create this record", vbOKOnly 
     Exit Sub 
    End If 

'pass textbox fields to variables 
dteDateHeld = Me.txtDateHeld.Text 
strEventName = Me.txtEventName.Text 


If Me.lstVenue.ListIndex = -1 Then 'no venue selected 
    'create sql string to insert details into table if no venue selected 
    strSQL = "Insert Into Event (EventName, DateHeld) Values (" & strEventName & "," & dteDateHeld & ")" 
Else 
    'Create sql string to insert details into table if venue has been selected 
    strVenue = Me.lstVenue.Selected 
    'strSQL = "Insert Into Event (Venue, EventName, DateHeld)Select from Venue (VenueID) Where VenueName = " & strVenue & " " 
End If 


'execute the sql code to update the table 
CurrentDb.Execute strSQL 

'clear fields 
Me.txtDateHeld.Text = "" 
Me.txtEventName.Text = "" 
Me.lstVenue = Null 

End Sub 

私は本当に私のSQL文字列を終え助けが必要 - あなたは私のコードで間違って何かを見つけることが起こるなら、私が知っていること自由に感じなさい。私はできるだけシンプルにしています。

Answer 1

dteDateHeld変数は文字列である必要があります。あなたがやっているようなSQL文字列を作成して日付を渡すときは、変数の周りに#が必要です。文字列の周囲には引用符'が必要です。リストボックスの選択については

strSQL = "Insert Into Event (EventName, DateHeld) Values ('" & strEventName & "',#" & dteDateHeld & "#)"

あなたのIDは、最初の列にある場合は、IDを持っている場合は、のようなSQL文の構築ができない場合でも、あなたはしかしMe.lstVenue.Value

を使用することができます。

を

挿入する値の数は、選択する値の数と一致する必要があります。値を渡すと、テーブルのフィールドではない値を選択できます。

strSQL = "Insert Into Event (Venue, EventName, DateHeld) Select VenueName, '" & strEventName & "',#" & dteDateHeld & "# FROM Venue Where VenueID = " & Me.lstVenue.Value & " "