Hi All,
Can you help with the following!
I want to extract different post codes from a table.
i.e BL9, BL7, M25, M26 etc
I can get the following code to produce a report for BL7 but don't know how to add the other ones.
Can anyone help please as I am doing this for a Charity and a bit stuck.
Option Explicit
Function BuryPostCode()
Dim dbs As Database, rst As Recordset
Set dbs = CurrentDb
Set rst = dbs.OpenRecordset("SELECT [First Name], " _
& "[Last Name] FROM [Members Contact Details];")
dbs.Close
DoCmd.OpenReport "Members Contact Details Report", acViewPreview, , "[Post Code] = 'BL7'"
End Function
Private Sub Command4_Click()
End Sub
Sub postcode()
End Sub
Can you help with the following!
I want to extract different post codes from a table.
i.e BL9, BL7, M25, M26 etc
I can get the following code to produce a report for BL7 but don't know how to add the other ones.
Can anyone help please as I am doing this for a Charity and a bit stuck.
Option Explicit
Function BuryPostCode()
Dim dbs As Database, rst As Recordset
Set dbs = CurrentDb
Set rst = dbs.OpenRecordset("SELECT [First Name], " _
& "[Last Name] FROM [Members Contact Details];")
dbs.Close
DoCmd.OpenReport "Members Contact Details Report", acViewPreview, , "[Post Code] = 'BL7'"
End Function
Private Sub Command4_Click()
End Sub
Sub postcode()
End Sub