Recent content by samotek

I want to write a function looking into a query : SELECT Customers.afid, orders1.customerid FROM Customers INNER JOIN orders1 ON Customers.Customerid = orders1.customerid; With the following condition : If customers.afid = 3 , to update the order1.cusomerid to 124 Like that : UPDATE Customers...

I want to build a common function that is functioning when a certain form is opened and nothing happens when such a form is not opened.I presume I must use the line If ISOpened but I cannot do it properly.Could you help me ? Public Function MyBack() If IsOpened Forms!frmClients Then...

My code i have shown StrSQL = " DELETE tblClients1.*, tblClients1.afid FROM tblClients1 WHERE (((tblClients1.afid)>1))" works OK. I want to ask, is it somehow possible to refer to the first row of the field in the table. If the field is called afid, for example if the value of the afid in the...

Is there any way to refer to figure in the frist row of the field in the table. The field is called afid.For example, if the figure in the first row is 1, or afid = 1, then to delete all the other figures: StrSQL = " DELETE tblClients1.*, tblClients1.afid FROM tblClients1 WHERE...

I have a syntax error in my folloiwng code. Would you help me to fint it ? Dim StrSQL As String StrSQL = "DELETE tblEstate.*Houses FROM tblEstate WHERE (((tblEstate.Houses.Value) Not In (SELECT Max(tblEstate.Houses.Value) AS MaxOfValue FROM tblEstate.Houses)))" CurrentDb.Execute StrSQL End Function

I want to make a delete query that deletes all the items that are in the minorty. For example, in the field “ Houses ” there are 10 rows with value 1 , 3 rows with value 3 and 4 rows with value 6. In this case I must delete all values except the value 1 I suppose the code should use...

Even though i put the command DoCmd.Maximize in the OnOpen event of the form, the form does not take the whole space of the screen, but is somewhat shortened. How can i make my form spread over the whole space of the screen ?