Search:

I have the following recordset:

Dim rs As DAO.Recordset
Set rs = CurrentDb.OpenRecordset("SELECT Productid, code, categoryid,supplierid, size, ddu, grossprice,

office,cons,vip,dealer,pref...

Thank you for your reply ! It works just fine ! Thank you !

Sorry.Please do aplogize me. Hereis the attachement

I have a report that shows the liters per quarter for all the years and it works fine.I want however to have a report showing the liters per month and not per quarter for all the years.Also, i need...

Thank you very much ! The query is perfect and i thank you very much for that !!!

Thank you for your reply.I got the following error with the sql:"The Microsoft Jet database cannot find the input table or query "select ClientID,Max(CallDate) as LastCallDate From CallsClients GROUP...

I have 2 tables tblClients and CallsClients.I have a query with a field CallDate.
SELECT [TblClients].[ClientID], [CallsClients].[CallDate]
FROM TblClients INNER JOIN CallsClients ON...

You need to execute the same code in the On Current event of the form. This event occurs when the user moves to another record. The easiest way to do this is to call Command2_Click:


Private Sub...

Try this:


Private Sub CmdACustomer_Click()
With Me.CmdACustomer
If .Value = True Then
.Caption = "customer"
.ForeColor = vbBlack
Me!LblACustomer.Visible = True
Else

Why would you use a toggle button here? It's easier for the user to click the check box.

Thank you for the reply.
Because i want to change the caption on the same button.When the check box is...

I want to have a toggle button that enters yes ot no values in the table and changes the caption of the button.
The button should be names contact but when pressing the value yes hsould be entered...

Do you have list boxes ListCVL1, ..., ListCVL8?
If so, add the following line inside the For ... Next loop:

Me.Controls("ListCVL" & i).Visible = f

Or do you have a single list box ListCVL?
In...

I have a wonderful function for making lables visible and invisible.:
Sub ShowCVL(f As Boolean)
'ShowLabels True; ShowLabels False
Dim i As Integer

For i = 1 To 8 ' change to number of...

I have a problem with clearing the form.My functions worki only once but after that they stick.For example on pressing the button ltr the result is ok.After that on pressing the button drum the...

The Filter property should be a text string that represents the WHERE part in an SQL statement. Try changing

Me.Filter = Me!ltr > 0

to

Me.Filter = "ltr > 0"


Thank you for the advice the...

You could use code like this. It will toggle the visibility of text boxes and labels in the Detail section: the first time it is run, the controls will be hidden, the second time they will be made...

I get th error invalid use of null.
Me.FilterOn = True
Me.Filter = Me!ltr > 0


I want to filter the form showing only the products with ltr>0
Can yo hlp me with the error ?

How can i make visible and invisible all the text boxes and labels in the detail section of the form ? But not in the form header?

Andrew is correct, you can't do it all in one SQL statement.
Alternatively, you could add the fields after creating the table:

DoCmd.RunSQL "SELECT ProductsPanolin.CodePanolin,...

I am making a new table by copying fields from the old table as follows
DoCmd.RunSQL " SELECT ProductsPanolin.CodePanolin,ProductsPanolin.GradePanolin,ProductsPanolin.ltr INTO TblPricesPanolin FROM...

You don't have to remove the Euro sign by hand:
- Open table2 in datasheet view.
- Click in the grade column.
- Select Edit | Replace...
- Enter a space followed by the Euro sign in the Find What...

It works! thank you !


As i have written, the code

StrSQL = "UPDATE table2 SET table2.price = Mid([grade],InStr([grade],'L')+2), table2.grade =

Left([grade],InStr([grade],'L')-2)"

works...

You can't store both values in the same field 'pack' - you should use two different fields, e.g. 'pack' and 'size'.

You could use code like this:

To extract the last number (after the 'x'):
...

Your table doesn't contain a field named price. Before running the code, create a field price of type Currency in the table.

PS it would be nice if you provided some feedback to the replies you...

Thank you very much for the fine suggestions they worked and i am pleased with the results!