Recent content by Marat

http://www.accessvba.com/showthread.php?s=&postid=57342

Copy some picture to clipboard. E.g. in Paint application click Ctrl+A to select all and Ctrl+C to copy. So you can see "Paste Face" item in toolbar context menu. Let's click it.

http://www.accessvba.com/showthread.php?s=&threadid=2798

use something like: SELECT Q.Country, Q.MaxSupplierID, MAX(SELECT MAX(CompanyName) FROM Suppliers WHERE SupplierID=Q.MaxSupplierID) FROM (SELECT Max(Suppliers.SupplierID) AS MaxSupplierID, Suppliers.Country FROM Suppliers GROUP BY Suppliers.Country) Q

try to use CommandButton from fm20.dll (Microsoft Forms 2.0 library) or something like www.vmgroupsoft.com/VMFlatControls.htm

If you need SQL-query use: 1) SELECT StartNo, (SELECT Sum(iif(A=1, 1, 0)+iif(B=1, 1, 0)+iif(C=1, 1, 0)+iif(D=1, 1, 0)+iif(E=1, 1, 0) ) FROM tblSport WHERE StartNo=T_M.StartNo) As [1], (SELECT Sum(iif(A>=1 and A<=2, 1, 0)+iif(B>=1 and B<=2, 1, 0)+iif(C>=1 and C<=2, 1, 0)+iif(D>=1 and D<=2, 1...

There are two solutions RowSourceType depended. 1. Values: Private Sub lbxListBox_DblClick(Cancel As Integer) Dim sSel As String If Nz(Me.lbxListBox) = "" Then Exit Sub sSel = Me.lbxListBox Me.lbxListBox.RowSource = Replace(Me.lbxListBox.RowSource, sSel & ";", "")...

Change TabIndex properties

It's possible if you have unique ordering field (SupplierId) 1) create a textbox with ControlSource: =DCount("*";"Suppliers";"SupplierId<=Forms!Suppliers!SupplierID") 2) add that field into your query: SELECT DCount("*","Suppliers","SupplierId<=" & T_S.SupplierID) As SeqNum, * FROM Suppliers...

Hi, i hope this information will be useful for all who want to extend possibilies of user's interface: New freeware and shareware components are presented on: www.vmgroupsoft.com - Continuous form columns manipulations. Horisontal scrolling with frozen column. Hiding and reordering of columns...