Value of the Table

[Deleted member 162737]

Greetings my friends,

can someone help me with this matter?

I have one Table and there is only one row in it (and always will be only one row). This table has multiple columns and one of them is defined as AutoNumber and has random value.

Then I have one form with textbox where can user enter number.

I need help with code, I need to have something like this: if on click entered value from textbox is the same as value in first column (called ID) of the first row of Table (called temporarily), thenn et cetera...

I tried with command DLookup something like this:

Private Sub D001_Click()
If Me.UVKB.Value = DLookup("ID", "Registrovani", ???) Then
DoCmd.Close acForm, 500
DoCmd.OpenForm (0)
End If
End Sub

Maybe the problem is simple, I just started learning VBA?!
Thank you very much everyone in advance!

 

[Minty]

A DLookup() always returns the first value it finds in a table based on the criteria, so simply don't supply the criteria and you should get the result you are after.

DLookup("ID", "YourTempTable")

 

[Deleted member 162737]

A DLookup() always returns the first value it finds in a table based on the criteria, so simply don't supply the criteria and you should get the result you are after.

DLookup("ID", "YourTempTable")

Thank You Minty for the support and help!

I applied but unfortunately it doesn't work (You can see code in attachment).
Did I miss something..?!

 

[Minty]

Add some debugs so you can see what you are actually comparing against what you think you are comparing;

Private Sub D001_Click()

  Debug.print "UKVB:" & Me.UVKB & " Lookup:" & DLookup("ID", "Registrovani")

  If Me.UVKB.Value = DLookup("ID", "Registrovani", ???) Then
    DoCmd.Close acForm, 500
    DoCmd.OpenForm (0)
  End If
End Sub

In the immediate window (Press ctrl +G to see it) in the VBA editor you will see what you are processing.

 

[Gasman]

How did you get such a large value for the ID?
Anyway, what is the value of UVKB?

Please post code so that it can be copied if need be. Pictures are fine for showing errors, but not code most times.
See my link for debugging in my signature.

 

[Deleted member 162737]

@ Minty: Debugging looks fine. But I don't get any error information from VBA.

@ Gasma: VBA has gave me random value, that is why ID number is so large. Value from UVKB is the same (I looked in Table, to gave the same number in textbox).

In attachment you can find code and more pictures.

 

[Gasman]

Upload your DB. Compacted and zipped if to big without doing that, or at least enough to see the problem, as all looks OK from here?

I always used incremental. Eassier to spot any link errors in my view.

Have you tried walking through the code with F8?

 

[Minty]

Your form names need to be in quotes

DoCmd.Close acForm, "500"
DoCmd.OpenForm "0"

I would strongly advise against using numbers as names for any object, it can lead to some strange errors.

 

[Deleted member 162737]

Thanks a lot of guys,

I found a problem

Problem was in format of UVKB in form 500 hehehe... Because in Table ID cell is defined as General Number, thats why must be also defines UVKB as general number.
I saw that, when I saw position on number in Table (from right to left) and in textbox was from left to right. Then I understood hehe...

Many thanks to bouth of you!!!

 

[Gasman]

I was about to suggest a Val()

 

[Gasman]

FWIW see here how to correctly export objects from Access as backup/import elsewhere.

Solved - Exporting Forms?

Hi all, In this thread, I am trying to help the O/P https://www.access-programmers.co.uk/forums/threads/value-of-the-table.326708/#post-1865959 He uploaded an exported form cls file. Then I tried to import it into my DB abd kept getting errors that it might beging with a Form_, and two other...

www.access-programmers.co.uk

 

[Deleted member 162737]

Thank You Gasman!
I appreciate Your help!