Recent content by Kensan

If this is a serious web application then you might like to take a look at a couple of books that involve developing web based applications using Access and ASP (Active Server Pages). Both are published by Wrox Press. They are Begining ASP 3.0 and Begining ASP Databases. I'm sorry I dont...

Hi Imram This might work. In the AfterUpdate event of your textbox requery your subform. You can do it like this [MainForm]![SubForm].Requery This forces the the underlying query to be re-run. Hope this helps kensan

Hi Breisi The following code should work [EndDate] = DateAdd("n", [SessionLength], [StartTime]) Have a look at the DateAdd function in Access Help. Hope this Helps kensan

One way to do this would be to start off by making all the fields in your form invisible. Then when the user selects his option you make the appropriate fields visible. You could do this by putting some code in the AfterUpdate event of your combo. For example if myCombo = "A" then...

I've been trying to do this myself now for weeks but without success. I think you need to use the windows API, if you know any API programmers it might be worth asking them. If I find out how to do this I'll keep you posted. kensan

The [final total] field has to be on your form in order for it to go to the table. What you should do is calculate this amount, perhaps in the AfterUpdate event of your list box then assign this value to the [final total] field, ie [final total] = [VAT] + [Sub Total] I'm assuming that [final...

Your problem stems from the fact that you dont have references to the appropriate type libraries in your database. If you open a code module then click the Tools/References menu option it will come up with a box showing you all the possible type libraries that your database can reference. The...

This code should work - DLookup returns a variant that is Null if the value cannot be found or the value if it finds it. Dim varRefNo as variant varRefNo = DLookup("[RefNo]", "Call Details Table", "[RefNo] = " & [RefNo]) where the first [RefNo] is the field in your table you are looking up...

Depending on how you are using the form, thjis code might work. I've added a few lines to your original code. Private Sub save_record_GotFocus() Static flag As Integer flag = 0 If Me![TOTAL CORRECTIVE ACTIONS] >= 1 And Me![NUMBER OF CORRECTIVE ACTIONS] = 0 Then if flag = 0 then MsgBox "How...