INSERT INTO værdier fra 2 inpotbokse
Hvorledes skal denne :DoCmd.RunSQL "INSERT INTO ReportPeriod ([CY End]) VALUES ('" & MyValue1 & "');"
se ud hvis jeg vil have indsat data fra 2 inputbokse, jeg synes ikke jeg kan få det til at virke, har b.a. forsøgt med følgende :
DoCmd.RunSQL "INSERT INTO ReportPeriod ([CY End], [PE Count] ) VALUES ('" & MyValue1 & "', '" & MyValue1 & "');"
Public Function Generate_Report()
Dim Message1, Title1, Default1, MyValue1
Dim Message2, Title2, Default2, MyValue2
Message1 = "Input last week end date" ' Set prompt.
Title1 = "Report criteria 1" ' Set title.
Default1 = "01-01-2011" ' Set default.
Message2 = "Input no of days history" ' Set prompt.
Title2 = "Report criteria 2" ' Set title.
Default2 = "7" ' Set default.
MyValue1 = InputBox(Message1, Title1, Default1)
MyValue2 = InputBox(Message2, Title2, Default2)
strSql = "DELETE ReportPeriod.* "
strSql = strSql & "FROM ReportPeriod;"
db.Execute strSql
DoCmd.SetWarnings False
DoCmd.RunSQL "INSERT INTO ReportPeriod ([CY End]) VALUES ('" & MyValue1 & "');"
DoCmd.SetWarnings True
End Function