Show Record if it already exists

[Floyd7]

Hi,

I have created a customer database with a numeric primary key in the customer table. In my form, if someone enters a customer number that has already been entered, is there a way to call up the record of that customer , rather than just get a message saying it can't be entered.

Thank you.

 

[TheAceMan1]

How are ya Tototootoo . . .

This is just a first shot at this . . .

Assuming [blue]customer number[/blue] is the primarykey and is numeric, in the [blue]BeforeUpdate[/blue] event of [blue]customer number[/blue], copy/paste the following ([blue]you![/blue] substitute proper names/values in [purple]purple[/purple]:

[blue]   Dim hldID As Long, Cri As String, CNFN As String
   
   CNFN = "[purple][b][i][u]C[/u]ustomer[u]N[/u]umber[u]F[/u]ield[u]N[/u]ame[/i][/b][/purple]"
   hldID = Me(CNFN)
   Cri = "[" & CNFN & "] = " & hldID
   
   If Not IsNull(dlookup("[" & CNFN & "]", "[purple][b][i]TableName[/i][/b][/purple]", Cri)) Then
      
      Me.Undo
      Me.Recordset.FindFirst Cri
      Cancel = True
   End If[/blue]

[blue]Your Thoughts? . . .[/blue]

See Ya! . . . . . .

Be sure to see FAQ219-2884:

 

[Floyd7]

My thoughts? You rock! Thank you so much. It worked perfectly.