Search results

Hi Shafara, Yes it is VBA. You could put a command button there called "Update Status" and put the code in the On Click event. Then when anyone clicks the button, the Status colour shown will change to the latest. I presume you have noticed I have put placeholder table names and fields (e.g...

Thanks Colin, I tried what you said and, yes, Limit to List did indeed switch back to Yes. Well done on keeping up your new year's resolution by the way! Having lived my early life on a farm in Somerset (Near Exmoor), I still love that part of the world.

Thanks Minty. That is a solution, although messy as you say. Probably Access designed the combo box when primary key fields were meaningful and expected to be displayed. Then when they recommended using autonumbers, it was too late to redesign the combo box because of incompatibility with...

Thanks Colin :) I'll owe you a cider if you get it!

Your screenshot shows Limit to List showing "Yes". Try turning it off.

Sorry but this is true - of Access 2016 at least (not greyed out but restricted nonetheless). See screenshot attached. I may have given the wrong impression - that Limit to List was not available if the bound column is not visible. I meant that you can't turn it OFF unless the bound column is...

You could trigger the update of the Status with a procedure such as this: Dim CompNo As Integer, OrdDate As Date, OrdStat As String CompNo = Me.ComponentNumber OrdDate = DMax("Date","TableComponentOrder","TableComponentOrder.ComponentNumber =" & CompNo) OrdStat =...

Thanks for your efforts Tony (Gizmo). You're right I knew about the column width. Your video showing how to limit the combo using your alpha list form was interesting and innovative, but not really suited to my particular application. My 3 unbound combos do the job of limiting the list from...

In my databases in the past I always used "Real" fields as Primary Keys, but recently I decided (reluctantly) to convert to the arguably "more conventional" method of using meaningless autonumbers as Primary Keys - (but only when the Real key field is longer than, say, 5 digits). There's no...

Glad to help

Hi Eshai, You can create an unbound main form containing a combo box for class, and a continuous subform based on the students. The subform would include fields for the name of the student and the image. As far as I know, the subform will not be able to show students in several columns (as...

(I like the Heaven and Hell references!) That shouldn't be a problem. You'll need to convert the dates to a string with formatting you choose, e.g. Format(me.date,"dd/mm/yy") will produce a string, e.g. "22/06/17". So you create a string variable (e.g. strBody) and build it up. StrBody =...

There is an API function to print a file (any extension) here: https://social.msdn.microsoft.com/Forums/office/en-US/2423c0af-3eec-4320-8e37-2ac9d28d5f98/access-vba-print-copies-of-external-file?forum=accessdev If you paste that function (including the top bit), then you can print a file using...

Hi, I've just found this online, modified and tested it and it works:- Sub ExtractWordProperties(strInFile As String) Dim objWord As Object, objDocProps As Object Dim i As Integer On Error Resume Next Set objWord = CreateObject("Word.Application") With objWord...

Glad you didn't need to smash the computer! :D

I am trying to understand what you are trying to do, so bear with me. According to the results you say you are expecting, it seems you want to only show billings for either the Standard Location or the Deviant Location but not both and that if there is a Deviant Location for the billing, you...

Have a great weekend Gasman. Weather in Swansea is forecast good for the weekend (for once!) so come back fresh on Monday!

Hi Gasman, I am hesitant in replying when I look at your credentials, but even the most experienced can miss something. Forgive me if I'm stating the obvious here. The way to pass parameters to saved queries via VBA is to use querydefs. I used this code on a saved query to pass a parameter...

Declare a variable for Me.Comments.Value and give it an empty string value if null as: Dim Com as string If IsNull(Me.Comments.Value) then Com = "" Else Com = Me.Comments.Value End If Then in your Insert Values, you substitute Com for Me.Comments.Value (Access hates nulls!)

I see just 2 differences from the original Code. This part has been moved from the end to the beginning: LEFT JOIN qryMessauftragPerson ON tblMessanlage.ID = qryMessauftragPerson.ID and you have changed some of the bracketing "()". The bracketing is a complex nightmare and I'm sure a lot it...