Search results

Trebby, namliam has provided is a definite improvement performance wise. Use the code! lol Private Sub Workbook_Open() Dim sht As Variant Application.ScreenUpdating = False Application.Calculation = xlManual For Each sht In Worksheets sht.Unprotect "craig"...

check your update history and see if any of it affected your development drivers. I feel like your instinct will show you the rest of the way in consideration with which affected drivers to look for.

I had a system where we literally had everything in separate tables and linked together... [ORDER] 1 -> N [Parts] N -> 1 [PART_LINK] 1 -> N [CARS] Something like that maybe?

I honestly hope your VBA is locked along with the sheets, even with vba locked I know of a way to edit the workbooks source and change the password, but I'm sure this security is just for the user's curiosity protection lol.

Try this out... Private Sub Workbook_Open() Dim sht As Variant For Each sht In Worksheets sht.Unprotect "craig" sht.Protect "craig", UserInterfaceOnly:=True sht.EnableOutlining = True Next End Sub

I didn't edit anything, I simply pointed out that you're fields don't match as I would expect them to.

Try this out. SELECT Format([Open Date],"yyyy-mm-dd") As Open_Date, Account FROM Table GROUP BY [Open Date], Account HAVING [Open Date] >= #4/6/2014# And [Open Date] <= #4/5/2015#;

show the entire query please.

You're taking the wrong approach... well half way lol. You're going to have to change the query up to filter by course. If you wish to, you could create a combo box in the form header that displays all the distinct course names. On the selection of a course it would filter the query results by...

UPDATE JobTicket_024 SET file = Replace([file_name], "networkOldPath", "mappeddriveNewPath")

One thing I need to know is, is this in a query definition or in a vba module? The reason I ask is the double quotation marks will be different in these two environments.

You could always separate the two fields, one date, one req_no. Then when you wish to display the information on reports you can pass it to a combining function that will format the two values to display that. Unless you're parsing the data from another source, I would take this route. There...

Honestly, I feel like you're dropping a spec on this forum. Show us, in detail, where you currently stand with coding and design issues. Also, give this book a read: Don't Make Me Think Reading this "spec" was like getting slapped awake at 3AM and told to solve the rubix cube. :) Cheers

Try this out Public Sub Wtf() Dim TB1 As Recordset: Set TB1 = CurrentDb.OpenRecordset("Table1") Dim p As String: p = "E:/Reports /*.xlsx" Dim fileList As Variant: fileList = GetFileList(p) If IsArray(fileList) Then For i = 0 To UBound(fileList) If...

Try this out... Private Sub SaveSpecialtyReport() Dim MyPath As String: MyPath = "C:\Documents and Settings\80435\Desktop\" Dim MyFilename As String: MyFilename = "Specialty Report.pdf" 'Let's print and save. Once you see it works, you can change True to False so...

From what I can see, the rstUpdate!AddNew is within a deeper scope than your rstUpdate![Column ID] = This is what is probably creating the problems.

Not a problem :)

Why wouldnt you use a combo box that displays the distinct codes to select from? Source: "SELECT DISTINCT code FROM table"

Private Sub btnSearch_Click() If Len(txtSearch.Value & vbNullString) > 0 Then WebBrowser0.SetFocus SendKeys "^f", False SendKeys txtSearch.Value, False SendKeys "{ENTER}", False SendKeys "{ESC}", False End If End Sub

Did you import a custom browser control, or reference a specific dll? WebBrowser0.Document doesn't exist in the base setup.