Search results

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?

It may be two things... A you need to use a (if this is not true) clause IIf([FORM104]='YES',Count[FORM104], (else do this) B Not sure if you can count like that in an if statement

adding rows after dump Have you considered dumping it into a file and then adding rows into the document? through VBA?

Try This dim sfile as string sfile = "(location Dir)/alert.xls" Set xlapp = CreateObject("Excel.Application") xlapp.Application.Visible = False Set xlwkb = xlapp.Workbooks.Open(sfile) xlapp.ActiveSheet.Range("A1").FormulaR1C1 = 1 xlapp.Quit Set xlapp = Nothing Set xlwkb = Nothing

try this You can add this statement once the value is entered on form. It will update your table. Simply fill in the values in parenthises. Dim sqlstatement as string sqlstatement = "UPDATE tempcomparison SET tempcomparison.=(weight or volume) =(valuestored.value) WHERE (tempcomparison.Model=...

1000 fields way too much Try separating yout your field into different tables. My guess is that alor of these field are flags, you could combine them and write your code to interprit those flags.