Search results

Try this link HTH

Sounds interesting! You will need to define the following relationships between the tables (using referential integrity): Bride -> Wedding Table (1 to 1) Groom ->Wedding Table (1 to 1) Vendor#1 ->Wedding Table (1 to 1) Vendor#2 ->Wedding Table (1 to 1) Vendor#3 ->Wedding Table (1 to 1)...

Try this link . This uses the Windows API to invoke the File/Open dialog. In the TestIt() function replace with : Function TestIt() Dim strFilter As String, strFile As String Dim lngFlags As Long strFilter = ahtAddFilterItem(strFilter, "Access Files (*.jpg, *.gif)" strFilter =...

If the user decides to change the number of licenses for some reason - you will need to add/delete the appropriate number of licenses from the source table. Otherwise - as soon as the update routine gets called again - it will add a further 'n' licenses to your database all over again!

The code looks fine but you will of course need some sort of provision in your routines to ensure that if the user increments/decrements the license number the appropriate recordset sets are either amended / deleted. Is the license field bound to the appropriate table field?

I bow to your seniority - I misread his original comments......OK?

Sorry - my mistake....I didnt test it! The function should read : Private Function StrConvert(strVal as string) as String ' look at last digit of string Dim tmpStr as string tmpStr = Right(strVal,1) If tmpStr = Asc(45) Then ' Ascii 45 = - char strVal= Left (strVal,Len(strVal-1)) Endif...

Is this link any good to you? Its a few years since I have done this. At that time there were editors that were shareware and offered this functionality.

I prefer : Set objDB = CurrentDb() Set objRS = objDB.OpenRecordset("JobNumbers1", dbOpenDynaset) While Not objRS.EOF TempString = objRS![JobNumber] With objRS .edit ![JobNumber] = StrConvert(TempString) .Update .MoveNext End...

I do recall when I first started using ADO - it was apparent that there were delays inherrent in its use when compared to DAO. Unfortunately, I cannot recall what the work-round was (this was more than 2 years ago !) but it may have something to do with the recordset type and locking you have...

Have you declared var i? eg. Dim i as Integer You may also need to delimit strVal with quotes as it is a string....... eg. VALUES(' " & strVal & " ')" OK- let me know........

rich - this is not apparent in his comments........"the actual Table as my control source"

You have almost answered this one yourself... you dont have to use the Table as the source you can use a query to present a filtered set of records to your form! NB. I would not try doing it any other way - you will be making things more complicated than they need be. Bottom line - bind the...

Is there any chance that you could break this down into smaller chunks i.e. Use a macro containing calls to varous SQL queries. These queries would generate temporary table(s) of calculated results that you use in the final SQL query to update the original source table? Calling SQL would be...

Try this : In the After_Update event on the form you iwll need to call something similar to this : GetDescriptionExists() Private Sub GetDescriptionExists() Dim nCount As Integer nCount = NotNullCounter(RecordSetClone!Copy) nCount = nCount + NotNullCounter(RecordSetClone!Atheletes)...

Not too sure what you are trying to do with your coding here but as a starter ........... 1. Replace this: Do While Not Rs.EOF Rs.Edit Rs![Updated] = False Rs.Update Rs.MoveNext Loop with : Currentdb.Execute ("UPDATE TotalsResults SET Updated=False WHERE Updated=True") NB...

Joe Not too sure what you require from me. Code looks fine. Basically, you are : 1. In the AfterUpdate event i.e. when Access has updated the bound fields on the form, you are 1.iterating through the loop upto 'n' licenses 2. getting the incremented license number via the GetLicenseInc...

Try Add the following routine to your report code module.... Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer) chkTrk.Visible = TruckValue End Sub eg. when the report is formatting itself it will check the value of the truck control that you have bound to the database...

Any ideas on this one? I have an application for viewing customer contracts that utilise image files. I have a form using a single image control where the user can 'page' through the image collection for that customer. I need to integrate a feature whereby I can display a 'gallery' form where...

From the VB help files.... Resume without Error (Error 20) : A Resume statement can only appear within an error handler and can only be executed in an active error handler. This error has the following causes and solutions: You placed a Resume statement outside error-handling code. Move...