Search results

try and run a find duplicates query on the union query

you probably want something like this, i havn't tested it if isnull(DMax("[Ref]", "TableName", Mid([Ref],5,2) = Format(Date(),"mm") then Me!Ref = "001/" & Format(Date(),"mm/yy") Else Me!Ref = Format(Clng(Right(DMax("[Ref]", "TableName", Mid([Ref],5,2) = Format(Date(),"mm"),1,3))+1,"000") & "/"...

on the forms property change cycle to current record

here's some code I use to validate an order no using my own error message Private Sub Order_Survey_No_AfterUpdate() DoCmd.SetWarnings False On Error Resume Next On Error GoTo Error_Message DoCmd.RunCommand acCmdSaveRecord Me!Order_Survey_No.Locked = True...

on the form you could put some code on the on load event like if isnull(Me![FieldName]) then Msgbox" There are no matching records" DoCmd.Close acForm, "FormName", acSaveNo EndIf [This message has been edited by Geoff Codd (edited 04-24-2002).]

wouldn't something like this work for you DateDiff("y",[startdate],(Date()+10)) [This message has been edited by Geoff Codd (edited 04-24-2002).]

month = month: Left([date],2) day = day: Mid([date],3,2) year = year: Right([date],2)

i think the problem you've got relates to zero values to overcome this check out nz in help

for first name use FirstName: Left([name],InStr(1,[name],",")-1) for last name use LastName: Right(Trim([name]),Len(Trim([name]))-InStr(1,[name],",")) Are you really sure that you want to split the date into 3 fields would it not me better to convert it to mm/dd/yy

if you e-mail me a copy of you database i'll fix and e-mail back to you

show me an example of how the data looks, is there a gap between first last name or a comma etc

use the dateadd function combined with the format function to convert dd/mm/yy to yy/mm/dd [This message has been edited by Geoff Codd (edited 04-23-2002).]

are the dates stored as date fields or are they text fields

Double click the actual pie chart Select the data labels tab then you can select values or percentages to be shown

the quickeset way is to set the file path as a hyperlink in the properties of the button

what format is the date field ie 01/01/01 or Jan '01 etc

create an import specification and name that in you import code

put this in the default value field =Format(DateAdd("m",1,Date()),"mmmm")

I've got the following code that I can't get to work If Me.NewRecord Then Me!AddOrder.Visible = False Me!PreviousRecord.Visible = False Me!NextRecord.Visible = False ElseIf Me.RecordCount = 1 Then Me!AddOrder.Visible = True Me!PreviousRecord.Visible =...

If anyone out there has a database with working code to disable the mousewheel on forms and subforms Please e-mail it to me Thanks Geoff