Recent content by Slashback115

Got it working. I over complicated it lol. Private Sub shuffle_Click() ' create a random number that references the ID column from the table Inn and returns the corresponding Event column listing Dim sSQL As String sSQL = "SELECT Event FROM Inn WHERE ID = '" & Int((4 * Rnd) + 1) & "'"...

Based on your advice online google I have come up with this. Private Sub shuffle_Click() ' create a random number that references the ID column from the table Inn and returns the corresponding Event column listing Dim sSQL As String Dim rs As DAO.Recordset sSQL = "SELECT Event FROM Inn...

Here is what I have this looks up the first field in box and works fine. I am hoping there is some simple line I need to add. And not over engineer it. --------------------------------------------------------------------------------------- Private Sub shuffle_Click() str_table =...

Sweet, thanks again for everything!

Sorry! 1 last thing I promise. I changed my table like you suggestion and read the article. Now the code stopped working, what things would I need to modify in your code, I assume it would be simple?

Alright, thank you so much again for all your help. I removed the whole select.value and it is working now. I will look into normalization, but I think we are all good to go! If you ever need help with anything Verizon Fios related, let me know ;)

Sweet, you rock! So 2 things after implementing that. 1) I keep getting "Compile Error" Invalid use of property when I use the combobox. 2) The button displays a ton of blank values, since the columns have different amounts of lines, anyway to fix that?

Sent, thanks!

So good news, It started working... If I select a value in the combo box I get an error. Invalid use of Property Selectname.Value However if I press the button, it will generate a random name from the field selected. Almost there! Any ideas? My Combo box uses Rowsource Type : Value list...

It is still over 2... Not sure how. I will put a random email on here that you can email so you don't give it out on the forms? I dont know why it is so big.

Even after compressing and zipping it is 3.5mb :( Have an email?

Getting invalid use of .Value. Maybe my combo box is setup wrong in Access? Would you be willing to take the accb file and tweak it real fast? I know it is asking alot.

So my combobox is called Selectname. (i am sure this is wrong I am really new to this) ---------------------------------------------------- Private Sub selectname_Change() Dim selectname As String selectname = Me!cboselectname Me(selectname).RowSource = "" End Sub...

So DLookUp("[Dwarven]","Gen","etc... This will generate Dwarven Names DLookUp("[ID]","Gen","etc... This will generate ID numbers. How do I get [?] to = selectedname (combobox) value?

Yes, that is correct. But I keep getting expression errors, it cannot find my expression [SelectedFieldHere] because if I choose a column name like "Dwarven" it only shows Dwarven.