Recent content by ninja_imp

something strange happened - while stripping down `the db to attach i thought i would give it a quick go and it worked! - dont know what or how - i didnt remove anything attached to the main form but it worked! But i still cannot seem to get it down to a smaller enough size to be able to...

I have a data base which a main form with the customer info on - the db has been pre populated with around 500 records so all the cusotmer name and address and so on is already there. what happens is when someone speaks to the relevant customer they can create a call back or just leave history...

hi managed to get a result: DDay = Day(Now()) Dim NewDate As Date NewDate = DateAdd("yyyy", Me.cmbYear, Date) NewDate = DateAdd("m", Me.cmbMonth, NewDate) dtoday = NewDate todaydate = dtoday - DDay 'get first day of the month DDate = todaydate many thank s for your help

im using that at the minute - or trying to - with the below: currentDate = Date DDay = Day(Now()) Dmonth = DateAdd("m", MonthNow, currentDate) DYear = DateAdd("yyyy", YearNow, currentDate) dtoday = DateSerial((DYear), (Dmonth), (DDay)) with MonthNow and YearNow both getting their values form...

Code works great - thanks - used it a bit different and made it so the number is controlled by a combo box so a year can be chosen - but can i do it so that also the month can be be changed? Regards

excellent i'll give it a go. thnx

hi is there any way that i can increase the value held in date() by 1 year or 2 or so on? regards

Im trying to build a dynamic calendar - which will show appointments against the relevant date. but then the listboxs will display only for the current days in the month and so on......Well thats the idea - not sure if its the best one though! Regards

GOT IT - slightly amended to #" & Format(DDate, "yyyy-mm-dd") & "# and now works across all fields - many thanks for your help

hi just made the change on the #" & (DDate) & "# and the first list box is now returning the correct results - but the other two are still empty. The plan for this is to have 31 listboxs and have them populated by this one function - but because i need the date to increment by one each time...

hi im having a really stupid day and still cant quite get my round what you mean?!! Sorry I have 3 list boxes and i want each one to list results from the tbl_Appt based on the date contained in DDate. But instead of the list box showing the result - it just displays the sql statement itself...

hi im sorry but im not quite sure what you mean - im still really learning the ropes!!! regards

HI I am trying to populate 3 list boxs with data from a table. I have the below code but all i seem to get is the table name or sql statement entered into the listbox. I wonderd if anyone had any ideas? Code follows: Option Compare Database Private Sub Form_Load() Dim...

I seem to have got it working now thanks but one more thing, when a value is entered or updated the calculation doesnt update itself unles you close and re open the form or move forward 1 and then back again! Any ideas how i can get it to do it after a value has been entered? Cheers

HI I finally got a function to sort of work but cant understand why it is doing certain things the idea is that it calculates the total of Pubprice and then inserts it into the TestPayment field. Now the function only works on the first customer on the comp screen but when you change to...