Search results

Wish you were my boss! Actually, I wish Anne Hathaway was my boss.... but don't take it personally

Right. I cracked it. It was to do with the subform's link criteria. The master link was set to a text box on the main form, which was in turn controlled by the value selected in another subform. All I had to do was make these unbound, and put some code in the other subform's on current to...

Well, the physio did recommend a few minutes' walk every day... who am I to ignore medical advice?

ha ha so you're saying I should be thanking him? I'll send him a card today :) Nope nothing broken, just walking around like I've crapped my pants (whiplash) - much to my coleagues' amusement

Aye, had a month off thanks to a lovely white van man knackering girlfriends brand new car with me in it. Sure missed this place....

I've gone a bit further and am dismantling the form bit by bit - it seems there's a problem in the code somewhere so will add bits in and see where it start going bonkers. If I find out I'll post back! Cheers VBA - been a while! J

They have to be there sadly - they show total depending upon what's selected in the subforms. Just wondered why I'd get that flickering on the first line of the on open event - not code, but the actual "Form_Open()" line.... That's the first event that kicks off when opening in form view right...

Afternoon all, hope you're well! I've got an odd one here. I have a form that has a variety of subforms, within which lie some calculated controls for totalling up sales etc. When I open this form, it seems to get stuck in some sort of calculation loop, with the contents of all the subforms...

Are you trying to update a table or a query? You should be updating tables really

I don't think so, as your joins are different. You could automate it in VBA though:Sub Run_updates docmd.setwarnings 0 docmd.runsql "[Insert SQL statement here]" docmd.runsql..... docmd.setwarnings -1 End Sub

Yep. SQL would look something like:UPDATE [Destination Table] INNER JOIN [Source Table] ON [Destination Table].JoinField= [Source Table].JoinField SET [Destination Table].Fieldname] = [Source Table].Fieldname Essentially, in design view, create a join beteween the two tables (I guess employee...

I think the combo box shows the contents of the bound column. I've got around this before by having a text box next to the combo box, whose control source is set to the combo's relevant column number.

If there's a way, you'd be best off linking into the HR table. That way you don't have two unsynchronised copies of the same data. I would say that, because the join between the two tables would be different depending on which role is changing, you'd have to have 6 update queries. Make sure...

You could do this a couple of ways - firstly using DSum. Make this your text box's control source:=Dsum("[Item Total]","[SourceTableName]","[Type]='Outgoing'")Modify as needed. Second you could use sum and iif together:=Sum(Iif([Type]="Outgoing",[Item Total],0))

Have you tried putting the .value propererty at the end of each checkbox's name?

Morning all! Long winded and annoying one - get yourself a coffee.... :) I've got a table with SQL statements in it. I've got a recordset going to cycle through the records and append querydefs. It works OK on the shorter queries, but some of the statements are really long and it seems as...

Thanks for your inputs all - it's month end at the moment but I'll check these methods out when that's all done and let you know how I get on :)

OK, now I've got this far:Sub ReTag_Controls() Dim Proj As Object Dim Frm As Object Dim ctl As Control Set Proj = Application.CurrentProject For Each Frm In Proj.AllForms If Frm.Type = acForm And InStr(Frm.Name, "Subform") Then For Each ctl In Frm.Controls If...

Hi Dave, thanks very much for that - I'm looking at declaring the variables as objects at the moment as per some code snippets I'm googling. Hope you're well buddy!

Afternoon everyone! Wondered if you could help me out on this rather simple one... What I need to do is add a string to the tag property of certain textboxes in certain forms in my DB. How do I say "for each form in currentdb.forms"? Here's what I've got so far:Sub ReTag_Controls() Dim Frm As...