Recent content by dmonney

create a button on each subform. In the onclick method of that button put FORMS![Main Form Name]![control name].SetFocus FORMS![Main Form Name]![control name].value = Me.[subformcontrol].value Put your form name and your control name in the brackets (then remove the brackets) and that should...

My code is very clunky and probably pretty inefficient, but it gets the job done (slowly). This does not use the first row as column heading, but it will use whatever heading you chose as its field names. Error checking is nearly non-existent, the code expects the information handed to it to be...

There are twp directions you could go from here, one is to se where you get your "enter parameter" messege from. When it pops up hit [CTRL] + [Pause/Break] and enter the debuger to see what line of code it is trying to follow. Once that is diagnosed you can possibly fix that. The second is to...

From what you said it is working when you want it to and then when it closes it tries to go again. You need to find out what event prodedure is calling that code on you exiting the form.

put this code directly before the update Docmd.SetWarnings false 'turn off warning messeges <-------------- YOUR UPDATE CODE HERE ----------------> Docmd.SetWarnings True ' turn back on messeges (Yourchartname).requery ' this will update the chart

Put this in your On Update event for the field UNIT If(Unit.Value = "MTX") then Subunit.Rowsource = "SELECT [MTX Cty].[YOUR FIELD NAME] FROM [] ORDER BY [Your Field Name in table];" Else Subunit.Rowsource = "SELECT [DTX CTY].YOUR FIELD NAME FROM [DTX CTY] ORDER BY [Your Field Name in table];"...

try this dim endofyear as date endofyear = Format("12/31/"&Format(davevalue,"yyyy"),"mm/dd/yyyy")

Why are the fields comming out blank, are any of the values null?

Have you thought of storing this information in a table instead of forms? it would be alot easier to manage

I have tried six ways from sunday to disable outlook security. My view is it either can't be done or it opens up my computer to potential problems in the future. instead of this With objEmail .To = email .Subject = ref & " " & origin & " " & destination .Body = notes .Send End...

When your setting range one you have to be as specific as possible otherwise bad things happen Try this Set rng1 = xlapp.Worksheets("test2").Range("A1")

Try putting the code in the "on update" procedure. If that doesn't work there must be some form of code or procedure that happens when your form updates. Try putting your update clause there.

I may be way off but i have had instances when it gives me dataype errors when i have a \ in the name (it thinks i want it to devide)

the parentasies are suppoed to be removed for example let's assume that the weight is stored on your form in a text box txtweight and model is stored in a textbox called txtmymodel sqlstatement = "UPDATE tempcomparison SET tempcomparison.Weight = " & txtweight.value & " WHERE...

What is the orignial datatype, Does it ever include letters?