Search results

It says single form

I though about that but how do I get that to change the back color of the form and not just the text box?

Hello All, I have this code below that work (sort of). I'm not sure what event to put it on. I tried different ones and it doesn't seem to update when I scroll through the records. If there is a better way to do this then please let me know. Dim lngRed As Long Dim lngGreen As Long Dim...

Hello All, If make my access db a excutable program and install it on each machine would that take care of my reference library problem? Thanks

This is great! Thanks for the advise, Is there a way to have the code to refer to a default (complete set) library that will work on most all machines. For instance, some where on the network there is a complete set library that all my machines refer to for libraries to ensure that they are...

Hello All, I am having trouble with my Reference Libraries not being the same or missing when I am using my access db from a different machines. The code works fine one one machine but not on another. Is there a way to keep my libraries the same and work on any machine I put it on? Thanks,

mdlueck, getting compile error on GoTo Exit_LocatePrevNextRecord John, I did this Dim sProduct As Long Me.[Product ID] = sProduct If Me.NewRecord Then Me.productid.Visible = False If MsgBox("Add a New Quote?", vbYesNo, "New Quote") = vbYes Then Me.[Product ID] =...

On current like you... It does work but it does not move back to the record I started on. It does take me to the previous record....for example I'm on the first record I create a new record Msgbox says" Do you want to do this?" I say "no" I'm wanting it to go back to the first record (or...

Thanks John, But it doesn't move back...it seems like it should but it stays on the new record. Is it thinking that the new record is the previous record? If I press new record, the nav buttons say "1 of 5265"....when I choose "no" on the msg box it should take me back to record I started on...

Hello All, I have a code that adds a new record but it asks the user if they really want to do that. If they choose "no" I wanted it to go back to the previous record. This what I tried but it doesn't work. Dim rs As Recordset If Me.NewRecord Then Me.productid.Visible = False If...

Hey Thanks, This is what I had originally, however you made me look into this again and I came up with this. If Me.NewRecord Then Me.productid.Visible = False If MsgBox("Add a New Quote?", vbYesNo, "New Quote") = vbYes Then Me.[Product ID] = Nz(DMax("[product ID]", "product"), 1000) + 1...

Any one know anything about this?

Hello, The control source is "Product ID" from the product table. That is correct....when click a new record it shows #error until I populate another field then it runs the code and is fine. I just wanted the field to either be blank or say "(New)" until the code runs. I was researching how...

Hello All, I have a field called [Product ID]. I am getting this #Error in the field until the event is triggered. The event is this: Private Sub Form_BeforeInsert(Cancel As Integer) Me.[Product ID] = Nz(DMax("[product ID]", "product"), 1000) + 1 End Sub Is there anyway I can hide or get...

Thanks for your help I did not end up doing that. Could not get it to work. However, I figured it out using append queries. I used Dmax on the product Id for both queries to make the product id's match and Refreshed and it worked! thanks.....

OK, What I am not sure of is .....if I am able to use the number. how do I tell the query to append to that specific record with that product id? So if my new product ID is 70244 I'm not sure on how to have the queries to append to the record with the product id of 70244... thanks:banghead:

No, Product Id is not a autonumber. It still has own unique id. I just used the code to create a product id each time a new record is added. I just need to be able to copy those records and add them to the same new record.... I guess I know what i want to do but ensure on how to set it up to...

Thanks, What Im trying to do is duplicate record on my main form and subform and paste them to a new record. The subform is join by the [product id] field. So I am creating a new product id by "Me.[Product ID] = Nz(DMax("[product ID]", "product"), 1000) + 1" And I just want to copy the...

Hello All, Don't know if this is possible or not but I have a append query that I would like to append to a specific record. Is this possible? something like ...append to record where the ID matches "whatever" Any Ideas?

Hello All, I am trying to get this to work. Basically, Im trying to copy the current records with the records of the subform and paste them in a new record. I keep getting this error message "object doesn't support this property or method" It doesn't tell me where the error is or nothing...