Recent content by PaulGer

Thanks guys :)

Hi, how can I automatically open a form when the database is opened in Access? Like all the example DB's Mile-O-Phile posts on here seem to do. Cheers

Thanks Rich, that set me off in the right direction. I slightly modified it to this; Dim ctl As Control For Each ctl In Screen.ActiveForm.Controls If ctl.ControlType = acLabel And ctl.Tag = "ch" Then ctl.ForeColor = "8421504" End If NextAnd it's working...

Hi, I am trying to change the properties of a bunch of labels on my form, using a For loop, like such; For i = 1 To 4 Me.lblRuleCLass(i).ForeColor = "8421504" Next iHowever, this doesn't work :( so basically I was looking for the VB equivalent of the "FindComponent" function of...

Thanks Mile :)

Hi guys, How can I set the active tab programatically in a 'TabSheet' (I'm not sure the exact translation of this component, in my German version of Access it's called "Registersteuerelement") Cheers :)

Nevermind, got it :D Just replaced vname = Me.comboContact & i.Column(1) With a CASE statement.

No, I'll try explain a bit more, basically the MsgBox should look like this; Fred: 31994 Bob: 59161 Steve: 75016 tblContact has these fields; [Name] [Phone] There are 3 combobox's, named comboContact1, comboContact2, comboContact3, in each combobox there is a Name from tblContacts [Name]...

Hi, I am trying this code; Dim i As Integer Dim usrMsg, vname, phone As String For i = 1 To 3 vname = Me.comboContact & i.Column(1) phone = DLookup("[Phone]", "tblContact", "[Name]=" & SQLstring(vname)) usrMsg = usrMsg & vname & ": " & phone & vbNewLine...

I think there was a " at the end of the 2nd line that shouldn't be there? DoCmd.RunSQL "UPDATE DISTINCTROW Products " & _ "SET Stock = [Stock] + " & Forms!EditPrice!EditPriceProductsSub.Form!Ammount & _ " WHERE ItemNum = " & Forms!EditPrice!EditPriceProductsSub.Form!Combo2 & ";"