Search results

Ok I'm going to try and work this out but its really hard to since I don't have a db with example data in it to step through. I did however notice you are setting your recordset rst to use the variable db before db is declared. This would be one fix and I'll post others as I get time to find...

Instead of what you currently have try this. Changes in red ' Determine Duplicate Names Private Sub txtLastName_LostFocus() Dim rs As DAO.Recordset Dim strSQL As String Dim iAns As Integer If Me.NewRecord Then ' Only check for new additions strSQL = "[PLastName] = """ & Me.txtLastName _...

I'm a little confused at what you actually want your output to be. You said you want to account for personnel and to take their schedule into consideration right? Consideration to what? What specifically do you mean account for? Do you mean that if they didn't show up to work on time or not at...

I really think it's something to do with the template file your trying to use but I might be wrong. The reason why is when you did a debug.print and it returned nothing then that tells me there is nothing that the replace function can find and replace. I'm not sure I have a good answer for...

Can you put a couple of examples of what strSQL actually returns by using debug.print just before you try to execute it. just put debug.print strSQL and post some of the results here please. Thanks,

Pbaldy posted a really nice reference but maybe it's just as simple as opening two recordsets to the same data and by doing that you can retrieve the data necessary to produce the time difference. Eg. not tested typed in post dim db as database, rs as dao.recordset, rs2 as dao.recordset...

lol Gotcha :D Thanks for the feedback and I'll give it a go.

Is the text files delimited by anything? A comma or a semicolon, etc...?

... When did posting for help in a forum turn into an advertisement board :/ People need to learn to work through their problems and this is a great resource for learning so please post your advertisements in the proper area's like small business or whatever. Thanks

I see you referenced a TimeStoped field but is their a TimeStarted field or are you comparing it to the Enter Date?

I understand what you are saying but without seeing some code that you already have or posting an example db then I cannot help. Please provide the additional info as much as you can.

Can you post a sample db and I'll help you out?

Maybe try the following. Changes are in red. Dunno if it will work but it looks like it. Public Function DetermineShift() 'Determine Current Shift Dim WD As Integer, WDP As Integer Dim Bt As Date 10 On Error GoTo ErrorHandler 20 strSQL = "DELETE * FROM tblCurrentShift" 30...

Gotcha try using your replace function on the .body of the object like this instead of the one you have. Instead of: objMail.HTMLbody = Replace(objMail.HTMLbody, "%reasonforvisit%", strRFV) Try: objMail.Body = Replace(objMail.Body, "%reasonforvisit%", strRFV)

I would recommend putting a debug.print right before your line that does the replace and check your objects html. Something like below and post the findings here. debug.pring objMail.HTMLbody objMail.HTMLbody = Replace(objMail.HTMLbody, "%reasonforvisit%", strRFV)

Can you post the template that you are trying to use for your emails?

Is the name of the string really "%reasonforvisit%" or is it reasonforvisit? The reason I ask is are you using the % signs as wild cards or is that the actual text? If you trying to use wild cards then don't but if they are not then disregard my comment.

Are you saying that you want to load an array in access with the data from an excel sheet to make it faster?

Good Morning Everyone, I am looking for some opinions on the fastest way to locate text within a text field and assign a value if specific text is matched. So here is the scenario: Lets say you need to locate the word WPV, NVM, and WKZ in everyrecord between a certain date and time. So...

I found the issue. The issue stems from intellisense not showing the .add function. By default I selected what intellisense told me was available .addslides but this function does not operate in the correct mannor to create a new slide. By adjusting: With .Slides.AddSlide(1, pptLayout) =...