Recent content by MadMax7

Hope someone can help i have the following code PARAMETERS [Between [forms]![frmPreviewReports]![txtStartDate] And [forms]![frmPreviewReports]![txtEndDate]] DateTime; TRANSFORM Count(qryClusterA.ClusterXfers) AS CountOfClusterXfers SELECT qryClusterA.Interval, Count(qryClusterA.ClusterXfers)...

I am trying to write a module with the following code If Name like '*119*' Then CorrectName = "Macclesfield " & Name elseif Name like '*118*' Then CorrectName = "Stockport " & Name End If i need to run this code for about a 1000 different outcomes but the code is stopping and highlighting the...

Hope someone can help i have the following code that returns any data before a space in the name field Left([Name],InStr([Name] & ' ',' ')-1) i also have the following code that returns any data before a "-" Left([Name],InStr([Name] & "_","_")-1) i was wondering if it would be possible to...

sorry do you mean i need to add a primary key into one iof the tables

Hope someone can help I am trying to run the following delete query SELECT tblAlternativeNetworkCallDetail.*, CDate(Left([StartDateTime],10)) AS Expr1 FROM tblAlternativeNetworkCallDetail INNER JOIN tblMidTermAnsPoints ON tblAlternativeNetworkCallDetail.TAD = tblMidTermAnsPoints.TAD WHERE...

Remou i have sorted ut the issue above and it sorts fine however i am now getting a run time error saying record to large and it selects rst!Field1 = strField1 do you know what could be causing this?

Remou thank you for your response i have updated my code and when it runs i am getting runtime error 3061 Too few parameters.Expected 1

I have the follwing code to fill in any blank records i have in field1 Set db = CurrentDb() Set rst = db.openrecordset("tblInitialAgentCcsData", dbOpenDynaset) rst.MoveFirst Do While Not rst.EOF strField1 = rst!Field1 rst.MoveNext Do While IsNull(rst!Field1) rst.edit...

I hope someone can help, i have used the following code from thread 705-892728 Dim ImportFile ImportFile = Dir("C:\Program Files\Alcatel\A4400 Call Center Supervisor\Excel\DAILY\Agents\18_09_06\*") Do While ImportFile <> "" DoCmd.TransferSpreadsheet acImport, 8, "tblInitialAgentCcsData"...

ProgramError thanks for your help i have looked at the Instr() function, would i have to inputt all the STd's for it to look for and thenm put a space or is there be a quicker way to do this? thanks again

i do have another table that shows me all STD's and there delivery points but i have no way of linking the tables together

sorry to sound a bit thick but what do you mean by splitting the number down beacause of the issue of some std being 4 5 or even 6 numbers was why i thought about using a wildcard

I have a list of customer telephone numbers (field Name "CLINumber")in a table what i need to be able td do is to confirm form the inital std code what area the call should have been deliverd to. so i want to set up a module to check each record for example if the customer number is 01132151239...

i hope some one can help i am pulling my hair out with this one I have the following code DoCmd.TransferSpreadsheet acImport, 8, "tblInitialQuoteData", "H:\Retail Network\Public\0800Plan\Ops Team\Non Motor & Internet\NSU man tracking V6.XLS", NO, QuoteDatabyName when i run the code i get run...

I hope someone can help, i have the following code on the open event of a form to find a specific record Me.Recordset.MoveFirst Do Until Me.Property_Ref = Forms!frmPropertyBasicDetails!PropertyRef Or Me.Recordset.EOF Me.Recordset.MoveNext Loop thios works fine if there is a...