preventing duplicates but not totally blocking

[chynewalker]

I created this code to pop a box up that will let me know when i have a
duplicate number, however, I want to still be able to write a duplicate entry.

Private Sub OEM_NUMBER_BeforeUpdate(Cancel As Integer)

If DCount("[OEM_NUMBER]", _
"[ATLANTIS]", _
"[OEM_NUMBER] = '" & Me.OEM_NUMBER & "'") Then
MsgBox "This oem number already exists!!!"
Cancel = True
Else 'Do nothing
End If
End Sub

 

[Mike Painter]

I created this code to pop a box up that will let me know when i have
a duplicate number, however, I want to still be able to write a
duplicate entry.

Private Sub OEM_NUMBER_BeforeUpdate(Cancel As Integer)

If DCount("[OEM_NUMBER]", _
"[ATLANTIS]", _
"[OEM_NUMBER] = '" & Me.OEM_NUMBER & "'") Then
MsgBox "This oem number already exists!!!"
Cancel = True
Else 'Do nothing
End If
End Sub

If msgbox("This oem number already exists allow?",vbYesNo, "allow") = False
then
Cancel = True
end if

 

[Douglas J. Steele]

If msgbox("This oem number already exists allow?",vbYesNo, "allow") =
False then
Cancel = True
end if

No, you'd need

If msgbox("This oem number already exists allow?",vbYesNo, "allow") = vbNo
then
Cancel = True
end if

Both vbYes and vbNo, the two possible values the msgbox function would
return in this case, are non-zero, so they'd both be treated as True.

 

[Mike Painter]

No, you'd need

If msgbox("This oem number already exists allow?",vbYesNo, "allow")
= vbNo then
Cancel = True
end if

Both vbYes and vbNo, the two possible values the msgbox function would
return in this case, are non-zero, so they'd both be treated as True.

I'll get back to you as soon as I think of an excuse.

Thanks.

 

[chynewalker]

Private Sub OEM_NUMBER_BeforeUpdate(Cancel As Integer)

If DCount("[OEM_NUMBER]", _
"[ATLANTIS]", _
"[OEM_NUMBER] = '" & Me.OEM_NUMBER & "'") Then
If MsgBox("This OEM already exists!!!" & vbcrlf & "Add it anyway?", vbYesNo)
= vbNo Then
Cancel = True
Else 'Do nothing
End If
End Sub


I just get an compile error when i use this

I created this code to pop a box up that will let me know when i have a
duplicate number, however, I want to still be able to write a duplicate entry.

Private Sub OEM_NUMBER_BeforeUpdate(Cancel As Integer)

If DCount("[OEM_NUMBER]", _
"[ATLANTIS]", _
"[OEM_NUMBER] = '" & Me.OEM_NUMBER & "'") Then
MsgBox "This oem number already exists!!!"
Cancel = True
Else 'Do nothing
End If
End Sub

You need to put the Cancel = True inside another If statement.

e.g.
If MsgBox("This OEM already exists!!!" & vbcrlf & "Add it anyway?", vbYesNo)
= vbNo Then
Cancel = True
Else...

--
Message posted via AccessMonster.com


.

 

[Douglas J. Steele]

Don't know whether you've got a problem with word-wrap or not.

For the line

If MsgBox("This OEM already exists!!!" & vbcrlf & "Add it anyway?", vbYesNo)
= vbNo Then

everything between "If" and "Then" should be on a single line.


--
Doug Steele, Microsoft Access MVP
http://www.AccessMVP.com/DJSteele
(no e-mails, please!)

Private Sub OEM_NUMBER_BeforeUpdate(Cancel As Integer)

If DCount("[OEM_NUMBER]", _
"[ATLANTIS]", _
"[OEM_NUMBER] = '" & Me.OEM_NUMBER & "'") Then
If MsgBox("This OEM already exists!!!" & vbcrlf & "Add it anyway?",
vbYesNo)
= vbNo Then
Cancel = True
Else 'Do nothing
End If
End Sub


I just get an compile error when i use this

I created this code to pop a box up that will let me know when i have a
duplicate number, however, I want to still be able to write a duplicate
entry.

Private Sub OEM_NUMBER_BeforeUpdate(Cancel As Integer)

If DCount("[OEM_NUMBER]", _
"[ATLANTIS]", _
"[OEM_NUMBER] = '" & Me.OEM_NUMBER & "'") Then
MsgBox "This oem number already exists!!!"
Cancel = True
Else 'Do nothing
End If
End Sub

You need to put the Cancel = True inside another If statement.

e.g.
If MsgBox("This OEM already exists!!!" & vbcrlf & "Add it anyway?",
vbYesNo)
= vbNo Then
Cancel = True
Else...

--
Message posted via AccessMonster.com


.

 

[chynewalker]

I fixed the word wrap, but it still get the error 'MB91443-20600"compile
error: block if without end if"

Don't know whether you've got a problem with word-wrap or not.

For the line

If MsgBox("This OEM already exists!!!" & vbcrlf & "Add it anyway?", vbYesNo)
= vbNo Then

everything between "If" and "Then" should be on a single line.


--
Doug Steele, Microsoft Access MVP
http://www.AccessMVP.com/DJSteele
(no e-mails, please!)

Private Sub OEM_NUMBER_BeforeUpdate(Cancel As Integer)

If DCount("[OEM_NUMBER]", _
"[ATLANTIS]", _
"[OEM_NUMBER] = '" & Me.OEM_NUMBER & "'") Then
If MsgBox("This OEM already exists!!!" & vbcrlf & "Add it anyway?",
vbYesNo)
= vbNo Then
Cancel = True
Else 'Do nothing
End If
End Sub


I just get an compile error when i use this

chynewalker wrote:
I created this code to pop a box up that will let me know when i have a
duplicate number, however, I want to still be able to write a duplicate
entry.

Private Sub OEM_NUMBER_BeforeUpdate(Cancel As Integer)

If DCount("[OEM_NUMBER]", _
"[ATLANTIS]", _
"[OEM_NUMBER] = '" & Me.OEM_NUMBER & "'") Then
MsgBox "This oem number already exists!!!"
Cancel = True
Else 'Do nothing
End If
End Sub

You need to put the Cancel = True inside another If statement.

e.g.
If MsgBox("This OEM already exists!!!" & vbcrlf & "Add it anyway?",
vbYesNo)
= vbNo Then
Cancel = True
Else...

--
Message posted via AccessMonster.com


.

.

 

[chynewalker]

Thanks everyone, I got it. I needed to add another "end if" and it works great

 

[Douglas J. Steele]

You've got two If statements, but only one End If. (Sorry I missed that
before)

Private Sub OEM_NUMBER_BeforeUpdate(Cancel As Integer)

If DCount("[OEM_NUMBER]", _
"[ATLANTIS]", _
"[OEM_NUMBER] = '" & Me.OEM_NUMBER & "'") Then

If MsgBox("This OEM already exists!!!" & vbcrlf & _
"Add it anyway?", vbYesNo) = vbNo Then
Cancel = True
Else 'Do nothing
End If

End If

End Sub

or

Private Sub OEM_NUMBER_BeforeUpdate(Cancel As Integer)

If DCount("[OEM_NUMBER]", _
"[ATLANTIS]", _
"[OEM_NUMBER] = '" & Me.OEM_NUMBER & "'") Then

Cancel = ("This OEM already exists!!!" & vbcrlf & _
"Add it anyway?", vbYesNo) = vbNo

End If

End Sub



--
Doug Steele, Microsoft Access MVP
http://www.AccessMVP.com/DJSteele
(no e-mails, please!)

I fixed the word wrap, but it still get the error 'MB91443-20600"compile
error: block if without end if"

Don't know whether you've got a problem with word-wrap or not.

For the line

If MsgBox("This OEM already exists!!!" & vbcrlf & "Add it anyway?",
vbYesNo)
= vbNo Then

everything between "If" and "Then" should be on a single line.


--
Doug Steele, Microsoft Access MVP
http://www.AccessMVP.com/DJSteele
(no e-mails, please!)

Private Sub OEM_NUMBER_BeforeUpdate(Cancel As Integer)

If DCount("[OEM_NUMBER]", _
"[ATLANTIS]", _
"[OEM_NUMBER] = '" & Me.OEM_NUMBER & "'") Then
If MsgBox("This OEM already exists!!!" & vbcrlf & "Add it anyway?",
vbYesNo)
= vbNo Then
Cancel = True
Else 'Do nothing
End If
End Sub


I just get an compile error when i use this



:

chynewalker wrote:
I created this code to pop a box up that will let me know when i have
a
duplicate number, however, I want to still be able to write a
duplicate
entry.

Private Sub OEM_NUMBER_BeforeUpdate(Cancel As Integer)

If DCount("[OEM_NUMBER]", _
"[ATLANTIS]", _
"[OEM_NUMBER] = '" & Me.OEM_NUMBER & "'") Then
MsgBox "This oem number already exists!!!"
Cancel = True
Else 'Do nothing
End If
End Sub

You need to put the Cancel = True inside another If statement.

e.g.
If MsgBox("This OEM already exists!!!" & vbcrlf & "Add it anyway?",
vbYesNo)
= vbNo Then
Cancel = True
Else...

--
Message posted via AccessMonster.com


.

.

 

[chynewalker]

Ok, so the problem with this code is that every number i type in the oem
number field is a duplicate. What did i do wrong?