Replies

Hello

There’s no need to worry about me – I’m alive and well even though I have stopped posting here. (And no, this reply does not herald my return.)

Thanks for everybody’s interest!

Slinky (aka HansV)

Sorry, can’t help then. I don’t have Office 2007 myself.

See RED X instead of graphics for some suggestions.

Can’t you simply right-align the values?

The default template is named NormalEmail.dotm and it is stored in your user templates folder. The default path of this folder depends on the Windows version; %appdata%MicrosoftTemplates should get you there in Windows Explorer regardless of the version.
(Note: you need to display hidden files and folders in Windows Explorer to see the Application Data or AppData folder)

Whether the file size will be 0 depends on the way the POS application writes the file – in one chunk or in smaller steps. But it’s worth a try.

You can check the file size before opening the file, by using the FileLen function:

Code:

Dim strFile As String
Dim lngFileSize As Long
strFile = "..."
Do
  DoEvents
  lngFileSize = FileLen(strFile)
Loop Until lngFileSize > 0
Open strFile For Input As #1
...

You might try opening the text file for output first. As long as the POS application is writing the file, that should not be possible, so you should get an error that you can intercept using an error handler.
If you succeed, close the file, then reopen it in the mode you want.

Try

vartitle = DLookup(“ISBN”,”tbl_main”,”Replace(Replace(Replace(ISBN,”” “”,””””),””-“”,””””),Chr(13),””””)='” & Replace(Replace(Replace(Me.ISBN_No,” “,””),”-“,””),Chr(13),””) & “‘”)

This version will ignore carriage returns (ASCII character 13). If that doesn’t work, try changing both occurrences of Chr(13) to Chr(10)
ASCII character 10 is the line feed.
If that doesn’t work either, try Chr(13) & Chr(10)
This is the carriage return/line feed combination.

We’d have to see the actual values that the scanner places into the table. Could you post a (zipped) database with a small sample table? (We don’t need to see the entire database)

Is it possible to rename a Note? and if so, How is that done?

Only by changing the first line of the contents of the note. The “subject” of the note is calculated dynamically, it cannot be set separately.

Which legit security software are you using at the moment? I use Norton AntiVirus and I’ve never been infected with any of these rogue security programs. I once got a message that Windows AntiVirus 2009 (or similar) found a large number of infections. I killed my browser then restarted Windows and nothing had been installed…

No, not really. You’d have to turn on track changes before sending the workbook, but this automatically turns on sharing the workbook. As mentioned, sharing a workbook is dangerous, it can easily cause the workbook to become corrupted.
The alternative is to create a sheet with formulas that compare corresponding cells in the original worksheet and the edited one.

Almost every year, “Bohemian Rhapsody” by Queen is #1, with “Hotel California” by the Eagles close behind. The only exception was 2005, when the fan club of Dutch singer Boudewijn de Groot managed to vote one of his songs into the number 1 position.

This year, three songs by Dutch singer Ramses Shaffy ended up in the top 10, no doubt because he died early this month, so there was a lot of publicity about him in the media here. De mortibus nil nisi bonum, but 3 songs in the top 10 of best rock songs of all time is not very realistic…

I would have expected Michael Jackson to be popular this year, but only one of his hits is in the top 50.

Excel is very different from Word in many ways. It has been/is being developed by a completely different team.

You can’t use GET.CELL in a cell formula. You have to use it in a defined name, as Rory explicitly stated.

Select Insert | Name | Define… (in Excel 97-2003) or activate the Formula tab of the ribbon, then select Define Name | Define Name in the Defined Names group (Excel 2007 and presumably 2010).
Type CountOperands in the name box.
Type

=LEN(GET.CELL(6,INDIRECT(“RC[-1]”,FALSE)))-LEN(SUBSTITUTE(GET.CELL(6,INDIRECT(“RC[-1]”,FALSE)),”+”,””))+1+NOW()*0

in the Refers To box.
Click OK.

You can now use the formula =CountOperands in the cell to the right of a cell with a formula such as =2+3+5.