Recent content by darinmc

Thx I have done that now... Didnt really think about it.. Would have liked to see a macro, bit more flexibility and maybe try a bit of different programing. Any suggestions on finding good examples or samples? Thx darin

Hi I have no experience at macros in Excel. I would imagine i need to use the lookup function, but no idea in creating a macro and then formatting the colours! Col C - holds Invoice Date Created Col D - I would like to be the number of days since Inv created. When I run the macro, i would like...

Thx, i looked up the replace and found a simple example... Code below works Private Sub chkTsh_Click() If Me.chkTsh = True Then Me.tInvNote = "t/s " & Me.tInvNote Else Me.tInvNote = Replace(Me.tInvNote, "t/s ", "") End If End Sub Sample code found 'Dim MyString ' A binary comparison...

That wont work as i have 2 check boxes 1 inserts "t/s " the other inserts "e/t " these can be in any order, therefore i need it to find the specific keywords to remove Thx DArin

Hi I have a check box, that when clicked it inserts "t/s " at the beginning of a text box keeping other comments that may be in already... When I uncheck the box, I dont want the text box to be null, I want it to remove just the specific part, "t/s " Is this possibe? and how? Private Sub...

Hi I have a query and am using the below Dim StrFileName, StrFile StrFileName = "TEST100" StrFile = "\\Lynxserver\lynx\Payroll\NewEmployeesSAGE\" & StrFileName & ".csv" DoCmd.TransferText acExportDelim, , "SAGE UnionTEST", StrFile, False The csv file always has the same name How do I get the...

Is there a way of exporting from access directly into the template, CSV file? I have been thinking of an easier solution and more practical one... Within a week, there could be between 1 and 15 + employees, what would be ideal is: When exporting from access, if i could do it directly into the...

Hi Its a query I have in the database, I then click a command button to export as a txt file without headers. I would like to export it as a csv file with headers. The code is: (using the docmd.transfertext) Private Sub cmdNewEmptxt_Click() Dim StrFile, StrFileName, StrEmpNo, StrEmpName '---...

Hi I have sort of asked this question before and was just wondering if it is possible at all??? I'm trying to get the data into a Sage Payroll CSV file, one of the problems is that the field name is: Contact Telephone No. in the query below, part of the code is: Null AS [Contact Telephone...

Hi I have an InputBox and am trying to validate it... How do I force the user to ONLY type in numbers I.E. like an input mask? ##/##/## InpValue = InputBox(InpMsg, InpTitle) Dim InpTitle, InpMsg, InpDefault, InpDt Dim InpValue As Date InpMsg = "PLEASE ENTER INVOICE DATE - E.g. 23/05/07"...

Thx I tried the above but it didnt seem to do anything different... I'm trying to get the data into a Sage Payroll CSV file, one of the problems is that the field name is: Contact Telephone No. in the query below, part of the code is: Null AS [Contact Telephone No], I have tried quite a few...

Hi, I have this code to create a csv file Private Sub cmdTestCSV_Click() Dim StrFile StrFile = "\\Lynxserver\lynx\test" & ".csv" DoCmd.TransferText acExportDelim, , "SAGE EmployeeDetailsTemplate", StrFile, False End Sub Below is the query in Access... The field in BOLD/RED is a bank sort...

The below code is taken from the module Public Sub setFrmInfo() Dim rs As DAO.Recordset Dim lngCount As Long Dim lngID As Long Dim strType As String DBEngine.SetOption dbMaxLocksPerFile, 20000 Set rs = CurrentDb.OpenRecordset("qryUtable", dbOpenDynaset) Form Load I have included...

ok, I realise you put those commands [strFormInfo] = "OldOdd" into the conditional format... I will continue playing around with this as its starting to take shape now. Thx for the moment :-) Darin

Hi Thx for that response.. I have rebuilt another form.. This works a lot quicker. I created the txt box [strFormInfo] and sized it along the row and with conditional format, the colour is now ok. [strFormInfo] = "OldEven" (yellow on yellow) [strFormInfo] = "OldOdd" (white on white) i'm...