Search results

the SQL is: SELECT TBLALLHRDetails.HRRefID, TBLALLHRDetails.IDFKFullStaffDetailsID, TBLALLHRDetails.HRReferenceNumber, TBLALLHRDetails.OCCReferenceNumbers FROM TBLALLHRDetails;

Okay I'll have a look and post it up tomorrow, thank you 😊

That's a little beyond me tbh, I. Still learning VBA :/

Basically they two reference numbers from different departments sometimes they match which means it goes to a different sorting agent and other times they don't, the text "DO NOT MATCH" will be the name of the sorting agent but ease of use for the code I have used that until I get it working :)

Hi all The two fields are in the same form but within a subform?

Hi All I have a Table in a form with multiple fields I am trying to do an IF Statement that if two fields do not Match then the status Text box Box reads "DO NOT MATCH", on after update of the field, I have managed to do it but the issue I am having is that it also updates the other entries, is...

I have VBA code that opens up a specific intranet webpage depending on the reference number, is there a way to do a VBA if statement that if a specific sentence is shown in the body of the website then it does a certain task, e.g. automatically closes the IE webpage and shows a popup message on...

Hi all is it possible to use the mouse wheel to scroll through a text box?, I have the vertical bar but I seem to have to drag it to move down?

Hello I tried both codes and showing an error of Object Variable or with b block variable not set? I am guessing I put it after the END WITH line Public Function FUNC_ChangeAddress() 'Input data into Niche Dim IE As Object Set IE = New InternetExplorerMedium With IE .Visible =...

Hi All I have an IE webpage that I want to auto click a button in VBA when it automatically fills in the page, I have got the Auto fill to work just cannot work out the button click any suggestions? Button Is called Submit in in HTML <input type="submit" value="Save Changes" name="B1"> Set...

Hi all I cannot seem to get this to work any suggestions, the isnull is just being ignored [Forms]![FRM_ALL_LoggedSplashPage]![DefaultExamLocation] is a separate form which runs in the back ground, I have tried If Isnull ([Forms]![FRM_ALL_LoggedSplashPage]![DefaultExamLocation]) Then...

Hi all on my database I have macro buttons to close tabs etc, is there a way to disable the main window close 'X' button for the whole of the access database?

Hi all I have buttons that when clicked provides default text into a text box, I know how to insert this into an empty the text box but how do I do this so it doesn't delete the text already in the text box but on a new line

The error 287 appears to be a security error on outlook I have done a work around and done the whole body of the Email text ect in the coding which seems to work inputting UCase([Forms]![FRM_TBLALL_CaseDetails].[Form]![ReportREF]) where i need to. much be the Replace it doesnt like

Hi Gasman I have done myitem.body = Replace(myitem.body, "ENTERHSREF", UCase([Forms]![FRM_TBLALL_CaseDetails].[Form]![ReportREF])) but I keep getting another error code of Run time error "287"

I am genuinely really confused now, I have minimal knowledge of VBA and I think it is best I forget it as it appears to be well above my knowledge thank you all for the help with the first bit :)

Hello Both I haven't been reluctant, the reasons being is our forms have several sub forms that everything runs off and it was far easier to give an example rather than post the mammoth length of code to get to the sub form and i also provided the Runtime error 424 My Current Code for running...

Hello Gasman Thanks for the code, seems to be going into debug runtime error 424, and highlighting that code Dim oWo As Object 'Outlook.Application Dim oDoc1 As Object 'Word.Document 'Set oWd = New Word.Application Set myOlApp = CreateObject("Outlook.Application") Set...

Thank you!, would you know how to replace a piece of text in an Email body to show a value form the form field?

if I need to put it in the after update event can I just go Public Function strReplace(varValue As Variant) as Variant Select Case varValue Case "/" strReplace = "-" End Select End Function