Save as Dialog Box appear 3 times when saving a text file from exe

[33216CLC]

Hi,

It is very odd, but while running the compiled version of my program, the save as dialog box works fine. However, when I run the executable version, it appears again when I click on Ok. I click OK again and it closes then appears again. The third time I click OK, it closes and does not appear again.

Why would this happen in the executable, and not withthe compiled version?

Thank,
Cooleen
[sig][/sig]

 

[swilliams]

Can you paste the code?? [sig]<p>Simon<br>[/sig]

 

[33216CLC]

Here is the code, Simon.

Private Sub Export()
Dim Status As String
Dim PType As String
Dim Class As String
Dim rs As Recordset 'Payroll
Dim rsemp As Recordset
Dim sEmp As String
Dim sql As String


opendlg.Filter = &quot;Text File (*.txt)|*.txt&quot;
opendlg.FilterIndex = 0

opendlg.ShowSave
sFile = opendlg.FileName

If sFile = &quot;&quot; Then Exit Sub

Open sFile For Output As #1


sql = &quot;select database1.* from database1 order by [Last], [First]&quot;
Set rsemp = dbData.OpenRecordset(sql, dbOpenSnapshot)

If Not rsemp.BOF Then
While Not rsemp.EOF
If rsemp![Status] = &quot;ACTIVE&quot; Or rsemp![Status] = &quot;Active&quot; Then
Status = &quot;A&quot;
Else
Status = &quot;T&quot;
End If

With rsemp

If WITH_LABOUR Then
sEmp = FormatField(NullToStr(![Id_Num]), 10, &quot;R&quot & FormatField(NullToStr(![Last]), 20, &quot;L&quot & _
FormatField(NullToStr(![First]), 20, &quot;L&quot & FormatField(NullToStr(![Middle]), 20, &quot;L&quot & _
Filler(11) & Filler(10) & &quot;F&quot; & &quot;H&quot; & &quot;S&quot; & _
FormatField(NullToStr(![USER13]), 20, &quot;L&quot & Filler(30) & Filler(30) & Filler(2) & Filler(5) & Filler(10) & _
FormatField(NullToStr(Status), 1, &quot;L&quot & Filler(10) & Filler(10) & _
Filler(19) & &quot;0&quot;
Print #1, sEmp
Else
sEmp = FormatField(NullToStr(![Id_Num]), 10, &quot;R&quot & FormatField(NullToStr(![Last]), 20, &quot;L&quot & _
FormatField(NullToStr(![First]), 20, &quot;L&quot & FormatField(NullToStr(![Middle]), 20, &quot;L&quot & _
Filler(11) & Filler(10) & &quot;F&quot; & &quot;H&quot; & &quot;S&quot; & _
FormatField(NullToStr(![USER12]), 20, &quot;L&quot & Filler(30) & Filler(30) & Filler(2) & Filler(5) & Filler(10) & _
FormatField(NullToStr(Status), 1, &quot;L&quot & Filler(10) & Filler(10) & Filler(9) & &quot;0&quot;
Print #1, sEmp
End If
End With
rsemp.MoveNext
Wend
End If


Close #1


End Sub [sig][/sig]

 

[33216CLC]

Hi Simon,

Have you had the opportunity to look at the code I pasted?

Cooleen

 

[nullgod]

Hi Cooleen,

I had the same problem some time back, but in Access-VBA (97).
When I called a function on a form from the menubar it called it 3 times. Microsoft told me they would have a look at it for $185, so I worked around it by calling a function in a global module from the menu and calling my form function from the global, and somehow this stopped the triple repetition!. I couldn't find the cause, most other menu functions were fine with about 4 menu functions with the problem. I don't know if this is related to what you have but the '3' seems a strange coincidence.

Michael

http://www.Swift-Infotech.com.au

 

[33216CLC]

Thank you, Michael. It may not be related, but it is worth looking into.

Thanks alot,

Cooleen