Search results

Have you tried an If statement? Private Sub Form_Current() Call CbxCode_AfterUpdate End Sub Private Sub CbxCode_AfterUpdate() If Me.CbxCode.Column(1) = "Pending Affidavit" Then Me.noyears.Visible = True Else Me.noyears.Visible = Flase End If End Sub ________ EASY VAPE...

You could place a new key in the registry that would auto exec the file on startup. ________ FORD FORDOR PICTURE

You could replace the cmdOk_Onclick() with this: Private Sub cmdOK_Click() On Error GoTo Err_cmdOK_Click If Me.ctlCalendar.Value > Date Then Me.ctlCalendar = Date MsgBox ("Your error?") Else Forms(strForm).Controls(strControl) = Me.ctlCalendar.Value...

If Me.NewRecord Then For Each ctl In Me.Controls If ctl.ControlType = acTextBox Or ctl.ControlType = acComboBox Then ctl.BackColor = 16777215 Me.Select_form.BackColor = -2147483648 End If End If -2147483648; use what ever color you wish...

You could use this, but what do your naming conventions "look" like, and how is the text displayed in the combo box? (ex. Naming convention = frmFormName; Text displayed = "Form Name") ________ C-class

This is what you have: Between Date()-800 And DateAdd("d",7,Date()) This is what you SHOULD have: Between DateAdd("d", -7, Date()) And DateAdd("d",7,Date()) ________ 330

Access Help: Case statements ________ Mflb

Private Sub Check649_Click() If Check649 = True Then Me.HepA = "Series Complete" Else Me.HepA = Format(DateAdd("m", 6, [Hepatitis A Taken]), "Medium Date") End If End Sub ________ CESARE PERDISA

This is in A2k3, but it is the same in A2k: ________ Volcano Digital Vaporizer

Why don't you make your calculation a function, so it will be simple everywhere? If you don't know how post your query code, and i will be glad to help you. :p ________ Vermont dispensaries

I think we need a sticky, we the words, "COMPACT & REPAIR"; its like 1/5ths of everyones problems. :rolleyes: ________ Ford field specifications

Name: [tblCustomerContacts]![FirstName] & " " & [tblCustomerContacts]![LastName] I belive thats what the sql code should be for the second column, as long as you have included, tblCustomerContacts in the from for the sql statement. ________ Free Sex

On Click event for the link you want to click, and then try Me.FieldName.SetFocus Have you tried this? ________ Toyota bb history

How does your form work, when do you want it to be validated? ________ BUY SCALE

Fyi You can disable the "Security Message" by going to the security settings for Macro's. ________ Human Papillomavirus (Hpv) Forums

Why are you using your names as PK's? If you didnt this wouldnt of happened. Access stops the space, but you can add a space when you edit the record. ________ Persian recipes

You had an extra "End If" and there is no point to do anything if you cancel something, but you should save it if its yes, try this: Option Compare Database Select Case MsgBox(strMsg, vbQuestion + vbYesNoCancel, "Save Record?") Case Is = vbYes 'MsgBox "Yes" DoCmd.RunCommand...

Oops, something happened and it "ill-posted". Private Sub Check649_Click() If Check649 = True Then Me.HepA = "Series Complete" Else Me.HepA = Format(DateAdd("m", 6, [Hepatitis A Taken]), dd mmm yy) End If End Sub ________ Colorado Marijuana Dispensary

What are you trying to do in the first place? ________ Mercedes-Benz Om611 Engine Specifications

Is this what you are looking for? Me.cboHours = Format(Me.txtTime, "h") Me.cboMinutes = Format(Me.txtTime, "nn") Me.cboAmPm = Format(Me.txtTime, "AM/PM") & Me.txtTime = Format(Me.cboHours & ":" & Me.cboMinutes & " " & Me.cboAmPm, "Medium Time") ________ Pot