Search results

the code below should solve your problem Function findNrSeasons(datum1 As Date, datum2 As Date) As Integer Dim dm1 As Integer, dm2 As Integer dm1 = Month(datum1) * 100 + Day(datum1) dm2 = Month(datum2) * 100 + Day(datum2) findNrSeasons = (Year(datum2) - Year(datum1)) * 4 If...

I don't know if this can solve your problem but you could automatize the whole like this: If Date > Dateserial(Year(Date),31,8) then Me.Flag.DefaultValue = Year(Date) Else Me.Flag.DefaultValue = Year(Date)-1 End If HTH filo65

try as follow: dim strRes as String, strMan as String strMan = Left(me!manufacturer,2) & Mid(me!manufacturer,4,1) strRes = Ucase(me![product name]) & Ucase(strMan) & Ucase(Left(me![product type],4))

Yes I could, but you can't compare the computational speed. filo65

Hi, maybe some of you have the right hint for me: when I use a self-written C function in access I declare the function with its Library etc in a module and then it is ready for use. Is there a way to create a kind of "XLL" to be load and use in mdb? TIA filo65

Do you Line or Lines in your Table? filo65

Hi Dylan, thank you. I'm getting older! I should have thought by myself to this solution!! I guess anyway, it becomes a little bit tricky when willing to keep a single CrossTab query (I entered two groups, but imagine having dozens). One query filtered trough the page's name/caption would keep...

Hi, the title like my problem is a little bit messy, but maybe some of you can give me the right hint. I have a table with information that I display in a Crosstab query. To give a small appeal to the output and to make it a little bit more readable I created a form with a Tab Ctrl. Every page...

you could also use CLng " WHERE [DateField] Between " & CLng(Me.txtStartDate) _ & " And " & CLng(Me.txtEndDate) & ";" I use it for German - US Systemd

Hi, why instead of using DatePart(..) don't you use Day(), Month() Year() ? and Dateserial(...) to recombine. Filippo

take a look at this code HTH Filippo

Look at the Err Object Example in Access Help Is it what your looking for? Filippo

Simply use On Error Goto... statement Filippo

Have you tried with DoCmd.OpenForm "Main Input Form", , , "[Pat ID] = '" & CLng(Me.List0.Column(0)) & "'", acFormEdit ?? Filippo

The programming of the menu bar and the assignment to the Menu Bar property are solution I tested already, without success. Doing this, and as you suggest, you get the MenuBar linked to the form but NOT IN the form (it is a small but significative difference!!) Filippo

Set your status Data Type in System table to Yes/No and assign to the Radio Button in your form following Option values: In -> -1 (true), Out -> 0 (false) HTH Filippo

You could try with something like: Dim db as database Dim rs as recordset Set db = CurrentDb Set rs = db.OpenRecordSet("SELECT NOME, ENT FROM eti_tl WHERE NOME _' " & Me!nome & "' AND ENT = '" & Me!ent &"';") If Not rs.EOF then rs.close Set db = Nothing Exit Sub End If HTH Filippo

Hi, I wonder if someone can help me. I'm looking to put a menubar for a specific form IN the form itself (like in VC++); I have been looking around for a solution but I couldn't come up with anything. Any suggestion is welcome? Thank you in advance Filippo