Replies

After watching this, I’m not convinced that cloud backup is the way to go.
http://www.newsy.com/videos/our-lost-century-google-vp-warns-digital-media-could-vanish/

GeorgeLee and Berton, you guys are saying the Flash works for you in FF, but not in IE?

Thank you Joel for replying with a direction to take. Unfortunately, after trying this I got the exact same results.

I decided to then look up the Windows update error 0x80073712, which lead me to this page:
http://windows.microsoft.com/en-us/windows-8/windows-update-error-0x80073712

As you can see by the screenshots, the “DISM.exe /Online /Cleanup-image /Scanhealth” worked.
37489-Screenshot-14

However, “DISM.exe /Online /Cleanup-image /Restorehealth” initially looked like it was working and then didn’t complete.
37490-Screenshot-16

Here’s the log file:
http://www.captainken.us/files/dism.log

Not sure if this should be my next step as recommended in the error message, and I wouldn’t know where to begin with it.
http://go.microsoft.com/fwlink/?Linkid=243077

Good news, I got it to work and then some!

GetSQL:
“SELECT tblWarrantyToSend.Include, tblCompanyContacts.ContactName, [tblClients/Prospects].CompName, tblCompanyContacts.ContactID, tblCompanyContacts.Type, tblSubContracts.WarrantyType, tblSubContracts.Status, tblMainContracts.Model, tblMainContracts.SN, tblMainContracts.LocationDesc, tblCompanyContacts.Email, tblSubContracts.PrevExpire, tblSubContracts.SubContractID, tblCompanyContacts.Notes ” & _
“FROM [tblClients/Prospects] INNER JOIN (((tblWarrantyToSend INNER JOIN tblCompanyContacts ON tblWarrantyToSend.ContactID = tblCompanyContacts.ContactID) INNER JOIN tblMainContracts ON tblWarrantyToSend.MainContractId = tblMainContracts.MainContractID) INNER JOIN tblSubContracts ON tblWarrantyToSend.SubContractId = tblSubContracts.SubContractID) ON [tblClients/Prospects].CompID = tblCompanyContacts.CompID ” & _
“WHERE (((tblMainContracts.Model) Like ‘k*’) AND ((tblWarrantyToSend.Archive)=No)) AND ” & strW & _
” Order By ” & strOrder

Code:

    Dim db As Database
    Dim rsRen As Recordset
    Dim strSQL_Ren As String
    Dim strNote As String
    Dim strCurrentContactID As String

    Set db = CurrentDb

    strSQL_Ren = GetSQL
    Set rsRen = db.OpenRecordset(strSQL_Ren)
    
    ‘SET LOOP PARAMETERS
    strNote = Format(Date, “mm-dd-yy”) & ” The following warranty email(s) were sent:” & vbCrLf
    strCurrentContactID = “XXX”
    
    With rsRen
        .MoveFirst
        Do While Not .EOF
            ‘HANDLE RECORD NOTE INSERTION
            If strCurrentContactID  !ContactID Then
               If strCurrentContactID  “XXX” Then
                    .MovePrevious
                    .Edit
                    !Notes = strNote & !Notes
                    .Update
                    .MoveNext
                    strNote = Format(Date, “mm-dd-yy”) & ” The following warranty email(s) were sent:” & vbCrLf
                End If
                 strNote = strNote & ” – ” & !Model & ” – ” & !SN & ” – ” & !LocationDesc & ” – ” & !WarrantyType & vbCrLf
            Else
                 strNote = strNote & ” – ” & !Model & ” – ” & !SN & ” – ” & !LocationDesc & ” – ” & !WarrantyType & vbCrLf
            End If
            strCurrentContactID = !ContactID
            .MoveNext
        Loop
            
        ‘UPDATE LAST RECORD NOTE
        .MoveLast
        strNote = strNote & ” – ” & !Model & ” – ” & !SN & ” – ” & !LocationDesc & ” – ” & !WarrantyType & vbCrLf
        .Edit
        !Notes = strNote & vbCrLf & !Notes
        .Update
        .Close
    End With

    MsgBox “The process has been completed successfully!”

    db.Close
    Set rsRen = Nothing: Set db = Nothing

Thanks for all the help!

Ken

Sorry guys, here’s the GetSQL.

strSQL = “SELECT tblWarrantyToSend.Include, tblCompanyContacts.ContactName, [tblClients/Prospects].CompName, tblCompanyContacts.ContactID, tblCompanyContacts.Type, tblSubContracts.WarrantyType, tblSubContracts.Status, tblKeyWatcher.KwModelType, tblMainContracts.SN, tblMainContracts.LocationDesc, tblCompanyContacts.Email, tblSubContracts.PrevExpire ” & _
“FROM ([tblClients/Prospects] INNER JOIN (((tblWarrantyToSend INNER JOIN tblCompanyContacts ON tblWarrantyToSend.ContactID = tblCompanyContacts.ContactID) INNER JOIN tblMainContracts ON tblWarrantyToSend.MainContractId = tblMainContracts.MainContractID) INNER JOIN tblSubContracts ON tblWarrantyToSend.SubContractId = tblSubContracts.SubContractID) ON [tblClients/Prospects].CompID = tblCompanyContacts.CompID) INNER JOIN tblKeyWatcher ON tblMainContracts.MainContractID = tblKeyWatcher.MainContractID ” & _
” Where (((tblWarrantyToSend.Archive)=No)) AND ” & strW & _
” Order By ” & strOrder

GetSQL are the 197 records I need to loop through and then modify the Note field in the records within rsNote that match.

Thank you John, that made huge difference, but completely there.

The issue now is that GetSQL has a record set of 197 and rsNote has recordset of 1116. The code is modifying 197 records, but they are random and therefore it appears they are outside of the GetSQL recordset.

Also I can’t figure out where to put the Debug.Print as it is only showing one record.

Code:

Private Sub cmdTest_Click()

Dim db As Database
Dim rsRen As Recordset
Dim rsNote As Recordset
Dim strSQL_Ren As String
Dim strSQL_Note As String
Dim strNote As String
Dim strOldNote As String
                        
Set db = CurrentDb

        strNote = “testing 9”

        strSQL_Ren = GetSQL
        Set rsRen = db.OpenRecordset(strSQL_Ren)
        rsRen.MoveLast
        rsRen.MoveFirst
        MsgBox “There are: ” & rsRen.RecordCount

        strSQL_Note = “Select * From tblCompanyContacts”
        Set rsNote = Nothing
        Set rsNote = db.OpenRecordset(strSQL_Note)
        rsNote.MoveLast
        rsNote.MoveFirst
        MsgBox “There are: ” & rsNote.RecordCount

        Do While Not rsRen.EOF
                    With rsNote
                        strOldNote = rsNote!Notes
                        .Edit
                        !Notes = strNote & strOldNote
                        .Update
                        .MoveNext
                        Debug.Print strNote, ContactName
                    End With
        rsRen.MoveNext
        Loop
        
    rsNote.Close: rsRen.Close: db.Close
    Set rsNote = Nothing: Set rsRen = Nothing: Set db = Nothing
    
End Sub

Awesome John, thank you!!

Hello John. Not sure why but I never got an email indicating that anyone replied, so I never checked back until I got the urge today.

Yes it’s a double click on the sub form that open the RMA form.

I wasn’t aware of the acFormAdd and acFormEdit. Looks like you have better more standard and specific way to do it. I’ll give it a try.

Strange about the failed attempt at setting the DataEntry mode in code. Wanted to do it in case I accidentally changed it in properties at a future date. I like hard coding settings that have a major effect on how a process works, to be safe. Plus its’ a nice and easy to see what’s going on by just viewing the code and not hopping back and forth.

Thank you!

Ken

We have also used JVPT for many years.

My curiosity with your testing leads me to wonder if the majority of the hard drive space that was still being used in comparison to the base system could be found in the locations below?

TEMP files were located in:
C:UsersUSERNAMEAppDataLocalTemp
C:WindowsTemp

It is also common to find orphaned folders from uninstall programs in these common locations.
C:UsersUSERNAMEAppDataLocal
C:Program Files
C:Program FilesCommon Files
C:Program Files (x86)
C:Program Files (x86)Common Files
C:UsersUSERNAMEAppDataRoaming

It’s also common to find folders that begin with { and end with } in “C:UsersadminAppDataLocal” that are also left over from installs.

A colleague of mine wrote a vbs utility that clears the LocalTemp, WindowsTemp and folders starting and ending with {} that can be found at: http://www.captainken.us/utilities.htm

The only manual that you could ever hope to be up-to-date would be some type of online help, such as what Adobe provides for Photoshop. As many have pointed out FB changes to frequently, so don’t waste money on buying a book.

They just had major updates to the FB iPhone app that actually comes close to a joy to use. The new UI is very nice!

I agree with DragonXG that 25GB can be eaten up very quickly.

BTW, the correct Google labs link is http://labs.google.com/papers/disk_failures.pdf

Partition drive benefits:
We create images on a separate partition at specific installation intervals.
1) If no recovery partition, then an “out-of_box” image before the first boot into windows is created
2) All windows SP’s and updates, as well as desktop, taskbar, start menu , IE configuration tweaks. Only Admin account exists.
3) Office installed, user accounts created, and each account office settings tweaked. This includes importing Quick Access and Ribbon bar settings.
4) Flash, Java, and all other programs required for everyday usage. This includes all program configurations.
5) My Documents, Music, Video, Photos, Desktop, Favorites are all redirected to the Data partition.

This allows us to quickly go back to specific clean points with an images should the system become unstable, etc., with no worry about overwriting data. The images are always readily available. System Restore points are usually turned off. When the images are created we also make sure that the hibernation file and pagefile are don’t exist, which drastically reduces the image file sizes. Then we turn them back on when ready to put system back into use.

I also use a batch file “Multiple Dated Batch File Backups” which can be found here http://www.captainken.us/utilities.htm to backup all program configuration settings that are stored on the main C drive.

Regarding program drive (C drive) space requirements:
It doesn’t take much to file up 60GB of space with just programs when using Windows 7. Programs like Office, Adobe Suites, video editing programs, restore points, etc will eat up space very quickly. Not to overlook all the windows updates.

Watch out for Sync File Partnerships blot!
The article overlooked this area that I have just discovered. If you’ve created an Explorer jump list shortcut to an external drive, then you have a sync file partnership that has been setup. Here’s a good thread on the topic with examples on how to clean them up.
http://forums.techarena.in/vista-help/668593.htm

Another place disk space is wasted in these two locations with Temp files:
C:UsersadminAppDataLocalTemp
C:WindowsTemp

It is shocking by the amount of installation data that is left behind by various programs. It ranges from several MB’s to a GB or more!!

Therefore, we have developed a program ClearTempFiles.vbs that runs at boot or login that auto deletes these files in both locations. It works on WinXp, Vista and Win7 and we have it running on a large variety of systems. That being said, we take no liability for something going haywire and offer no support. You can download it from my site here http://www.captainken.us/utilities.htm . I came across this one from Bill James http://billsway.com/vbspage/ a few days ago, but haven’t tried it.

Here is where I had downloaded a copy from MS.
Office Backup Disc

I had a friend of mine send me a screen shot of his Office DVD, which shows a x64 and x86 as the main two folders on the DVD. Neither the MS download or my OEM install has that folder structure. Very strange that the download from MS doesn’t come with both.

I bit the bullet and ordered the actually DVD for $13.99 from the same MS site above and hoping it will contain both 32 and 64 bit versions.

Disappointing that neither MS or Dell give a choice of which version to get.

Thanks guys for the words of caution, but we had already done our homework (thanks to WindowsSecrets) before deciding on 64-bit.

Happy holidays!