Recent content by uscitizen

hi, in the code below, the line seems to be giving a2k a bit of a problem: Private Sub MR_Number_BeforeUpdate(Cancel As Integer) Me.RecordsetClone.FindFirst "MR_Number=" & Me!MR_Number If Me.RecordsetClone.NoMatch Then 'do nothing Else Cancel = True MsgBox "WARNING -- A record...

ah, so near, yet so far.... i cobbled together this code: Private Sub MR_Number_BeforeUpdate(Cancel As Integer) Me.RecordsetClone.FindFirst "MR_Number=" & Me!MR_Number If Me.RecordsetClone.NoMatch Then 'do nothing Else Cancel = True MsgBox "WARNING -- A record already exists with...

thanks evalesthy ! two quick questions, what does 'Cancel = True' do up there and i wonder if there's a way to replace the number that was in the "MR_Number" control for the one that was found to be duplicated elsewhere in the table? to recapitulate, once the msgbox is cleared, would it be...

is there some way the value of the CountOfMRNumber could be used in a macro condition to actuate the code i originally drafted which would generate a list of the last name, first name and mi of records having the duplicated mr number? “The philosophy of the school room in one generation will be...

hi cghoga, thanks for the input....what i think you're doing sql-wise is expressing a query that returns the MR_Number that has more than one record. What i think i needed was a listing of those when it is greater than 1 record and to ignore the query when it is just one record. the query would...

terrific phv! this is what we look like now Private Sub MR_Number_BeforeUpdate(Cancel As Integer) Me.RecordsetClone.FindFirst "MR_Number=" & Me!MR_Number If Me.RecordsetClone.NoMatch Then 'do nothing Else Cancel = True MsgBox "WARNING -- A record already exists with this MR...

et voila, phv! but tell me, how can i also prevent the act of closing the msgbox window from moving the record to another record (the next record in the table)? “The philosophy of the school room in one generation will be the philosophy of government in the next." --- Abraham Lincoln

hi, should this work? Private Sub MR_Number_AfterUpdate() Me.RecordsetClone.FindFirst "[MR_Number] = " & [Forms]!["ID Table"]![MR_Number] If Me.RecordsetClone.NoMatch Then 'do nothing Else MsgBox ("WARNING -- A record already exists with this MR Number") End If End Sub “The...

in my case, the field that we need to guard against duplicating is called MR_Number (for Medical Record Number) and is an integer valued field. would this work by using the same string? “The philosophy of the school room in one generation will be the philosophy of government in the next.&quot...

hi, i have a table called "ID Table" which can not have duplicate values of the person's medical record number (MR number), this field not being the last field of a composite PK. I have created a query using the design wizard appearing below and I have added a 'Dummy' field to the table whose...

what i tried to explalin, perhaps imperfectly, is that i want to enhance a form by adding a command button which would have the net effect of emailing a group of usernames a message. the a2k application file (mdb) is on a shared network drive ("I") which all users to whom it would be sent have...

i'm interested in folding in an automatic email capability into my a2k app'n which runs on windows 2000 professional desktops equipped with 'groupwise' (not 'outlook'). the first solution of chickey's looks like it might work, but being the code doesn't mean all that much to me, it'd be great if...

c'est la vie i guess. thanks, for sure for the heads up! “The philosophy of the school room in one generation will be the philosophy of government in the next." --- Abraham Lincoln

i have a form that is 5" wide and that i want to be worked with at that size (not bigger or smaller); it is actuated from a 'switchboard' menu item. it has been paired with a 'tool bar' that has a subset of about 5 commands (called 'screening log'). in its 'menu bar' property the setting is '=1'...

i guess you're on a 4dy/wk sort of thing--it's still very much a thursday o'er here... have fun. “The philosophy of the school room in one generation will be the philosophy of government in the next." --- Abraham Lincoln