If this is your first visit, be sure to check out the FAQ by clicking the link above. You may have to register before you can post: click the register link above to proceed. To start viewing messages, select the forum that you want to visit from the selection below. |
|
|
Thread Tools | Display Modes |
#1
|
|||
|
|||
Link Forms with multiple fields
Any ideas why I get a 'Type mismatch' error with this code that I using to
open a second form linking multiple fields? Private Sub cmdUpdatePhone_Click() On Error GoTo Err_cmdUpdatePhone_Click Dim stDocName As String Dim stLinkCriteria As String stDocName = "frmEdit Location Phone Numbers" stLinkCriteria = "[Location Name]=" & "'" & Me![Location Name] & "'" And "[Position Code]=" & "'" & Me![Position Code] & "'" DoCmd.OpenForm stDocName, , , stLinkCriteria Exit_cmdUpdatePhone_Click: Exit Sub Err_cmdUpdatePhone_Click: MsgBox Err.Description Resume Exit_cmdUpdatePhone_Click End Sub -- Message posted via AccessMonster.com http://www.accessmonster.com/Uwe/For...forms/201004/1 |
#2
|
|||
|
|||
Link Forms with multiple fields
Nevermind. I was using quotes incorrectly. Here's the correct syntax:
stLinkCriteria = "[Location Name]='" & Me![Location Name] & "' AND [Position] ='" & Me![Position] & "'" T5925MS wrote: Any ideas why I get a 'Type mismatch' error with this code that I using to open a second form linking multiple fields? Private Sub cmdUpdatePhone_Click() On Error GoTo Err_cmdUpdatePhone_Click Dim stDocName As String Dim stLinkCriteria As String stDocName = "frmEdit Location Phone Numbers" stLinkCriteria = "[Location Name]=" & "'" & Me![Location Name] & "'" And "[Position Code]=" & "'" & Me![Position Code] & "'" DoCmd.OpenForm stDocName, , , stLinkCriteria Exit_cmdUpdatePhone_Click: Exit Sub Err_cmdUpdatePhone_Click: MsgBox Err.Description Resume Exit_cmdUpdatePhone_Click End Sub -- Message posted via AccessMonster.com http://www.accessmonster.com/Uwe/For...forms/201004/1 |
#3
|
|||
|
|||
Link Forms with multiple fields
the first thing that stands out is that your operator (And) is
outside of the quotes. If [Location Name] and [Position Code] are both text data types then the following should work; stLinkCriteria = "[Location Name]=""" & Me![Location Name] & _ """ And [Position Code]=""" & Me![Position Code] & """" -- _________ Sean Bailey "T5925MS via AccessMonster.com" wrote: Any ideas why I get a 'Type mismatch' error with this code that I using to open a second form linking multiple fields? Private Sub cmdUpdatePhone_Click() On Error GoTo Err_cmdUpdatePhone_Click Dim stDocName As String Dim stLinkCriteria As String stDocName = "frmEdit Location Phone Numbers" stLinkCriteria = "[Location Name]=" & "'" & Me![Location Name] & "'" And "[Position Code]=" & "'" & Me![Position Code] & "'" DoCmd.OpenForm stDocName, , , stLinkCriteria Exit_cmdUpdatePhone_Click: Exit Sub Err_cmdUpdatePhone_Click: MsgBox Err.Description Resume Exit_cmdUpdatePhone_Click End Sub -- Message posted via AccessMonster.com http://www.accessmonster.com/Uwe/For...forms/201004/1 . |
Thread Tools | |
Display Modes | |
|
|