Search results

Not practical, the inteli sense box is need for bold etc.

Yes, unfortunately Before Update does not work either. I need to Text format to revert to the default settings upon Exiting the text box. It does not work with On Exit too. Thanks

I need to check after data entry that the text format of a Rich Text box (for html display purposes) is of the correct text format. I am not concerned about the content only that it is Calibri Size 12 and the correct colour has not been changed by the user. This code does not do it. Private...

Thanks - got it TabClients.Value = TabClients.Pages("Shoot").PageIndex ' [Forms]![F-Clients].[SF-Shoot].Form.TabShoot.Value = 3 [Forms]![F-Clients].[SF-Shoot].Form.TabShoot.Value = [Forms]![F-Clients].[SF-Shoot].Form.TabShoot.Pages("Invoicing").PageIndex

I have a main form called F-Clients On this form there is a tab control tabClients On this tab control (tabClients), on tab 2 Shoot, there is a subform SF-Shoot On this subform SF-Shoot, is another tab control TabShoot. On this tab control (TabShoot) , tab 3 is Invoicing I need to open the...

I have found this code that works fine in Outlook 2010 but in Outlook 2016 it gives me an error 91 (variable not found) on the .Execute line Am I missing something? - Thanks . Dim nmsName As Outlook.Namespace Set nmsName = Outlook.Session If nmsName.Offline = False Then If MsgBox("Do you...

SOLVED Cells(2, iCol + 1).Value = "=VLOOKUP(B2,'[SFE macro Remittance.xlsm]SITS'!$A$2:$C$" & iDataRow & ",2,FALSE) & ""B"""

Nice approach using .Formula but unfortunately no success. Still keeps coming up subscript out of range. I feel inserting the ampersand is the problem. Thanks

Sorry no. Remember we need to add to the existing VLOOKUP string an ampersand and B in quotes to join it onto the VLOOKUP string that works. Thanks

Thanks for your quick response. That syntax goes red immediately it is not quite right. Just tried Cells(2, iCol + 1).Value = "=VLOOKUP(B2,'[SFE macro Remittance.xlsm]SITS'!$A$2:$C$" & iDataRow & ",2,FALSE) & ""B""" and that did not work either. I got the same error I have been getting...

I have a line of VBA code as follows with works fine: Cells(2, iCol + 1).Value = "=VLOOKUP(B2,'[SFE macro Remittance.xlsm]SITS'!$A$2:$C$" & iDataRow & ",2,FALSE)" In the Excel spreadsheet the cell formula reads =VLOOKUP(B4,'[SFE macro Remittance.xlsm]SITS'!$A$2:$C$25727,2,FALSE) This...

GOT IT - all OK; just don't need the TRUE after MyMail.Display as eMail needs to be open for objSelect BUT not in Modal (TRUE)

I have been trying to get this to work but without success. My original source was http://www.slipstick.com/developer/merge-email-without-using-word/ The code looks good apart from the fact that the Inpector was not Dimensioned. Anyway, here is my code which fails as the error message is...

Can anyone tell me why this line of code Open strFileName For Binary Access Read Write Lock Read Write As #1 in the above post creates a file of the same strFileName when it runs. (my file is a .pdf and so will not open anyway as it has no data) I am now using Kill strFileName to get...

Try SELECT Endkundenadresse" .* FROM tblDatenAusExcelNeu-2 WHERE (((Verkaufsbeleg.Endkundenadresse) ='" & str & "'))"

DoCmd.RunCommand acCmdSaveRecord Tried the code Me.Dirty = False without success I am now thinking I need to go to another new record to get the previous one to save but enter now data into the new one.

I have a Main form with a Tab Control with a number of bound Sub Forms, each on several tabs. I create a New Record on the Main Form and then move to another tab and then add data to a subform on a tab on what will of course be a New Record. Despite using the Docmd.RunCommand accmdsaverecord...

I am not sure what else I can say. The QueryDef will create the query that the Report needs as the RecordSource. Until you get the query def correct, then of course it will not work. This is why I said at the very start of this, create a query manually that works and then by taking the SQL...

One small point that will tidy up your coding and make it easier to follow is to use the clear nomenclature for Queries, Forms and Reports. By this I mean instead of qryRespExec use Q-RespExec similarly frmNewMOR becomes F-NewMOR RptNewMOR becomes R-NewMOR A bit pedantic and OCD perhaps but...

Try replacing this part of your code Dim fso As Object, SourceFolder As Object, SourceFile As Object Set fso = CreateObject("Scripting.FileSystemObject") Set SourceFolder = fso.GetFolder("C:\dbtemp\") For Each SourceFile In SourceFolder.Files .Attachments.Add SourceFolder.Path & "\" &...