Search form functionality with combo box

[kbmtech]

Hi, I am working on a huge project, and I have to admit I have used lots of recycled code. I do not copy anyone, but I borrow bits and pieces. I am doing this project in which I need to edit a record in a spreadsheet. The spreadsheet has many columns, so I do not want to use the data form with all the visible fields. I have previously used this form successfully with text boxes, but now I am trying to get the value from a combo box and I can not get it to work properly. Can anyone tell me what I am doing wrong and how I can fix it? I have attached the file. All patient data is made up, so there is no confidentiality expectancy here. Your help is greatly appreciated.

[Leith Ross]

Hello kbmtech,

The problem was with rSearch. You weren't returning the full range. Here is the amended code.

Please Login or Register  to view this content.

[kbmtech]

Hello Leith, and thank you for such prompt reply

That solved the runtime error message, but does not function properly. The form normally populates the Patient ID, Address, Phone and Birthdate textboxes. The Idea is to confirm the patient is the right patient before checking in.

[Leith Ross]

Hello kbmtech,

When the form runs on my computer the boxes on the form are filled with the information for the selected patient. What happens for you?

[kbmtech]

Leith,

Thank you again. I copied and pasted the code in the module without paying attention and combined two subs. My mistake. I can't believe it was that simple. I had been trying to set rSearch as a range within the worksheet, but never set it within its own With statement. Glorious. Thank you!!

[kbmtech]

It works fine when the spreadsheet it by itself, but when I move the spreadsheet to the workbook where it is meant to work, I get a runtime error 1004, select method of range failed. Same as I was getting before. Debbugger stops at c.select. I just uploaded the whole workbook, 7z format.

[Leith Ross]

Hello kbmtech

Does this workbook have a worksheet named "Patients"?

[royUK]

You don't need to use .Find. Test this then populate the other textboxes

Please Login or Register  to view this content.

[kbmtech]

Yes. I am trying to upload the workbook, but it is too large. I am removing some of the formatting so that It can be shrunk

[kbmtech]

Hi royUK,

I don't have a problem with the Check in command, the issue is I need to search for a patient record, Once I see the patients data in the boxes (and ensure is the right patient), then we can click check in and update today's date in the database.

[kbmtech]

Ok, I can not get the file below the 1mb limit for the forum, so you can download it at http://.phatkingdom.com.

[Leith Ross]

Hello kbmtech,

Please check your link. I get the error that the site can not be found. Here are some other free file hosting sites that probably will support the full file.

www.mediafire.com
www.filesavr.com

[kbmtech]

Hello Leith

Sorry. I can see the file, just a directory format, i don't have anything else there. Anyway, I uploaded to mediafire and you can find the workbook at

http://www.mediafire.com/file/1goqa9...t%20Center.zip

[Leith Ross]

Hello kbmtech,

That worked. Nice workbook layout. Did you do it?

[kbmtech]

Yes, and believe it or not, it is for a school project. I am finished with school, but I owe a final project and I feel the need to abide. I originally had separate spreadsheets for each project, but I thought from an end user's perspective it would be nice to have it all available through one click. Still working on it. Thanks for the comment, I worked hard. gotta clean the code, I am a big recycler and you can find the comments from one spreadsheet or even a separate workbook where I have used the code before on this one. Got my night setup to clean up the comments.

[Leith Ross]

Hello kbmtexh,

The problem lies with selecting the cell. The worksheet the cell is on needs to be active. This change will activate "Patients" when the form is displayed.

Please Login or Register  to view this content.

[kbmtech]

That did it! awesome. I would never have guessed because I originally used this form with a text box in the account receivable module the makeapayment form and I did not need to activate. Great Job Leith! Thanks a lot!.