Sarcastic is hating. I don't hate, I forgive. I'm not competitive. I don't play Win-Lose. It's win-win or no deal.

Even the VB category is mostly for VB.Net not for VB6. I can understand that VB6 is over a decade old and everyone thinks it's old hat, but Access keeps on going with more releases every so often. As far as I know the latest version is MSAccess 2013. It's viable and I have written some programs for myself and others that we can't live without. So come on guys. Give us desktop database managers a place. Have a heart!

This works: Private Sub cmdPlay_Click() Const ksBSlash As String = "\" Dim sFilespec As String ' Note: This code requires the: WindowsMediaPlayer activex (wmp.dll) ' first add it to resorces then add it to a form as an activex componet. ' cboTuneLU has these fields: ' ID ' Filename ' Path On Error GoTo ERR_cmdPlay_Click ' Get the path & filename from cboTuneLookup sFilespec = Me.cboTuneLU.Column(2) & ksBSlash & Me.cboTuneLU.Column(1) Me![WindowsMediaPlayer7].openPlayer sFilespec EXIT_cmdPlay_Click: Exit Sub ERR_cmdPlay_Click: 'Debug.Print CStr(Err) & " " & Err.Description ShowError "frmLyrics.cmdPlay_Click" Resume EXIT_cmdPlay_Click End Sub

I connect them by using a select query. Access is all about tables, querys and records

The user actually selects the filespec (path & filename) from the open dialog box. I split the filespec into Path and filename and store each into their corresponding fields in a record. I know the path is correct because the open dialog opens to the correct folder. This was working great, but now It does this. I would sure like to find out what the return values of this API function mean. I tried every number fro 0 to 10 in the show parameter of the shellexecute API call. The record is define as: tblMP3 ------ MP3Seq autonum index MP3ID long MP3VerID integer MP3Path text MP3File text I wanted to be able to save more then one song file. The artist's version and a karaoke version. That's what the MP3VerID is for. The MP3ID field is the same as the autonum field in the lyrics table. I have had this program for a number of years. VB's Shell has been used all this time. But now on Win 7 I get a security message blocking me from using it. That's when I discovered ShellExecute. Any help will be appreciated Roger

I created an access Lyric database. Then I added a table and a combo to hold song file data. Then, when the user selects a song and clicks play the code below gets executed. When I first did this it went well. WMPlayer opened up and played the song. Now it opens up the open dialog wanting me to select the file. It returns a 42. This is the first time I used this API command. Any help will be appreciated.

Private Sub cmdPlay_Click()
Const klShowApp As Long = 1
Dim sPath As String, sFile As String
Dim lReturn As Long

' cboTuneLU has the following columns
' 0 Version ID
' 1 MP3 File
' 2 MP3 Path

On Error GoTo ERR\_cmdPlay\_Click

sFile = ksQuote & Me.cboTuneLU.Column(1) & ksQuote
sPath = ksQuote & Me.cboTuneLU.Column(2) & ksQuote
lReturn = ShellExecute(Me.hWnd, "open", sPath, vbNullString, sFile, klShowApp)
Stop ' returns 42

EXIT_cmdPlay_Click:
Exit Sub
ERR_cmdPlay_Click:
'Debug.Print CStr(Err) & " " & Err.Description
ShowError "frmLyrics.cmdPlay_Click"
Resume EXIT_cmdPlay_Click

End Sub

Except when you're wrong as there is no one perfect. The way to perfection is to always blame others for your mistakes.

There's the shell command in VBA. Have you tried this?

Poking characters into the keyboard buffer is a good way to automate an external application. It has worked in DOS and all windows OSes including XP. But now I have Win 7 and every time I tried to use it I get Denied! Does anybody know of a workaround since sendkeys doesn't work anymore?

I'm working on a simple encryption scheeme. I get the asc value of the a character in the string to be encrypted. Adding 255 to it turns it into a uniocode char. Then I use AscW to convert that char into a long. Then I convert the long to a hexidecimal. I store this as the encrypted string in my access database. It looks good sE='the string to be encrypted' for i=1 to len(sE) lValue = Asc(mid(Se,i,1)) + 256 sNew=sNew & format(hex(lvalue),"0000") next i Then I store this string in my access database. The problem lies when I decrypt the encrypted string sE='increpted string' for i=1 to len(se) step 4 lvalue="&h" & mid(se,1,4) sNew=sNew & ChrW(lValue) next i All I get is a lot of ?'s Instead of the unicode string?. Any advice would be appreaciated - Roger

I look at it as a challenge. Stopping this person from gaining access to my computer is a win for me and frustration for him. You see hackers, they have an illusions of grandeur type personality. They think that just because they can gain entrance to another person's computer makes them king of the world. I'm here to prove otherwise! He's still using the same old tricks but the tools to defend against hackers are getting better. His days of being a hacker will soon come to an end and I just want to be around to laugh at him. He who has the last laugh laughs best!

Oh I have his ip. Bitdefender Report -------------------- A port scan was detected and blocked: 2013-08-19-08:46:59 Local IP: 71.85.107.43 Remote IP: 72.21.81.253 Protocol: TCP

I know for sure he is on Charter Communications. Thanks for reminding me, but doesn't his IP change every time he logs on?

Bitdefender reported this morning that it had shut down a port scan. That was good news because what it really told me was that the root kit was gone. with the root kit installed he didn't need to bother about a fire wall. He had an unlocked back door. The last time I did a clean install of windows I had turned off auto run on all drives. I had deleted the autorun.inf from my USB drive that contains my drivers and bitdefender files. Still the root kit got put back on. This time I found Panda USB Vaccine. I immunized my USB drives and it worked. Now Microsoft tells me that I can't activate windows because it has bee activated too many times. Any help with that would be really appreciated. Thanks for your time

I understand and I just wanted to do it to try and discover who he was. That is all. Thanks for responding.

I've been having hacking trouble for I believe just one hacker. It's been going on for over a year now. I got a vb portscan program to find open ports. What then?