Office Systems Developer : SQL Access

How to use "Like" in SQL Access to find Costumers in a Form (TextBox and a ListBox)

Joao Livio — Mon, 18 Apr 2005 05:10:00 GMT

'(c) 2003 João Tito Lívio
'This code can only be use as a part of an Application and could not be sell

'To REQUEST a full functional sample please > Click

SQL

Using an SQL Querie

SELECT Customers.CompanyName, Customers.ContactName, Customers.ContactTitle
FROM Customers
WHERE (((Customers.CompanyName) Like "*" & [Forms]![Form1]![Text0] & "*"));

Using in JET (VBE)

Dim StrSql As String

StrSql = "SELECT Customers.CompanyName, Customers.ContactName, Customers.ContactTitle " & _
"FROM Customers " & _
"WHERE Customers.CompanyName Like & '"*" & Me.Text0 & "*"'

How to Spell Months by VBA Code and SQL?

Joao Livio — Sun, 17 Apr 2005 07:21:00 GMT

'(c) 2005 João Tito Lívio
'This code can only be use as a part of an Application and could not be sell

 'To REQUEST a full functional sample please > Click

VBA

MsgBox (Format(Now(), "mmmm"))
MsgBox ("Month: " & Format(Now(), "mmmm"))
MsgBox ("Month: " & Format(#1/1/2005#, "mmmm"))

SQL

SELECT Table1.Data, "This is month: " & Format([Data];"mmmm") AS strConvertion
FROM Table1;