Search results

That worked perfectly! Thank you!

I am definitely using the combo box's recordsource as the Status table. My AfterUpdate code is as follows: Private Sub CboStatus_AfterUpdate() Dim mystatus As String mystatus = "Select * from tblFGTracking where ([status] = '" & Me.CboStatus & "')" Me.tblFGTracking_subform.Form.RecordSource =...

Hi All, I didn't want to start a new thread but I could use some help with an issue I've been facing. I have a combo box in a form that filters a subform based on a field called Status. I am currently using a table that stores each status for the combo box selection. Since the status field is...

Thank you both for your time and feedback. I will consider both approaches. I believe the version approach jdraw mentioned will simpler.

Sorry for the confusion, I am sharpening my skills. Below is what I had before the additional requirements were realized. My code is as followed: Private Sub Command378_Click() DoCmd.RunSQL "INSERT INTO tblLogNPRFinalIDs ([NPR ID], [User ID], [Number of Parts], [NPR Name]...

when I call it from the button - I get the "Argument not optional" compile error. :banghead:

Definitely makes sense but I’m not an expert. You’ve been so help so far but I’ll need help with the code. Once the “.” is found do I use the insert into statement? Essentially, I’ll need help with each step please.

Hi Gasman, That worked perfectly. Thank you!! However, I've learned new information on the requirements needed making it even more complex. Since there can be several updates to the original ID, the .1 added to the ID needs to be incremented every time there is an update or change made...

Hi Gasman, Thanks for your reply! The ID field is NOT an autonumber. I was able to find solutions with the autonumber but the ID is a series of text and numbers that I would like to add “.1” to when making a new record.

Hello, I know this is an old thread but I can't quite find a solution to fit my specific needs: I would like to copy a record and paste it into the same table. Essentially, I would like to add ".1" to the ID (primary key) that is being copied to distinguish the new record from the old. The ID...

Thanks everyone for your replies. I tried all suggestions with no luck. I also tried uploading a sample of the database but I received an error message about a missing security token.

Unfortunately, that didn't work. The targettble is no longer populating.

Which loop?

Hi Paul, Thank you for your reply. I'm sorry, I just realized I specify the line. The error is on: Do While MyRS![Serial_Number] = Serial1

Hello, I've inherited a database and I have been struggling for weeks to find a solution to the run time 3021 - no current record I've been receiving. The code is below. Any help is gladly appreciated. Dim MyDB As Database Dim MyRS As Recordset Dim Reading1 As Double...

After playing around with the code that you gave me, I finally got it to work!!! :D:D:D Here's what I used under the Oncurrent event procedure. Dim rst As DAO.Recordset Set rst = CurrentDb.OpenRecordset("SELECT DISTINCT [Call Number] FROM [" & Me.RecordSource & "]" & IIf(Me.Form.Filter <> ""...

1. Apologies, I adjusted the size so you can see it on a smaller screen. The control was there but unable to be seen on a smaller screen. 2. I've fixed the code to the code you gave me.

I used the exact code that you gave me. However, I have attached the database so you can take a look. Thanks so much for your time.

This is quite discouraging :( I change the code and placed it under the onfilter event of the subform however the control is left blank. When I change the event procedure it works but it doesn't update when filtered (of course). I'm trying to get an understanding as to why it doesn't want to...

I was able to get the code to reflect the distinct value after putting the 'call number' in brackets and modifying the source. I've tried quite a few event procedures. Currently, I have it under the Oncurrent event I just don't understand why it's not updating when the subform is filtered...