Check Duplicate with VBA - microsoft.public.access.formscoding

Dear all, Can I do check duplicate using VBA when user enter data in a certain field? If the data that tuser entered was already in the system, give a message 'Duplicate data' and the user have to enter a new data. Thank you in advance. KT -- Message posted via AccessMonster.com http://www.accessmonster.com/Uwe/Forums.aspx/access-formscoding/200711/1

Use the control's BeforeUpdate event to check your table's data (code sample below assumes the field is a numeric data type): Private Sub NameOfTextbox_BeforeUpdate(Cancel As Integer) If DCount("*", "NameOfYourTable", "NameOfFieldBeingChecked=" & _ Me.NameOfTextbox.Value) > 0 Then Cancel = True MsgBox "Duplicate data!" Me.NameOfTextbox.Undo End If End Sub -- Ken Snell <MS ACCESS MVP> "KimTong via AccessMonster.com" <u35279@uwe> wrote in message news:7c00cb7a836f1@uwe... > Dear all, > > Can I do check duplicate using VBA when user enter data in a certain > field? > If the data that tuser entered was already in the system, give a message > 'Duplicate data' and the user have to enter a new data. > > Thank you in advance. > > KT > > -- > Message posted via AccessMonster.com > http://www.accessmonster.com/Uwe/Forums.aspx/access-formscoding/200711/1 >

On 30 Nov, 22:12, "Ken Snell $MVP$" <kthsneisll...@ncoomcastt.renaetl> wrote: > Use the control's BeforeUpdate event to check your table's data (code sample > below assumes the field is a numeric data type): > > Private Sub NameOfTextbox_BeforeUpdate(Cancel As Integer) > If DCount("*", "NameOfYourTable", "NameOfFieldBeingChecked=" & _ > Me.NameOfTextbox.Value) > 0 Then > Cancel = True > MsgBox "Duplicate data!" > Me.NameOfTextbox.Undo > End If > End Sub > > -- > > Ken Snell > <MS ACCESS MVP> > > "KimTong via AccessMonster.com" <u35279@uwe> wrote in messagenews:7c00cb7a836f1@uwe... > > > > > > > Dear all, > > > Can I do check duplicate using VBA when user enter data in a certain > > field? > > If the data that tuser entered was already in the system, give a message > > 'Duplicate data' and the user have to enter a new data. > > > Thank you in advance. > > > KT > > > -- > > Message posted via AccessMonster.com > >http://www.accessmonster.com/Uwe/Forums.aspx/access-formscoding/200711/1 Hi Ken, I was trying to use your code to check for duplicates entry. But it's giving to me an error like this "missing query operator..." What I'm doing wrong? Many Thanks. Stefano.

The code I posted uses generic names. Post the code that you're trying to use so that we can see the actual names and how you've constructed the code. -- Ken Snell <MS ACCESS MVP> <riccifs@tin.it> wrote in message news:7f3c7414-f33f-4636-9131-3f80aa6bc395@v4g2000hsf.googlegroups.com... > On 30 Nov, 22:12, "Ken Snell $MVP$" > <kthsneisll...@ncoomcastt.renaetl> wrote: >> Use the control's BeforeUpdate event to check your table's data (code >> sample >> below assumes the field is a numeric data type): >> >> Private Sub NameOfTextbox_BeforeUpdate(Cancel As Integer) >> If DCount("*", "NameOfYourTable", "NameOfFieldBeingChecked=" & _ >> Me.NameOfTextbox.Value) > 0 Then >> Cancel = True >> MsgBox "Duplicate data!" >> Me.NameOfTextbox.Undo >> End If >> End Sub >> >> -- >> >> Ken Snell >> <MS ACCESS MVP> >> >> "KimTong via AccessMonster.com" <u35279@uwe> wrote in >> messagenews:7c00cb7a836f1@uwe... >> >> >> >> >> >> > Dear all, >> >> > Can I do check duplicate using VBA when user enter data in a certain >> > field? >> > If the data that tuser entered was already in the system, give a >> > message >> > 'Duplicate data' and the user have to enter a new data. >> >> > Thank you in advance. >> >> > KT >> >> > -- >> > Message posted via AccessMonster.com >> >http://www.accessmonster.com/Uwe/Forums.aspx/access-formscoding/200711/1 > > Hi Ken, > I was trying to use your code to check for duplicates entry. But it's > giving to me an error like this "missing query operator..." > What I'm doing wrong? > > Many Thanks. > Stefano.

On 1 Dic, 17:48, "Ken Snell $MVP$" <kthsneisll...@ncoomcastt.renaetl> wrote: > The code I posted uses generic names. Post the code that you're trying to > use so that we can see the actual names and how you've constructed the code. > > -- > > Ken Snell > <MS ACCESS MVP> > > <ricc...@tin.it> wrote in message > > news:7f3c7414-f33f-4636-9131-3f80aa6bc395@v4g2000hsf.googlegroups.com... > > > On 30 Nov, 22:12, "Ken Snell $MVP$" > > <kthsneisll...@ncoomcastt.renaetl> wrote: > >> Use the control's BeforeUpdate event to check your table's data (code > >> sample > >> below assumes the field is a numeric data type): > > >> Private Sub NameOfTextbox_BeforeUpdate(Cancel As Integer) > >> If DCount("*", "NameOfYourTable", "NameOfFieldBeingChecked=" & _ > >> Me.NameOfTextbox.Value) > 0 Then > >> Cancel = True > >> MsgBox "Duplicate data!" > >> Me.NameOfTextbox.Undo > >> End If > >> End Sub > > >> -- > > >> Ken Snell > >> <MS ACCESS MVP> > > >> "KimTong via AccessMonster.com" <u35279@uwe> wrote in > >> messagenews:7c00cb7a836f1@uwe... > > >> > Dear all, > > >> > Can I do check duplicate using VBA when user enter data in a certain > >> > field? > >> > If the data that tuser entered was already in the system, give a > >> > message > >> > 'Duplicate data' and the user have to enter a new data. > > >> > Thank you in advance. > > >> > KT > > >> > -- > >> > Message posted via AccessMonster.com > >> >http://www.accessmonster.com/Uwe/Forums.aspx/access-formscoding/200711/1 > > > Hi Ken, > > I was trying to use your code to check for duplicates entry. But it's > > giving to me an error like this "missing query operator..." > > What I'm doing wrong? > > > Many Thanks. > > Stefano. Hi Ken, I copied and pasted your code as you posted and I changed it with my name. Private Sub Ragione_sociale_BeforeUpdate(Cancel As Integer) If DCount("*", "tblEsercenti", "Ragione_sociale=" & _ Me.Ragione_sociale.Value) > 0 Then Cancel = True MsgBox "Duplicate data!" Me.Ragione_sociale.Undo End If End Sub I hope you will understand it, they are in Italian. Many Thanks for your help!, Stefano.

Ciao riccifs@tin.it wrote: ---cut--- prova cosi aggiugendo delle apici singole se Ragione_Sociale � tipo testo: > Private Sub Ragione_sociale_BeforeUpdate(Cancel As Integer) If Not IsNull(DLookup("[Ragione Sociale]", "tblEsercenti", _ "[Ragione sociale]=" & Chr$(34) & Me.Ragione_sociale.Value & Chr$(34))) _ And Me.Ragione_sociale.Value <> Nz(Ragione_sociale.Value.OldValue) Then Cancel = True MsgBox "Duplicate data!" Me.Ragione_sociale.Undo End If > End Sub Oppure dai un occhiata qui � il sito da cui ho appreso il codice suddetto: http://www.donkarl.com/it/FAQ/FAQ4Maschere.htm#4.25 > > I hope you will understand it, they are in Italian. > > Many Thanks for your help!, > Stefano. sei Italiano, allora posta su: Microsoft.public.it.office.access oppure it.comp.appl.access sono due ottimi NewsGroup in italiano. -- Ciao Geppo

On 1 Dic, 18:29, "geppo" <c...@tin.it.invalid> wrote: > Ciao ricc...@tin.it wrote: > > ---cut--- > > prova cosi aggiugendo delle apici singole se Ragione_Sociale =E8 tipo test= o: > > > Private Sub Ragione_sociale_BeforeUpdate(Cancel As Integer) > > If Not IsNull(DLookup("[Ragione Sociale]", "tblEsercenti", _ > "[Ragione sociale]=3D" & Chr$(34) & Me.Ragione_sociale.Value & Chr$(34)= )) _ > And Me.Ragione_sociale.Value <> Nz(Ragione_sociale.Value.OldValue) Th= en > Cancel =3D True > MsgBox "Duplicate data!" > Me.Ragione_sociale.Undo > End If > > > End Sub > > Oppure dai un occhiata qui =E8 il sito da cui ho appreso il codice suddett= o: > > http://www.donkarl.com/it/FAQ/FAQ4Maschere.htm#4.25 > > > > > I hope you will understand it, they are in Italian. > > > Many Thanks for your help!, > > Stefano. > > sei Italiano, allora posta su: > > Microsoft.public.it.office.access > > oppure > > it.comp.appl.access > > sono due ottimi NewsGroup in italiano. > > -- > Ciao > Geppo Ciao Geppo, grazie della tua risposta, ma mi da errore 424 oggetto richiesto... che faccio! Stefano.

Ciao riccifs@tin.it wrote: > On 1 Dic, 18:29, "geppo" <c...@tin.it.invalid> wrote: >> Ciao ricc...@tin.it wrote: >> >> ---cut--- >> >> prova cosi aggiugendo delle apici singole se Ragione_Sociale � tipo >> testo: >> >>> Private Sub Ragione_sociale_BeforeUpdate(Cancel As Integer) >> >> If Not IsNull(DLookup("[Ragione Sociale]", "tblEsercenti", _ >> "[Ragione sociale]=" & Chr$(34) & Me.Ragione_sociale.Value & >> Chr$(34))) _ And Me.Ragione_sociale.Value <> >> Nz(Ragione_sociale.Value.OldValue) Then Cancel = True >> MsgBox "Duplicate data!" >> Me.Ragione_sociale.Undo >> End If >> >>> End Sub >> >> Oppure dai un occhiata qui � il sito da cui ho appreso il codice >> suddetto: >> >> http://www.donkarl.com/it/FAQ/FAQ4Maschere.htm#4.25 >> >> >> >>> I hope you will understand it, they are in Italian. >> >>> Many Thanks for your help!, >>> Stefano. >> >> sei Italiano, allora posta su: >> >> Microsoft.public.it.office.access >> >> oppure >> >> it.comp.appl.access >> >> sono due ottimi NewsGroup in italiano. >> >> -- >> Ciao >> Geppo > > Ciao Geppo, > grazie della tua risposta, ma mi da errore 424 oggetto richiesto... > che faccio! > > Stefano. In che punto del codice ti da l'errore? Comunque accertati che i nomi dei controlli siano scritti in modo corretto. -- Ciao geppo

On 1 Dic, 19:41, "geppo" <c...@tin.it.invalid> wrote: > Ciao ricc...@tin.it wrote: > > On 1 Dic, 18:29, "geppo" <c...@tin.it.invalid> wrote: > >> Ciao ricc...@tin.it wrote: > > >> ---cut--- > > >> prova cosi aggiugendo delle apici singole se Ragione_Sociale =E8 tipo > >> testo: > > >>> Private Sub Ragione_sociale_BeforeUpdate(Cancel As Integer) > > >> If Not IsNull(DLookup("[Ragione Sociale]", "tblEsercenti", _ > >> "[Ragione sociale]=3D" & Chr$(34) & Me.Ragione_sociale.Value & > >> Chr$(34))) _ And Me.Ragione_sociale.Value <> > >> Nz(Ragione_sociale.Value.OldValue) Then Cancel =3D True > >> MsgBox "Duplicate data!" > >> Me.Ragione_sociale.Undo > >> End If > > >>> End Sub > > >> Oppure dai un occhiata qui =E8 il sito da cui ho appreso il codice > >> suddetto: > > >>http://www.donkarl.com/it/FAQ/FAQ4Maschere.htm#4.25 > > >>> I hope you will understand it, they are in Italian. > > >>> Many Thanks for your help!, > >>> Stefano. > > >> sei Italiano, allora posta su: > > >> Microsoft.public.it.office.access > > >> oppure > > >> it.comp.appl.access > > >> sono due ottimi NewsGroup in italiano. > > >> -- > >> Ciao > >> Geppo > > > Ciao Geppo, > > grazie della tua risposta, ma mi da errore 424 oggetto richiesto... > > che faccio! > > > Stefano. > > In che punto del codice ti da l'errore? > > Comunque accertati che i nomi dei controlli siano scritti in modo corretto= .. > > -- > Ciao > geppo In questo punto: If Not IsNull(DLookup("[Ragione_sociale]", "tblEsercenti", _ "[Ragione_sociale]=3D" & Chr$(34) & Me.Ragione_sociale.Value & Chr $(34))) _ And Me.Ragione_sociale.Value <> Nz(Ragione_sociale.Value.OldValue) Then Per i nomi sui controlli credo non siano scritti bene... boo!? Grazie comunque, Stefano.

On 1 Dic, 20:07, ricc...@tin.it wrote: > On 1 Dic, 19:41, "geppo" <c...@tin.it.invalid> wrote: > > > > > Ciao ricc...@tin.it wrote: > > > On 1 Dic, 18:29, "geppo" <c...@tin.it.invalid> wrote: > > >> Ciao ricc...@tin.it wrote: > > > >> ---cut--- > > > >> prova cosi aggiugendo delle apici singole se Ragione_Sociale =E8 tipo= > > >> testo: > > > >>> Private Sub Ragione_sociale_BeforeUpdate(Cancel As Integer) > > > >> If Not IsNull(DLookup("[Ragione Sociale]", "tblEsercenti", _ > > >> "[Ragione sociale]=3D" & Chr$(34) & Me.Ragione_sociale.Value & > > >> Chr$(34))) _ And Me.Ragione_sociale.Value <> > > >> Nz(Ragione_sociale.Value.OldValue) Then Cancel =3D True > > >> MsgBox "Duplicate data!" > > >> Me.Ragione_sociale.Undo > > >> End If > > > >>> End Sub > > > >> Oppure dai un occhiata qui =E8 il sito da cui ho appreso il codice > > >> suddetto: > > > >>http://www.donkarl.com/it/FAQ/FAQ4Maschere.htm#4.25 > > > >>> I hope you will understand it, they are in Italian. > > > >>> Many Thanks for your help!, > > >>> Stefano. > > > >> sei Italiano, allora posta su: > > > >> Microsoft.public.it.office.access > > > >> oppure > > > >> it.comp.appl.access > > > >> sono due ottimi NewsGroup in italiano. > > > >> -- > > >> Ciao > > >> Geppo > > > > Ciao Geppo, > > > grazie della tua risposta, ma mi da errore 424 oggetto richiesto... > > > che faccio! > > > > Stefano. > > > In che punto del codice ti da l'errore? > > > Comunque accertati che i nomi dei controlli siano scritti in modo corret= to. > > > -- > > Ciao > > geppo > > In questo punto: > > If Not IsNull(DLookup("[Ragione_sociale]", "tblEsercenti", _ > "[Ragione_sociale]=3D" & Chr$(34) & Me.Ragione_sociale.Value & Chr > $(34))) _ > And Me.Ragione_sociale.Value <> > Nz(Ragione_sociale.Value.OldValue) Then > > Per i nomi sui controlli credo non siano scritti bene... boo!? > > Grazie comunque, > Stefano. No, no! ho risolto... scusa ora mi funziona ho tolto le parentisi quadre =E8 ora va bene. Ti ringrazio veramente molto, per il tuo aiuto. Ciao Geppo! Stefano.

Ciao riccifs@tin.it wrote: > On 1 Dic, 20:07, ricc...@tin.it wrote: >> On 1 Dic, 19:41, "geppo" <c...@tin.it.invalid> wrote: >> >> >> >>> Ciao ricc...@tin.it wrote: >>>> On 1 Dic, 18:29, "geppo" <c...@tin.it.invalid> wrote: >>>>> Ciao ricc...@tin.it wrote: >> >>>>> ---cut--- >> >>>>> prova cosi aggiugendo delle apici singole se Ragione_Sociale � >>>>> tipo testo: >> >>>>>> Private Sub Ragione_sociale_BeforeUpdate(Cancel As Integer) >> >>>>> If Not IsNull(DLookup("[Ragione Sociale]", "tblEsercenti", _ >>>>> "[Ragione sociale]=" & Chr$(34) & Me.Ragione_sociale.Value & >>>>> Chr$(34))) _ And Me.Ragione_sociale.Value <> >>>>> Nz(Ragione_sociale.Value.OldValue) Then Cancel = True >>>>> MsgBox "Duplicate data!" >>>>> Me.Ragione_sociale.Undo >>>>> End If >> >>>>>> End Sub >> >>>>> Oppure dai un occhiata qui � il sito da cui ho appreso il codice >>>>> suddetto: >> >>>>> http://www.donkarl.com/it/FAQ/FAQ4Maschere.htm#4.25 >> >>>>>> I hope you will understand it, they are in Italian. >> >>>>>> Many Thanks for your help!, >>>>>> Stefano. >> >>>>> sei Italiano, allora posta su: >> >>>>> Microsoft.public.it.office.access >> >>>>> oppure >> >>>>> it.comp.appl.access >> >>>>> sono due ottimi NewsGroup in italiano. >> >>>>> -- >>>>> Ciao >>>>> Geppo >> >>>> Ciao Geppo, >>>> grazie della tua risposta, ma mi da errore 424 oggetto richiesto... >>>> che faccio! >> >>>> Stefano. >> >>> In che punto del codice ti da l'errore? >> >>> Comunque accertati che i nomi dei controlli siano scritti in modo >>> corretto. >> >>> -- >>> Ciao >>> geppo >> >> In questo punto: >> >> If Not IsNull(DLookup("[Ragione_sociale]", "tblEsercenti", _ >> "[Ragione_sociale]=" & Chr$(34) & Me.Ragione_sociale.Value & Chr >> $(34))) _ >> And Me.Ragione_sociale.Value <> >> Nz(Ragione_sociale.Value.OldValue) Then >> >> Per i nomi sui controlli credo non siano scritti bene... boo!? >> >> Grazie comunque, >> Stefano. > > No, no! ho risolto... scusa ora mi funziona ho tolto le parentisi > quadre � ora va bene. > Ti ringrazio veramente molto, per il tuo aiuto. Di nulla, figurati. p.s.: se hai bisogno posta sui newsgroup che ti ho segnalato, ci sono ragazzi davvero forti. > > Ciao Geppo! > Stefano. Ciao Stefano Geppo

I do not understand Italian, so I do not know if you found an answer in this thread from your conversation with geppo or not? -- Ken Snell <MS ACCESS MVP> <riccifs@tin.it> wrote in message news:180f0b28-fa86-4e50-a646-b7e5929a5407@b15g2000hsa.googlegroups.com... > On 1 Dic, 17:48, "Ken Snell $MVP$" > <kthsneisll...@ncoomcastt.renaetl> wrote: >> The code I posted uses generic names. Post the code that you're trying to >> use so that we can see the actual names and how you've constructed the >> code. >> >> -- >> >> Ken Snell >> <MS ACCESS MVP> >> >> <ricc...@tin.it> wrote in message >> >> news:7f3c7414-f33f-4636-9131-3f80aa6bc395@v4g2000hsf.googlegroups.com... >> >> > On 30 Nov, 22:12, "Ken Snell $MVP$" >> > <kthsneisll...@ncoomcastt.renaetl> wrote: >> >> Use the control's BeforeUpdate event to check your table's data (code >> >> sample >> >> below assumes the field is a numeric data type): >> >> >> Private Sub NameOfTextbox_BeforeUpdate(Cancel As Integer) >> >> If DCount("*", "NameOfYourTable", "NameOfFieldBeingChecked=" & _ >> >> Me.NameOfTextbox.Value) > 0 Then >> >> Cancel = True >> >> MsgBox "Duplicate data!" >> >> Me.NameOfTextbox.Undo >> >> End If >> >> End Sub >> >> >> -- >> >> >> Ken Snell >> >> <MS ACCESS MVP> >> >> >> "KimTong via AccessMonster.com" <u35279@uwe> wrote in >> >> messagenews:7c00cb7a836f1@uwe... >> >> >> > Dear all, >> >> >> > Can I do check duplicate using VBA when user enter data in a certain >> >> > field? >> >> > If the data that tuser entered was already in the system, give a >> >> > message >> >> > 'Duplicate data' and the user have to enter a new data. >> >> >> > Thank you in advance. >> >> >> > KT >> >> >> > -- >> >> > Message posted via AccessMonster.com >> >> >http://www.accessmonster.com/Uwe/Forums.aspx/access-formscoding/200711/1 >> >> > Hi Ken, >> > I was trying to use your code to check for duplicates entry. But it's >> > giving to me an error like this "missing query operator..." >> > What I'm doing wrong? >> >> > Many Thanks. >> > Stefano. > > Hi Ken, > I copied and pasted your code as you posted and I changed it with my > name. > > Private Sub Ragione_sociale_BeforeUpdate(Cancel As Integer) > If DCount("*", "tblEsercenti", "Ragione_sociale=" & _ > Me.Ragione_sociale.Value) > 0 Then > Cancel = True > MsgBox "Duplicate data!" > Me.Ragione_sociale.Undo > End If > End Sub > > I hope you will understand it, they are in Italian. > > Many Thanks for your help!, > Stefano.

On 2 Dic, 00:23, "Ken Snell $MVP$" <kthsneisll...@ncoomcastt.renaetl> wrote: > I do not understand Italian, so I do not know if you found an answer in this > thread from your conversation withgeppoor not? > > -- > > Ken Snell > <MS ACCESS MVP> > > <ricc...@tin.it> wrote in message > > news:180f0b28-fa86-4e50-a646-b7e5929a5407@b15g2000hsa.googlegroups.com... > > > On 1 Dic, 17:48, "Ken Snell $MVP$" > > <kthsneisll...@ncoomcastt.renaetl> wrote: > >> The code I posted uses generic names. Post the code that you're trying to > >> use so that we can see the actual names and how you've constructed the > >> code. > > >> -- > > >> Ken Snell > >> <MS ACCESS MVP> > > >> <ricc...@tin.it> wrote in message > > >>news:7f3c7414-f33f-4636-9131-3f80aa6bc395@v4g2000hsf.googlegroups.com... > > >> > On 30 Nov, 22:12, "Ken Snell $MVP$" > >> > <kthsneisll...@ncoomcastt.renaetl> wrote: > >> >> Use the control's BeforeUpdate event to check your table's data (code > >> >> sample > >> >> below assumes the field is a numeric data type): > > >> >> Private Sub NameOfTextbox_BeforeUpdate(Cancel As Integer) > >> >> If DCount("*", "NameOfYourTable", "NameOfFieldBeingChecked=" & _ > >> >> Me.NameOfTextbox.Value) > 0 Then > >> >> Cancel = True > >> >> MsgBox "Duplicate data!" > >> >> Me.NameOfTextbox.Undo > >> >> End If > >> >> End Sub > > >> >> -- > > >> >> Ken Snell > >> >> <MS ACCESS MVP> > > >> >> "KimTong via AccessMonster.com" <u35279@uwe> wrote in > >> >> messagenews:7c00cb7a836f1@uwe... > > >> >> > Dear all, > > >> >> > Can I do check duplicate using VBA when user enter data in a certain > >> >> > field? > >> >> > If the data that tuser entered was already in the system, give a > >> >> > message > >> >> > 'Duplicate data' and the user have to enter a new data. > > >> >> > Thank you in advance. > > >> >> > KT > > >> >> > -- > >> >> > Message posted via AccessMonster.com > >> >> >http://www.accessmonster.com/Uwe/Forums.aspx/access-formscoding/200711/1 > > >> > Hi Ken, > >> > I was trying to use your code to check for duplicates entry. But it's > >> > giving to me an error like this "missing query operator..." > >> > What I'm doing wrong? > > >> > Many Thanks. > >> > Stefano. > > > Hi Ken, > > I copied and pasted your code as you posted and I changed it with my > > name. > > > Private Sub Ragione_sociale_BeforeUpdate(Cancel As Integer) > > If DCount("*", "tblEsercenti", "Ragione_sociale=" & _ > > Me.Ragione_sociale.Value) > 0 Then > > Cancel = True > > MsgBox "Duplicate data!" > > Me.Ragione_sociale.Undo > > End If > > End Sub > > > I hope you will understand it, they are in Italian. > > > Many Thanks for your help!, > > Stefano. Hi Ken, with the help of Geppo I finally got a solution for my problem. Many thanks the same for your interest about it, I really appreciate that! Bye, Stefano.

Hi Ken, I just to run your script, but the message said "Data Type mismatch" on this part: If DCount("*", "Roger", "AWB=" & _ Me.AWB.Value) > 0 Then I am sure I have the same data type between those 2 fields. Do you know why it happened like that? KF Ken Snell (MVP) wrote: >Use the control's BeforeUpdate event to check your table's data (code sample >below assumes the field is a numeric data type): > >Private Sub NameOfTextbox_BeforeUpdate(Cancel As Integer) >If DCount("*", "NameOfYourTable", "NameOfFieldBeingChecked=" & _ > Me.NameOfTextbox.Value) > 0 Then > Cancel = True > MsgBox "Duplicate data!" > Me.NameOfTextbox.Undo >End If >End Sub > >> Dear all, >> >[quoted text clipped - 6 lines] >> >> KT -- Message posted via AccessMonster.com http://www.accessmonster.com/Uwe/Forums.aspx/access-formscoding/200712/1

Ciao KimTong via AccessMonster.com wrote: > Hi Ken, > > I just to run your script, but the message said "Data Type mismatch" > on this part: > > If DCount("*", "Roger", "AWB=" & _ > Me.AWB.Value) > 0 Then > > I am sure I have the same data type between those 2 fields. Do you > know why it happened like that? > > KF > but AWB that type of data contains? If it is then type text you have to write her/it this way: If DCount("*", "Roger", "AWB='" & Me.AWB.Value &"'") > 0 Then -- Ciao Geppo

It works. Thank you very much Geppo geppo wrote: >> Hi Ken, >> >[quoted text clipped - 8 lines] >> >> KF > >but AWB that type of data contains? > >If it is then type text you have to write her/it this way: > >If DCount("*", "Roger", "AWB='" & Me.AWB.Value &"'") > 0 Then > -- Message posted via AccessMonster.com http://www.accessmonster.com/Uwe/Forums.aspx/access-formscoding/200712/1

Similiar Articles:

Check Duplicate with VBA - microsoft.public.access.formscoding ...
Dear all, Can I do check duplicate using VBA when user enter data in a certain field? If the data that tuser entered was already in the system, give ...

checking duplicate values on data entry - microsoft.public.access ...
Dear all, Can I do check duplicate using VBA when user enter data ... Tricks: Detecting duplicate values (Excel VBA) Check ... Is it possible to check for a duplicate ...

Check For Duplicate Name Before Creating Record - microsoft.public ...
How do I check for a duplicate record?: Access, VBA... Access, and am creating ... have the form check the table to see if a record already exist before adding the ...

Duplicate Check Example - microsoft.public.crm
Compare cells for same values via VBA. - microsoft.public.excel ... Duplicate Check Example - microsoft.public.crm Compare cells for same values via VBA. - microsoft ...

Compact Access Database from Excel via VBA - microsoft.public ...
Compact Access Database from Excel via VBA - microsoft.public ... Check ... eHow.com Removing duplicate data from an array using Visual Basic for Applications (VBA) in ...

search column for duplicate value during data entry - microsoft ...
Check Duplicate with VBA - microsoft ... save in a list, delete duplicate using macro ... Generate GUID, Find ... search column for duplicate value during data entry ...

VB macro using in SAP - microsoft.public.excel.misc
Dear all, Can I do check duplicate using VBA when user ... microsoft ... save in a list, delete duplicate using macro ... ... Example - microsoft.public.crm Duplicate ...

how do I find duplicate information on 2 sheets using a formula ...
4) Use "Automatic Filter" - in the formula column ... paste them into a different range and/or sheet ... Dear all, Can I do check duplicate using VBA when user enter data ...

summing values of duplicate entries - microsoft.public.excel ...
Check Duplicate with VBA - microsoft.public.access.formscoding ... Format duplicate entries - microsoft.public.project Check Duplicate with VBA - microsoft.public.access ...

Compare cells for same values via VBA. - microsoft.public.excel ...
Duplicate Check Example - microsoft.public.crm Duplicate Check Example - microsoft.public.crm Compare cells for same values via VBA. - microsoft.public.excel ...

Delete on Continuous form gives error 2046 - microsoft.public ...
Check Duplicate with VBA - microsoft.public.access.formscoding ... Delete on Continuous form gives error 2046 - microsoft.public ... But it's > > giving to me an error ...

Generate GUID, Find Duplicates, Replace, Rescan - microsoft.public ...
Generate GUID, Find Duplicates, Replace, Rescan - microsoft.public ... Check Duplicate with VBA - microsoft ... save in a list, delete duplicate using macro ...

Find duplicate, save in a list, delete duplicate using macro ...
Check Duplicate with VBA - microsoft.public.access.formscoding ... Find duplicate, save in a list, delete duplicate using macro ... The time now is 09 ... ... for ...

Macro for Finding Duplicate Data Entries - microsoft.public.word ...
Generate GUID, Find Duplicates, Replace, Rescan - microsoft.public ... Check Duplicate with VBA - microsoft ... save in a list, delete duplicate using macro ...

check table for record - microsoft.public.access.formscoding ...
... as the one entered in >the textbox is 0 then you know you are not adding a duplicate ... MS Access VBA check table? - Yahoo! Answers Best Answer: Do a search for the DLookup ...

Display a message box "this entry is a duplicate" ...
Check Duplicate with VBA - microsoft.public.access.formscoding ..... entered was already in the system, give a message 'Duplicate ... Also need to show spell check so I ...

Duplicate value & delete - microsoft.public.access.queries ...
checking duplicate values on data entry - microsoft.public.access ... Check Duplicate with VBA - microsoft ... save in a list, delete duplicate using macro ...

Prevent Duplicates in a field - microsoft.public.access ...
Hi (Access 2003) Is there any way to check that the data typed ... Set validation rule for many fields with vba? - microsoft.public ... Prevent Duplicates in a field ...

Check to see whether a table contains a set of fields already ...
I was looking for VBA >code that will return true or false. Is there a ... php - How to check if a value already exists to avoid duplicates ... How do I check to see if a ...

Deleting Duplicates in Excel - Databases - microsoft.public.excel ...
How to Delete Duplicate Rows by VBA in Excel | eHow.com How to Delete Duplicate ... ... 09 ... ... for Microsoft Excel Find and remove Excel duplicates, check for duplicate ...

VBA Tips & Tricks: Detecting duplicate values (Excel VBA)
Check presence of values in a column/range using Excel VBA Most often a programmer would be given a job of Insert/Update scenarion in EXcel. That is ...

Check Duplicate with VBA
Dear all, Can I do check duplicate using VBA when user enter data in a certain field? If the data that tuser entered was already in the system, give a message

How to Delete Duplicate Rows by VBA in Excel | eHow.com
Microsoft Visual Basic for Applications (VBA) is a user-friendly ... columns of data that you want to compare for duplicate rows. For example, if you want to check ...

How to Find Duplicate Data With Excel VBA | eHow.com
Removing duplicate data from an array using Visual Basic for Applications (VBA) in Excel can be confusing if you ... Check It Out

Excel VBA - Check for Duplicate Records - MS Office forums. More ...
HI, I have two worksheets "PV" & "Register". PV form is to be completed & will be posted to Register when Use executes the macro "PostToRegister".

Excel: Remove Duplicates in Excel. VBA Macros
Back to: Excel VBA. Got any Excel/VBA Questions? Free Excel Help See Also:Duplication Manager. Remove Duplicates With Advanced Filter This method of removing ...

VBA: Is it possible to check for a duplicate entry in a table ...
Microsoft Access Discussion > Modules & VBA ... Hi, this is my first post here, and like most folks, i've got a problem. I'm trying ... Hello Argonak Do a DCount (you ...

VBA check duplicate record - Excel Help Forum
Hi I have this form but i want to ammend it so when the user enters the data and clicks run I want the program to check for duplicate records using a combination of ...

Excel :: Check For Duplicates Using VBA
Check For Duplicates Using VBA I have created a userform that inputs employees names in to a sheet called employee list. It works well, now I want to take it a stage ...

7/24/2012 4:55:53 PM