1 2 3 4 5 6 7 8 9 10 11 12 13
| Private Sub Command15_Click()
Dim qdf As DAO.QueryDef
Dim strSQL As String
DoCmd.Close acQuery, ("Query5"), acSaveNo
strSQL = "PARAMETERS [Forms]![Form2]![Text1] Text ( 255 ); " & _
"SELECT CompEconData.ObjectType, CompEconData.CompKEY, CompEconData.RefYear, CompEconData.RefQ, CompEconData.Unit, CompEconData.Data, CompEconData.FeatSz, CompEconData.AdjNode, CompEconData.WafSz , CompEconData.Details, CompEconData.Comments,CompEconData.Area , CompEconData.UploadDate, CompEconData.Source FROM CompEconData " & _
"WHERE (((CompEconData.ObjectType) Like " & Chr(34) & "*" & Chr(34) & " &[Forms]![Form2]![Text1] &" & Chr(34) & " * " & Chr(34) & "));"
CurrentDb.QueryDefs.Delete ("Query5")
Set qdf = CurrentDb.CreateQueryDef("Query5", strSQL)
DoCmd.OpenQuery ("Query5")
End Sub |
Partager