Search results

maybe 1 table with "AcctType" to input whether "user" or "service".

here, test Form1.

Have you tried it yet: SELECT tblParts.* FROM tblParts WHERE ID NOT IN (SELECT tblParts.ID FROM tblParts WHERE (DCOUNT("1","TBLPARTS","ID=" & [ID] & " AND ISNULL(IDSUPERIOR)=TRUE")>0 AND DCOUNT("1","TBLPARTS","ID=" & [ID] & " AND ISNULL(IDSUPERIOR)=FALSE")>0)); result: ID Name Level...

This is what I get on FB.

wow, you really took time to build that class of yours, when people would prefer to do it using the manual way.

I am 100% sure.. Metallica:LOL:

Trump the Master of Puppet and Israel is his puppet. On the very first day of this war, we can see how Trump warned the people of Iran of the attack. He also warned them to evacuate Iran and called for the Surrender of Iran. Whose war is it? He knows that the Iranian are not serious on halting...

use third party tools to "normalized" their loudness like "WavePad Sound Editor".

here is another demo. Also check if there is Overlapping booking.

you must have Reference (in VBA) on Microsoft Offix XX.X Object Library (XX.X being the version you have). while on VBA, press F2 and search "msofile" (without quote).

should be: =DLookUp("RentPerBed","FloorTable","FloorID=" & Nz([FloorID],0))

i think that you have Standard tables for your Employee's right? so misspelling them on data entry is not acceptable. you also Standardized the naming of your clients/companies. So when it is time to Filter your Transactions/Assignments would be very easy and mistake will be avoided. you devout...

copy this code in module: Public Function WIA_RotateImage(sInitialImage As String, _ lRotAng As Long, _ Optional sOutputImage As String) As Boolean On Error GoTo Error_Handler Dim Img As Object, IP As Object Dim ext As...

as suggested by the others, you can create a new table (junction table) that will hold the companyID and assigned employee to it (tblEmpCompanies). see form CompanyEmployeeForm to see which employee is assigned to which customer. open AssignmentForm form for your assignment and see the company...

another possibility is do a a simple rotation of employees. see AssignmentForm and see the code behind it. this will give "balance" assignment and everybody gots equal chance to get assigned.

post #2 is correct but need to remove the quote (post #3): Expr1: Replace([booktext2],[forms]![Formfindword]![Text0],"<font color=red>" & [forms]![Formfindword]![Text0] & "</font>")

do not use Replace, create a UDF that will replace the string. if you use Replace, the Text will be replaced of whatever the Case of the replacing word. in your sample, if Text0 is all in lowercase and the original text is in Uppercase, the word will be replaced with lowercase, which disturbs...

there is another version from CoPilot: [Code] const // Value returned by GetBinaryType for a 64-bit executable. SCS_64BIT_BINARY = 6; // Registry key where Office application paths are stored. AppPathsKey = 'SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths\MSACCESS.EXE'; function...

Inno script provided by CoPilot: [Code] function GetOfficeBitness(): string; var RegKey: string; Bitness: string; begin Bitness := 'Unknown'; // Check for 64-bit Office RegKey := 'SOFTWARE\Microsoft\Office\'; if RegQueryStringValue(HKLM, RegKey + '16.0\Access\Database Engine'...

maybe you can use Temporary table. i added tables: 1. DatiPrecedenti - you put here the previous values for DARE and Avere. 2. TempTabella - this is used by the report. On the Open event of the Report (rtpTest1), using VBA this table got filled with records.