Recent content by ismith

Im not getting an error message. Its this part of the code thats not working: Set db = CurrentDb Set saveTotal = db.OpenRecordset("SELECT * FROM tblEndofDayTotal WHERE MyDate = " & Date) Set endTotal = db.OpenRecordset("EndofDayTotal") If saveTotal.RecordCount = 0 Then txtTotal.Value =...

I wrote the code myself. This if my full code for the whole page: Dim db As Database Dim endTotal As DAO.Recordset Dim saveTotal As DAO.Recordset Dim strsql As String Private Sub Form_Load() Set db = CurrentDb Set saveTotal = db.OpenRecordset("SELECT * FROM tblEndofDayTotal WHERE MyDate =...

Any ideas? i really need some help urgently

Thanks for the reply. I've tried this and its nt working. This is my code: Set db = CurrentDb Set saveTotal = db.OpenRecordset("SELECT * FROM tblEndofDayTotal WHERE MyDate = " & Date) Set endTotal = db.OpenRecordset("EndofDayTotal") If saveTotal.RecordCount = 0 Then txtTotal.Value =...

Hi, im making a form which calculates the total of a till at the end of the day. Once this is saved i enter it in a database called 'tblEndofDayTotal'. What i want to do is: Ive got a button which links to this form. So when the button is pressed, I want it to check the tblEndofdayTotal...

Thanks for that mate.

Hello, Ive got an order table with a few fields one of them being 'Paid' and one being PaymentDate Paid is the amount someone has made a payment for PaymentDate is the date the payment was processed. Now what im trying to make is a End of Day Total page which will Sum up all the payments made...

Hello, I have a combo box on an order form which the user can purchase products. Now what i want to do is when the user chooses a product, and wants to buy more, when the drop down is clicked that same product they have bought should not appear in the drop down list. To do this, In my...

Thanks for your reply. Ive created a query on my Product Table. what do u mean by 'Set the TOP VALUES property of the query to 1'? And another thing i wanted to know was is there any other way to do it besides this? Like having some coding as ive shown above. That used to work but since ive...

Hello, I have a form with bound textfields. These used to show the last record that was entered in it by using: Forms!frmProduct.Recordset.FindFirst "ProductID = " & DMax("ProductID", "tblProduct") that code used to work and it used to show the last product in the databse. What...

Hello, Im making an order system with a multi log in user page. The owner and staff can log on. Atm ive got it working so that if a staff logs on it goes to their main menu and if the owner logs on it goes to the owner menu. To do this ive used the following code: Public Sub...

Anyone know whats wrong? Need urgent help..

Hello, Ive got a form where a customer can place an order. now at the bottom i want to put an execute statement which will look at the product ID that has been ordered and make sure that it dont allow that one to be entered again. This is the coding ive got atm to do that: db.Execute...

Atm ive got this code Dim selectedDate, date16 As Date 'get the date 16 years ago date16 = DateAdd("yyyy", -16, Now) 'get the date selected from the calendar selectedDate = txtDOB.Value ' MsgBox dte16 ' MsgBox datSelected ' date selected plus 16 years must be...

So what will this do? Because ive got a Form which i can add customers. So the DOB txtbox is in that form. The code uve given above wt will it do? Thanks for the help..