Search results

Hi Princess, What you need to do is stip time portion from your date. Create a new field in your query like this: =CDate(Format([DateField],"m-d-yy")) Then use Date() as the criteria for that field. Good luck. ~Abby

Hi Serendipityww, Here is a function that will do what you're asking. Paste the code below into a new module. It accepts a variable number of fields and/or static values. Here is an example of the syntax used to call it: AvgGrade([Factor],[Tech1],[Tech2],[Tech3]) The Factor should be a double...

Based on the information in your post, Jack's suggestion is the better one IMHO. But, in case there's something about your DB we're not aware of, here is a function that will do what you ask. It was made specifically for the conditions you described. So, if your ID format changes the function...

Just sent it off. If you have any questions just let me know. BTW, I wasn't sure what version of Access you're running. So, I created it in 97. But, it should work fine in 2000 as well. Hope it helps. One more thing, the sub I created creates duplicates of the current record. I figured it would...

Sorry I wasn’t more explicit in my original post. I’ll try to sort things out. In your query's design view there should be black lines connecting the [StudentID] field in your main table to each of the yearly tables, yes? This line represents the join relationship of the tables it connects. By...

I don't know exactly how your query is set up. So this is a bit of a shot in the dark. However, try changing the relationship between your main table and the yearly tables to include all items from the main table and only those records in the yearly table where the joined fields are equal. To do...

Is [BV] defined as a number in your source table? If not, this might do it. QRY = "SELECT * FROM tblMain_BV WHERE (cint([BV]) BETWEEN cint(" & tbox_BV_min & ") AND cint(" & tbox_BV_max & ")) ORDER BY [BV];" ~Abby

If I'm understanding your question correctly then you can use a DLookup in the combobox's default value. Something like: =DLookup("[User]", "[Preparer List]", "[Computer] = '" & CurrentComputer &"'") where CurrentComputer is your function that returns the computer name. Good Luck. ~Abby

What you may want to do is break out GradeCaption and GradeSort into a separate table and relate them back to the original table. That should solve your problem and have the additional benefit of reducing your overall file size. Access even provides a handy tool for exactly this situation. Go to...

The easiest way I've found to do this is to code a command button that moves to the last record then sets the default values of the fields you'd like to duplicate equal to the current record. From there it should be a simple matter to create x number of records. If you need help with the code...

Hello everyone. I have here a function I wrote to forecast sales. Basically, I’m trying to adapt Excel's 'Forecast' function for use in Access 97. The code below works, but is rather slow. I'm hoping someone can help me improve it. The function pulls from a table, tblMonthlySalesAll, that...

Greetings. This select statement in your Row Source should do it. SELECT worksheet.[PO#], worksheet.OurPartNumber, worksheet.Description, worksheet.CustomerID FROM worksheet WHERE (((worksheet.CustomerID)=[Forms]![FormName]![BillTo])); However, you also need to code the After Update event of...

It worked fine on the combo box I created in a test database in Access 97. Are you getting an error? If so, what data type and format is the ‘Month’ field in your table? I believe the original formula, or a similar variation, will work. However, as an alternative, you had mentioned that you...

Hello Chris. If your months are in an abbreviated format (Jan, Feb, Mar, ect...) then place this in the combo's Default Value. =Format(Date(),"mmm") If you use the full names of the month then use four M's instead of three. Good luck. ~Abby [This message has been edited by Abby N (edited...

http://www.access-programmers.co.uk/ubb/Forum4/HTML/002765.html

Goconnect, take a look at my post just before your last one. It gives this code: If Me.RecordsetClone.RecordCount = Me.CurrentRecord Then DoCmd.GoToRecord , , acFirst Else DoCmd.GoToRecord , , acNext End If That should do what you want. Basically the code says “If the current record is the...

Hi. I think I understand what you're trying to do. Place this code in the forms 'On Timer' event: If Me.RecordsetClone.RecordCount = Me.CurrentRecord Then DoCmd.GoToRecord , , acFirst Else DoCmd.GoToRecord , , acNext End If Then set the 'Timer Interval' to 1000. Now the form will cycle through...

Hi Joe. The command to convert text to date is CDate([Text_Field]). If you change the 'SDate' at the beginning of your formula to 'CDate', the result should be a date data type. =CDate(Left([SDate],2) & "/" & Mid([SDate],3,2) & "/" & Right([SDate],2)) Good luck. ~Abby

Hi Joe. I'm also guessing that it's not recognizing MMDDYY as a date. If that's the case then this should do it. =Date()-CDate(Left([SDate],2) & "/" & Mid([SDate],3,2) & "/" & Right([SDate],2)) Hope this helps. ~Abby [This message has been edited by Abby N (edited 04-25-2001).]

Hi. Here's a link to a page that talks about this for reports. I don't see why you couldn't apply it to your subform. Hope it helps. http://www.mvps.org/access/reports/rpt0010.htm ~Abby