Search results

Sorry, ignore the last post, use this code instead... Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer) If Me.YourTextBox = "H" Then Me.YourTextBox.FontBold = True Me.YourTextBox.ForeColor = vbRed Else Me.YourTextBox.FontBold = False...

This should do it... Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer) If Me.YourTextBox = H Then Me.YourTextBox.FontBold = True Me.YourTextBox .ForeColor = vbRed Else Me.YourTextBox .FontBold = False Me.YourTextBox .ForeColor = vbBlack End If If Me.YourTextBox = S Then...

Open it holding down the 'Shift' key IMO

Something like... Private Sub Form_Current() If Me.FirstDay = Me.LastDay Then Me.TotalDays = 1 Else Me.TotalDays = Me.LastDay - Me.FirstDay End If End Sub IMO

Your ID field needs to be Numeric. Add an Autonumber field to your table and call it 'QID'. Now change this line of code to... stSQL = stSQL & "FROM qryYourQuery WHERE QID" IMO

You are missing the 'Microsoft DAO 3.6 Object Library'. Open any form in Design view,goto View >>> Code, goto Tools >>> References and select it from the list. IMO

If you post your DB I'll take a look IMO

Place this code in the 'On Enter' event of the TextBox... Private Sub YourTextBox_Enter() If Me.YourTextBox = "YourPage" Then DoCmd.OpenDataAccessPage "YourDataAccessPage" Else End If End Sub IMO

Thanks Mile and namliam, that did the trick! Ever had one of those days?! Cheers again IMO

I'm using the following code to Output a report as a Text file, saving it as the name in an unbound textbox on the form DoCmd.OutputTo acReport, "rptAddCost", "MS-DOSText(*.txt)", "C:\Documents and Settings\temp\Desktop\(" & Me!TxtSupName & ").txt", False, "" all works fine but what I'd...

Glad it's working, speak soon IMO

Sharon, Sorry I didn't get back to you yesterday, ISP probs. Attached is the .olb file for 'Microsoft Outlook 9.0 Object Library'. Unzip it and place it in your Windows\System Directory. Then go back to references and click on Browse. Select it and add it to the list. That should do the trick...

OK, Open the form in design view. Goto View >> Code. Then Goto Tools >> References.Scroll down the list until you come to 'Microsoft Outlook 9.0 Object Library'. Select it (with the check box on the left) and Click OK. Close the Editor and the Form Saving if asked. Now reopen the form. That...

Make sure you have a reference set for 'Microsoft Outlook 9.0 Object Library'. IMO

Open the form in design view, right click the frame (not the Toggle buttons) and go to properties. Scroll down to AfterUpdate, select Event Procedure then click the "..." button to open the code window. Insert any one of the three pieces of code given there. IMO

Because you're using the Forms AfterUpdate, you need to use the option group AfterUpdate IMO

Private Sub YourFrame_AfterUpdate() Select Case Me.YourFrame.Value Case 1 Me.Cost = 30 Case 2 Me.Cost = 35 Case 3 Me.Cost = 35 Case 4 Me.Cost = 35 Case 4 Me.Cost = 35 Case Else Exit Sub End Select End Sub IMO

This may be what you need. (Originally written by Arvin Meyer) IMO

The code should work. This line lblFirstActionPrintReminder = False should be... lblFirstActionPrintReminder.Visible = False See if that helps, if not, post your DB and I'll take a look. IMO

Re: Still not working.... Make sure the Controls in the Form that show the data are in the Detail section, not the header or footer. IMO