Recent content by arnelgp

there are a lot if you google search it. don't look for old version prior to A2007.

tyry reading some MS Access books, it will help you a lot.

see this demo. open frmEyeExams form. see the code on the MouseMove event of the subform. see the code of the button.

i dont think your current code will work. first of all once you clicked the button that will generate the "timeslot", the subform will loose it's focus, therefore all selection is erased. you need to add code to the subForm's MouseMove event to capture those records (you must have PK...

you also try this: Public Sub ExtractAllAttachments(ByVal TableName As String, ByVal AttachmentColumnName As String, ByVal ToDirectory) Const cNEW_FILE_FIELD As String = "[UnitCard]" Dim rsMainRecords As DAO.Recordset2 Dim rsAttachments As DAO.Recordset2 Dim outputFileName As String Dim...

on your Report, you can also do it using Conditional Formatting. on design view of your report, click on the WifeLastName textbox. Add conditional formatting (Ribbon->Format->Conditional Formatting). Rule: Field Value is Equal [HusbandLastName] set the Forecolor to White (or NoColor). (note...

Calculate the Diff on your query and use the Diff column on your Form: modify your query: SELECT Nz(Stop_Current,0)-Nz(Current_Price,0) AS Diff, * FROM (SELECT Investments01_tbl.Stock_Name, Investments01_tbl.Symbol_Stock, Investments01_tbl.Investmentl_ID, Investments01_tbl.Stop_Current...

=[Form]![CreditInvoices_Subform]![Text25] and also on Property->Format->Format: Standard to show the commas.

I suggest to remove them, since your query will work without them. I think you just copy what the SQL designer suggested. Public Function getCommonName(sGenus As String, sSpecies As String) As String Dim sQry As String sQry = "SELECT A.Common " & _ "FROM Common_Names as A " &...

Control Source: =[Form]![Invoice_Subform]![txtTotalBillAmount]

add the formatting, but not as Expression. add the format to the query designer.

not tested: SELECT YearMonth, Avg(PaidTime) AS AveragePaidTime, Avg(SpreadTime) AS AverageSpreadTime, Avg(BreakTime) AS AverageBreakTime, Avg(tblDuties.Overtime) AS AverageOvertime FROM ( SELECT Format([DutyDate],"yyyy mm") AS YearMonth, tblDuties.PaidTime...

Your SD is String. You need to convert it to Date (CDate() function). Also your Format$() is wrong. Either it is in American date format or ISO date format. I already give you the query before, you just need to modify it.

do you only monitor the job's progress as a whole or do you still monitor what materials has been used/installed? does the quotation include the quotation price (job estimate) for the job?

see query 2 in design view. and see the query 3