Search results

Hi; In the properties of the combo box set Autoexpand = Yes

Hi, one simple example; http://dl.dropbox.com/u/771097/teste.mdb

Happy Holidays for all

Resolved; I created a form equal to the report which put the textbox.displaywhen = 2 and works perfect. (Access 2003) Thanks to all who helped

Private Sub Form_Open(Cancel As Integer) Me.TimerInterval = 1000 End Sub Private Sub Form_Timer() Me.Caption = " Hello - " & Format$(Now(), "DDDD, d MMMM, yyyy h:nn:ss") End Sub

Thanks anyway friend

thank you for idea, I will examine how.

Someone please, just what is needed to finalize...

thanks but still does not work for report. Microsoft: In many cases, certain controls are useful only in Form view. To prevent Microsoft Access from printing these controls, you can set their DisplayWhen property to Screen Only. For example, you might have a command button or instructions on a...

Hi; which the tab in the properties of texbox, I do not see this option ?

Hi all; I want to see the data from a text box in the report, but do not want to print. Private Sub Report_Page () TextBox.Visible = False End Sub works for first page, for the following does not work. ms access 2003 suggestions please ?

hi man, remove the space: Next Month: Between DateSerial(Year(DateAdd("m",1,Date())),Month(DateA dd("m",1,Date())),1) And DateSerial(Year(DateAdd("m",1,Date())),Month(DateA dd("m",1,Date()))+1,0) Next 2 Months: Between DateSerial(Year(DateAdd("m",2,Date())),Month(DateA dd("m",2,Date())),1)...

try; Private Sub Form_Current() Me.Frame3.TextBox1.Value = Date ' for example End Sub

Many thanks for your feed back.

use Compact/Repair in tools to resolve.

use DLookup to check If Me.[1st Date Issued].Value = DLookup("[1st Date Issued]", "[table A]", "ID = " & Me.ID) < DateSerial(Year(Date), Month(Date), Day(Date) - 14) Then

Or: Private Sub Ctl1st_Date_Issued_AfterUpdate() If Me.[1st Date Issued].Value < DateSerial(Year(Date), Month(Date), Day(Date) - 14) Then MsgBox ("OnEnter :- Date is before 14 days ago") DoCmd.CancelEvent Me.Undo Else Exit Sub End If End Sub

try: Private Sub Ctl1st_Date_Issued_AfterUpdate() If Me.[1st Date Issued].Value < Date - 14 Then MsgBox ("OnEnter :- Date is before 14 days ago") DoCmd.CancelEvent Me.Undo Else Exit Sub End If End Sub

Hi campo88, see this example; http://dl.dropbox.com/u/771097/CombosExpandem_II.mdb

Re: Change font color on ALL form controls on "Got Focus" and "Lost Focus" ChrisO, brilliant example, congratulations.