After Update Event (Combo Box) (1 Viewer)

T

Tor_Fey

Registered User.
Local time
Today, 02:00
Joined
Feb 8, 2013
Messages
121
Morning All;

I have an after update event on a combo box as follows:

Code: 
Private Sub checktype_AfterUpdate()
Dim intCheckName As Integer

intCheckName = 1

If Nz(Me.check_name1, 0) = 0 Then 'apply selected name to check_Name1
    intCheckName = 1
ElseIf Nz(Me.check_name2, 0) = 0 Then 'apply selected name to check_Name2
    intCheckName = 2
ElseIf Nz(Me.check_name3, 0) = 0 Then 'apply selected name to check_Name3
    intCheckName = 3
ElseIf Nz(Me.check_name4, 0) = 0 Then 'apply selected name to check_Name4
    intCheckName = 4
ElseIf Nz(Me.check_name5, 0) = 0 Then 'apply selected name to check_Name5
    intCheckName = 5
ElseIf Nz(Me.check_name6, 0) = 0 Then 'apply selected name to check_Name6
    intCheckName = 6
ElseIf Nz(Me.check_name7, 0) = 0 Then 'apply selected name to check_Name7
    intCheckName = 7
ElseIf Nz(Me.check_name8, 0) = 0 Then 'apply selected name to check_Name8
    intCheckName = 8
ElseIf Nz(Me.check_name9, 0) = 0 Then 'apply selected name to check_Name9
    intCheckName = 9
ElseIf Nz(Me.check_name10, 0) = 0 Then 'apply selected name to check_Name10
    intCheckName = 10
ElseIf Nz(Me.check_name11, 0) = 0 Then 'apply selected name to check_Name11
    intCheckName = 11
ElseIf Nz(Me.check_name12, 0) = 0 Then 'apply selected name to check_Name12
    intCheckName = 12
ElseIf Nz(Me.check_name13, 0) = 0 Then 'apply selected name to check_Name13
    intCheckName = 13
ElseIf Nz(Me.check_name14, 0) = 0 Then 'apply selected name to check_Name14
    intCheckName = 14
Else 'all 14 check_Names contain a value
    MsgBox "All Benefit Types selected", vbInformation
    Exit Sub
End If

Select Case intCheckName 'check preceding check_Name fields do not equal current name
    
Case 1
        Me.check_name1 = Me.checktype
    
Case 2
        If Me.checktype = Me.check_name1 Then 'matches Me.check_Name1
            MsgBox "The name " & Me.checktype & " has already been submitted", vbInformation
            Exit Sub
        End If
        Me.check_name2 = Me.checktype
    
Case 3
        If Me.checktype = Me.check_name1 Or Me.checktype = Me.check_name2 Then
            MsgBox "The name " & Me.checktype & " has already been submitted", vbInformation
            Exit Sub
        End If
        Me.check_name3 = Me.checktype

Case 4
        If Me.checktype = Me.check_name1 Or Me.check_name2 Or Me.checktype = Me.check_name3 Then
            MsgBox "The name " & Me.checktype & " has already been submitted", vbInformation
            Exit Sub
        End If
        Me.check_name4 = Me.checktype
End Select
End Sub

Everything works in the code except case 4, the code stops and gives the following error:

  • 'Run-time error 13' - Type mismatch

is this because there are to may 'Or' statements in the code? - If so; how can i write the code to allow more fields?

I have 14 cases to add for the purposes of checking for duplicate entries and preventing duplicates from being created.

Your help as always is appreciated.

Kind Regards
Tor Fey
 
isladogs

isladogs

MVP / VIP
Local time
Today, 02:00
Joined
Jan 14, 2017
Messages
18,235
I can't remember what the limit is but I'm sure its more than 4.
Perhaps there's an issue with the datatype in that case.

Test for a limit by doing one or both of the following:
a) remming out the offending line . Does it baulk at the next line now?
b) changing the order to put another statement where the 4th one is now.
Does it trip over at that one instead

You should be able to shorten it by using a For...Next loop
If the previous suggestions don't help, get back to me & I'll write something for you
 
arnelgp

arnelgp

..forever waiting... waiting for jellybean!
Local time
Today, 09:00
Joined
May 7, 2009
Messages
19,245
check this line, Me.check_name2 is string, right?


If Me.checktype = Me.check_name1 Or Me.check_name2 Or Me.checktype = Me.check_name3 Then
 
T

Tor_Fey

Registered User.
Local time
Today, 02:00
Joined
Feb 8, 2013
Messages
121
Arnelgp;

When running a debug on this code:
Code: 
Case 4
        If Me.checktype = Me.check_name1 Or Me.check_name2 Or Me.checktype = Me.check_name3 Then
            MsgBox "The name " & Me.checktype & " has already been submitted", vbInformation
            Exit Sub
        End If
        Me.check_name4 = Me.checktype

It always gives the run-time error.

Regards
Tor Fey
 
T

Tor_Fey

Registered User.
Local time
Today, 02:00
Joined
Feb 8, 2013
Messages
121
Hi Ridders;

Removing/remming this code works:
Code: 
Case 4
        If Me.checktype = Me.check_name1 Or Me.check_name2 Or Me.checktype = Me.check_name3 Then
            MsgBox "The name " & Me.checktype & " has already been submitted", vbInformation
            Exit Sub
        End If
        Me.check_name4 = Me.checktype

but the issue is i need to check 14 types.

Interestingly; none of the code works after case 3, i get the same error on it all, this code would be case 5:

Code: 
Case 5
        If Me.checktype = Me.check_name1 Or Me.checktype Or me.check_name2 or me.check_name3 = Me.check_name4 Then
            MsgBox "The name " & Me.checktype & " has already been submitted", vbInformation
            Exit Sub
        End If
        Me.check_name5 = Me.checktype

Regards
Tor Fey

ridders said:
I can't remember what the limit is but I'm sure its more than 4.
Perhaps there's an issue with the datatype in that case.

Test for a limit by doing one or both of the following:
a) remming out the offending line . Does it baulk at the next line now?
b) changing the order to put another statement where the 4th one is now.
Does it trip over at that one instead

You should be able to shorten it by using a For...Next loop
If the previous suggestions don't help, get back to me & I'll write something for you
Click to expand...
 
T

Tor_Fey

Registered User.
Local time
Today, 02:00
Joined
Feb 8, 2013
Messages
121
Just a quick update;

None of this code works after case 3:

Code: 
Select Case intCheckName 'check preceding check_Name fields do not equal current name
    
Case 1
        Me.check_name1 = Me.checktype

Case 2
        If Me.checktype = Me.check_name1 Then 'matches Me.check_Name1
            MsgBox "The name " & Me.checktype & " has already been submitted", vbInformation
            Exit Sub
        End If
        Me.check_name2 = Me.checktype
    
Case 3
        If Me.checktype = Me.check_name1 Or Me.checktype = Me.check_name2 Then
            MsgBox "The name " & Me.checktype & " has already been submitted", vbInformation
            Exit Sub
        End If
        Me.check_name3 = Me.checktype
    
Case 4
        If Me.checktype = Me.check_name1 Or Me.checktype Or me.check_name2 = Me.check_name3 Then
            MsgBox "The name " & Me.checktype & " has already been submitted", vbInformation
            Exit Sub
        End If
        Me.check_name4 = Me.checktype

Case 5
        If Me.checktype = Me.check_name1 Or Me.checktype Or me.check_name2 or me.check_name3 = Me.check_name4 Then
            MsgBox "The name " & Me.checktype & " has already been submitted", vbInformation
            Exit Sub
        End If
        Me.check_name5 = Me.checktype

Case 6
        If Me.checktype = Me.check_name1 Or Me.checktype Or me.check_name2 or me.check_name3 Or me.check_name4 = Me.check_name5 Then
            MsgBox "The name " & Me.checktype & " has already been submitted", vbInformation
            Exit Sub
        End If
        Me.check_name6 = Me.checktype


Case 7
        If Me.checktype = Me.check_name1 Or Me.checktype Or me.check_name2 or me.check_name3 Or me.check_name4 Or me.check_name5 = Me.check_name6 Then
            MsgBox "The name " & Me.checktype & " has already been submitted", vbInformation
            Exit Sub
        End If
        Me.check_name7 = Me.checktype

Case 8
        If Me.checktype = Me.check_name1 Or Me.checktype Or me.check_name2 or me.check_name3 Or me.check_name4 Or me.check_name5 Or me.check_name6 = Me.check_name7 Then
            MsgBox "The name " & Me.checktype & " has already been submitted", vbInformation
            Exit Sub
        End If
        Me.check_name8 = Me.checktype

Case 9
        If Me.checktype = Me.check_name1 Or Me.checktype Or me.check_name2 or me.check_name3 Or me.check_name4 Or me.check_name5 Or me.check_name6 or me.check_name7 = Me.check_name8 Then
            MsgBox "The name " & Me.checktype & " has already been submitted", vbInformation
            Exit Sub
        End If
        Me.check_name9 = Me.checktype

Case 10
        If Me.checktype = Me.check_name1 Or Me.checktype Or me.check_name2 or me.check_name3 Or me.check_name4 Or me.check_name5 Or me.check_name6 or me.check_name7 or me.check_name8 = Me.check_name9 Then
            MsgBox "The name " & Me.checktype & " has already been submitted", vbInformation
            Exit Sub
        End If
        Me.check_name10 = Me.checktype

Case 11
        If Me.checktype = Me.check_name1 Or Me.checktype Or me.check_name2 or me.check_name3 Or me.check_name4 Or me.check_name5 Or me.check_name6 or me.check_name7 or me.check_name8 or me.check_name9 = Me.check_name10 Then
            MsgBox "The name " & Me.checktype & " has already been submitted", vbInformation
            Exit Sub
        End If
        Me.check_name11 = Me.checktype

Case 12
        If Me.checktype = Me.check_name1 Or Me.checktype Or me.check_name2 or me.check_name3 Or me.check_name4 Or me.check_name5 Or me.check_name6 or me.check_name7 or me.check_name8 or me.check_name9 or me.check_name10 = Me.check_name11 Then
            MsgBox "The name " & Me.checktype & " has already been submitted", vbInformation
            Exit Sub
        End If
        Me.check_name12 = Me.checktype

Case 13
        If Me.checktype = Me.check_name1 Or Me.checktype Or me.check_name2 or me.check_name3 Or me.check_name4 Or me.check_name5 Or me.check_name6 or me.check_name7 or me.check_name8 or me.check_name9 or me.check_name10 or me.check_name11 = Me.check_name12 Then
            MsgBox "The name " & Me.checktype & " has already been submitted", vbInformation
            Exit Sub
        End If
        Me.check_name13 = Me.checktype

Case 14
        If Me.checktype = Me.check_name1 Or Me.checktype Or me.check_name2 or me.check_name3 Or me.check_name4 Or me.check_name5 Or me.check_name6 or me.check_name7 or me.check_name8 or me.check_name9 or me.check_name10 or me.check_name11 or me.check_name12 = Me.check_name13 Then
            MsgBox "The name " & Me.checktype & " has already been submitted", vbInformation
            Exit Sub
        End If
        Me.check_name14 = Me.checktype

Case 15
        If Me.checktype = Me.check_name1 Or Me.checktype Or me.check_name2 or me.check_name3 Or me.check_name4 Or me.check_name5 Or me.check_name6 or me.check_name7 or me.check_name8 or me.check_name9 or me.check_name10 or me.check_name11 or me.check_name12 or me.check_name13 = Me.check_name14 Then
            MsgBox "The name " & Me.checktype & " has already been submitted", vbInformation
            Exit Sub
        End If
        Me.check_name14 = Me.checktype

End Select

End Sub

Everything is fine up until here, but after this code just get the run-time error:
Code: 
Select Case intCheckName 'check preceding check_Name fields do not equal current name
    
Case 1
        Me.check_name1 = Me.checktype
    
Case 2
        If Me.checktype = Me.check_name1 Then 'matches Me.check_Name1
            MsgBox "The name " & Me.checktype & " has already been submitted", vbInformation
            Exit Sub
        End If
        Me.check_name2 = Me.checktype
    
Case 3
        If Me.checktype = Me.check_name1 Or Me.checktype = Me.check_name2 Then
            MsgBox "The name " & Me.checktype & " has already been submitted", vbInformation
            Exit Sub
        End If
        Me.check_name3 = Me.checktype

Regards
Tor Fey
 
isladogs

isladogs

MVP / VIP
Local time
Today, 02:00
Joined
Jan 14, 2017
Messages
18,235
Your select case statement is even more convoluted & won't do what you want.
You've added a case 15!
What do you think the bit in red is checking?

Code: 
Case 15
        [B][COLOR="Red"]If Me.checktype = Me.check_name1 Or Me.checktype Or me.check_name2 or me.check_name3 Or me.check_name4 Or me.check_name5 Or me.check_name6 or me.check_name7 or me.check_name8 or me.check_name9 or me.check_name10 or me.check_name11 or me.check_name12 or me.check_name13 = Me.check_name14 [/COLOR][/B]Then
            MsgBox "The name " & Me.checktype & " has already been submitted", vbInformation
            Exit Sub
        End If
        Me.check_name14 = Me.checktype

Have you tried doing a loop instead?
 
T

Tor_Fey

Registered User.
Local time
Today, 02:00
Joined
Feb 8, 2013
Messages
121
Hi Ridders;

Case 15 wasn't supposed to be added, it was something i was playing with, apologies.

ridders said:
Your select case statement is even more convoluted & won't do what you want.
You've added a case 15!
What do you think the bit in red is checking?

Code: 
Case 15
        [B][COLOR="Red"]If Me.checktype = Me.check_name1 Or Me.checktype Or me.check_name2 or me.check_name3 Or me.check_name4 Or me.check_name5 Or me.check_name6 or me.check_name7 or me.check_name8 or me.check_name9 or me.check_name10 or me.check_name11 or me.check_name12 or me.check_name13 = Me.check_name14 [/COLOR][/B]Then
            MsgBox "The name " & Me.checktype & " has already been submitted", vbInformation
            Exit Sub
        End If
        Me.check_name14 = Me.checktype

Have you tried doing a loop instead?
Click to expand...
 
isladogs

isladogs

MVP / VIP
Local time
Today, 02:00
Joined
Jan 14, 2017
Messages
18,235
You have done equivalents to the bit in red in all the other case statements.
What do you think they are checking?

Loop?
 
T

Tor_Fey

Registered User.
Local time
Today, 02:00
Joined
Feb 8, 2013
Messages
121
Hi ridders;

I was hoping they would check the preceding check_Name fields do not equal current name in the combo box.

Is what i have written not correct then?
 
isladogs

isladogs

MVP / VIP
Local time
Today, 02:00
Joined
Jan 14, 2017
Messages
18,235
I was hoping they would check the preceding check_Name fields do not equal current name in the combo box.

Is what i have written not correct then?
Click to expand...

I'm not sure what they'll do but I'm fairly sure it won't check that

Something like this may work though I expect it will need further tweaking

Code: 
Dim I As Integer

Dim strCheckName As String
strCheckName = Me.check_name

For I = 1 to 14
	If Nz(strCheckName(" & I & "), 0) = 0 Then 'apply selected name 
    	intCheckName =I
Next I
 
T

Tor_Fey

Registered User.
Local time
Today, 02:00
Joined
Feb 8, 2013
Messages
121
Hi Ridders;

I wanted to thankyou for your help on this; i finally managed to revisit it, and resolved with the following code:

Code: 
Private Sub checktype_AfterUpdate()
Dim intCheckName As Integer

intCheckName = 1

If Nz(Me.check_name1, 0) = 0 Then 'apply selected name to check_Name1
    intCheckName = 1
ElseIf Nz(Me.check_name2, 0) = 0 Then 'apply selected name to check_Name2
    intCheckName = 2
ElseIf Nz(Me.check_name3, 0) = 0 Then 'apply selected name to check_Name3
    intCheckName = 3
ElseIf Nz(Me.check_name4, 0) = 0 Then 'apply selected name to check_Name4
    intCheckName = 4
ElseIf Nz(Me.check_name5, 0) = 0 Then 'apply selected name to check_Name5
    intCheckName = 5
ElseIf Nz(Me.check_name6, 0) = 0 Then 'apply selected name to check_Name6
    intCheckName = 6
ElseIf Nz(Me.check_name7, 0) = 0 Then 'apply selected name to check_Name7
    intCheckName = 7
ElseIf Nz(Me.check_name8, 0) = 0 Then 'apply selected name to check_Name8
    intCheckName = 8
ElseIf Nz(Me.check_name9, 0) = 0 Then 'apply selected name to check_Name9
    intCheckName = 9
ElseIf Nz(Me.check_name10, 0) = 0 Then 'apply selected name to check_Name10
    intCheckName = 10
ElseIf Nz(Me.check_name11, 0) = 0 Then 'apply selected name to check_Name11
    intCheckName = 11
ElseIf Nz(Me.check_name12, 0) = 0 Then 'apply selected name to check_Name12
    intCheckName = 12
ElseIf Nz(Me.check_name13, 0) = 0 Then 'apply selected name to check_Name13
    intCheckName = 13
ElseIf Nz(Me.check_name14, 0) = 0 Then 'apply selected name to check_Name14
    intCheckName = 14
Else 'all 14 check_Names contain a value
    MsgBox "All Benefit Types selected", vbInformation
    Exit Sub
End If

Select Case intCheckName 'check preceding check_Name fields do not equal current name

Case 1
        Me.check_name1 = Me.checktype
        Me.warning.Visible = True
        

Case 2
        If Me.checktype = Me.check_name1 Then 'matches Me.check_Name1
            MsgBox "The name " & Me.checktype & " has already been submitted", vbInformation
            Exit Sub
        End If
        Me.check_name2 = Me.checktype
    
Case 3
        If Me.checktype = Me.check_name1 Or Me.checktype = Me.check_name2 Then
            MsgBox "The name " & Me.checktype & " has already been submitted", vbInformation
            Exit Sub
        End If
        Me.check_name3 = Me.checktype
        
Case 4
        If Me.checktype = Me.check_name1 Or Me.checktype = Me.check_name2 Or Me.checktype = Me.check_name3 Then
            MsgBox "The name " & Me.checktype & " has already been submitted", vbInformation
            Exit Sub
        End If
        Me.check_name4 = Me.checktype

Case 5
        If Me.checktype = Me.check_name1 Or Me.checktype = Me.check_name2 Or Me.checktype = Me.check_name3 Or Me.checktype = Me.check_name4 Then
            MsgBox "The name " & Me.checktype & " has already been submitted", vbInformation
            Exit Sub
        End If
        Me.check_name5 = Me.checktype
        
Case 6
        If Me.checktype = Me.check_name1 Or Me.checktype = Me.check_name2 Or Me.checktype = Me.check_name3 Or Me.checktype = Me.check_name4 Or Me.checktype = Me.check_name5 Then
            MsgBox "The name " & Me.checktype & " has already been submitted", vbInformation
            Exit Sub
        End If
        Me.check_name6 = Me.checktype
        
    
Case 7
        If Me.checktype = Me.check_name1 Or Me.checktype = Me.check_name2 Or Me.checktype = Me.check_name3 Or Me.checktype = Me.check_name4 Or Me.checktype = Me.check_name5 Or Me.checktype = Me.check_name6 Then
            MsgBox "The name " & Me.checktype & " has already been submitted", vbInformation
            Exit Sub
        End If
        Me.check_name7 = Me.checktype
        
Case 8
        If Me.checktype = Me.check_name1 Or Me.checktype = Me.check_name2 Or Me.checktype = Me.check_name3 Or Me.checktype = Me.check_name4 Or Me.checktype = Me.check_name5 Or Me.checktype = Me.check_name6 Or Me.checktype = Me.check_name7 Then
            MsgBox "The name " & Me.checktype & " has already been submitted", vbInformation
            Exit Sub
        End If
        Me.check_name8 = Me.checktype
        

Case 9
        If Me.checktype = Me.check_name1 Or Me.checktype = Me.check_name2 Or Me.checktype = Me.check_name3 Or Me.checktype = Me.check_name4 Or Me.checktype = Me.check_name5 Or Me.checktype = Me.check_name6 Or Me.checktype = Me.check_name7 Or Me.checktype = Me.check_name8 Then
            MsgBox "The name " & Me.checktype & " has already been submitted", vbInformation
            Exit Sub
        End If
        Me.check_name9 = Me.checktype
        

Case 10
        If Me.checktype = Me.check_name1 Or Me.checktype = Me.check_name2 Or Me.checktype = Me.check_name3 Or Me.checktype = Me.check_name4 Or Me.checktype = Me.check_name5 Or Me.checktype = Me.check_name6 Or Me.checktype = Me.check_name7 Or Me.checktype = Me.check_name8 Or Me.checktype = Me.check_name9 Then
            MsgBox "The name " & Me.checktype & " has already been submitted", vbInformation
            Exit Sub
        End If
        Me.check_name10 = Me.checktype
        
Case 11
        If Me.checktype = Me.check_name1 Or Me.checktype = Me.check_name2 Or Me.checktype = Me.check_name3 Or Me.checktype = Me.check_name4 Or Me.checktype = Me.check_name5 Or Me.checktype = Me.check_name6 Or Me.checktype = Me.check_name7 Or Me.checktype = Me.check_name8 Or Me.checktype = Me.check_name9 Or Me.checktype = Me.check_name10 Then
            MsgBox "The name " & Me.checktype & " has already been submitted", vbInformation
            Exit Sub
        End If
        Me.check_name11 = Me.checktype
        
Case 12
        If Me.checktype = Me.check_name1 Or Me.checktype = Me.check_name2 Or Me.checktype = Me.check_name3 Or Me.checktype = Me.check_name4 Or Me.checktype = Me.check_name5 Or Me.checktype = Me.check_name6 Or Me.checktype = Me.check_name7 Or Me.checktype = Me.check_name8 Or Me.checktype = Me.check_name9 Or Me.checktype = Me.check_name10 Or Me.checktype = Me.check_name11 Then
            MsgBox "The name " & Me.checktype & " has already been submitted", vbInformation
            Exit Sub
        End If
        Me.check_name12 = Me.checktype
        

Case 13
        If Me.checktype = Me.check_name1 Or Me.checktype = Me.check_name2 Or Me.checktype = Me.check_name3 Or Me.checktype = Me.check_name4 Or Me.checktype = Me.check_name5 Or Me.checktype = Me.check_name6 Or Me.checktype = Me.check_name7 Or Me.checktype = Me.check_name8 Or Me.checktype = Me.check_name9 Or Me.checktype = Me.check_name10 Or Me.checktype = Me.check_name11 Or Me.checktype = Me.check_name12 Then
            MsgBox "The name " & Me.checktype & " has already been submitted", vbInformation
            Exit Sub
        End If
        Me.check_name13 = Me.checktype
        
Case 14
        If Me.checktype = Me.check_name1 Or Me.checktype = Me.check_name2 Or Me.checktype = Me.check_name3 Or Me.checktype = Me.check_name4 Or Me.checktype = Me.check_name5 Or Me.checktype = Me.check_name6 Or Me.checktype = Me.check_name7 Or Me.checktype = Me.check_name8 Or Me.checktype = Me.check_name9 Or Me.checktype = Me.check_name10 Or Me.checktype = Me.check_name11 Or Me.checktype = Me.check_name12 Or Me.checktype = Me.check_name13 Then
            MsgBox "The name " & Me.checktype & " has already been submitted", vbInformation
            Exit Sub
        End If
        Me.check_name14 = Me.checktype
        
        
Case 15
        If Me.checktype = Me.check_name1 Or Me.checktype = Me.check_name2 Or Me.checktype = Me.check_name3 Or Me.checktype = Me.check_name4 Or Me.checktype = Me.check_name5 Or Me.checktype = Me.check_name6 Or Me.checktype = Me.check_name7 Or Me.checktype = Me.check_name8 Or Me.checktype = Me.check_name9 Or Me.checktype = Me.check_name10 Or Me.checktype = Me.check_name11 Or Me.checktype = Me.check_name12 Or Me.checktype = Me.check_name13 Or Me.checktype = Me.check_name14 Then
            MsgBox "The name " & Me.checktype & " has already been submitted", vbInformation
            Exit Sub
        End If
        
    

    End Select

End Sub

I think i spend to long in one day on it, and got annoyed.

Kind Regards
Tor Fey

ridders said:
I'm not sure what they'll do but I'm fairly sure it won't check that

Something like this may work though I expect it will need further tweaking

Code: 
Dim I As Integer

Dim strCheckName As String
strCheckName = Me.check_name

For I = 1 to 14
	If Nz(strCheckName(" & I & "), 0) = 0 Then 'apply selected name 
    	intCheckName =I
Next I
Click to expand...
 
isladogs

isladogs

MVP / VIP
Local time
Today, 02:00
Joined
Jan 14, 2017
Messages
18,235
I'm glad you got it to work but its still seems very convoluted
Did you try just using the loop idea?

Code: 
Dim I As Integer

Dim strCheckName As String
strCheckName = Me.check_name

For I = 1 to 14
	If Nz(strCheckName(" & I & "), 0) = 0 Then 'apply selected name 
    	intCheckName =I
Next I
 
Minty

Minty

AWF VIP
Local time
Today, 02:00
Joined
Jul 26, 2013
Messages
10,371
I'd agree with Ridders - this seems badly thought out. Whenever you see lots of comparisons like this it suggests to me that the data and results should be stored in a table and queried.

You can then have as many comparisons as you need and only need to update the table not the code when things change.
 
You must log in or register to reply here.

Similar threads

N
Solved Progress meter for reports & queries in MS Access
Replies
16
Views
273
tvanstiphout
T
N
Caching recordset in MS Access VBA
Replies
0
Views
160
nector
N
N
Solved Record set too slow with SQL server Cloud & Parameters not working
Replies
15
Views
424
cheekybuddha
cheekybuddha
C
Select Case Textbox
Replies
7
Views
252
Pat Hartman
P
oxicottin
Solved Multiselect listbox loop showing there isn't data
Replies
4
Views
258
pbaldy
pbaldy

Users who are viewing this thread

Total: 1 (members: 0, guests: 1)
Top Bottom