Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

Register Log in
  • Congratulations SkipVought on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

Extra! Basic Error Disk Full Error 1

Status
Not open for further replies.
jschmidt1

jschmidt1

IS-IT--Management
Aug 13, 2015
12
0
0
US
I'm hoping someone could help me, I'm self taught writing macros, and am driving myself crazy with the following error "Disk Full Line Number 276 Stopping macro playback" My macro screen scrapes various values on the CSS screen, and writes those values to textpad. I have not been able to determine how the disk is full. There are times I run the macro and it fails after 60 records, I stop it, make no changes, rerun it and it will fail after 1200 records. Below is my code (I know it's not pretty, but it works until the memory fills)Speaking of which, I will be watching the task manager, and never see it run out of memory, etc. Thank you in advance for any help you can offer!

Sub Main()

Dim Sessions As Object
Dim System As Object
Set System = CreateObject("EXTRA.System")
If (System is Nothing) Then
Msgbox "Could not create the EXTRA System object. Stopping macro playback."
STOP
End If
Set Sessions = System.Sessions

If (Sessions is Nothing) Then
Msgbox "Could not create the Sessions collection object. Stopping macro playback."
STOP
End If
'--------------------------------------------------------------------------------
g_HostSettleTime = 109

OldSystemTimeout& = System.TimeoutValue
If (g_HostSettleTime > OldSystemTimeout) Then
System.TimeoutValue = g_HostSettleTime
End If

Dim Sess0 As Object
Set Sess0 =GetObject("C:\Program Files\EXTRA!\Sessions\Session1.edp")
If (Sess0 is Nothing) Then
Msgbox "Could not create the Session object. Stopping macro playback."
STOP
End If
If Not Sess0.Visible Then Sess0.Visible = TRUE
Sess0.Screen.WaitHostQuiet(g_HostSettleTime
Close #1
Close #2

Open "N:\OPS\COLLECTNS\Restricted\Management\JSchmidt\Macros\ROL500 Input.txt" For INPUT As #1
Open "N:\OPS\COLLECTNS\Restricted\Management\JSchmidt\Macros\ROL500 Output.txt" For OUTPUT As #2

Dim Sess1 as Object
Dim scr as Object

Do While Not EOF(1)

Input #1,acnt$

ACNT$ = LEFT$(ACNT$,16)

Sess0.Screen.Sendkeys("<Reset>")
Sess0.Screen.Sendkeys("<Clear>")
Sess0.Save
Sess0.Screen.WaitHostQuiet(g_HostSettleTime)
Sess0.Screen.WaitHostQuiet(g_HostSettleTime)
Sess0.Screen.Sendkeys("cis "& acnt$)
Sess0.Screen.Sendkeys("<Enter>")
Sess0.Screen.WaitHostQuiet(g_HostSettleTime)
Sess0.Screen.Sendkeys("css")
Sess0.Screen.Sendkeys("<Enter>")
Sess0.Screen.WaitHostQuiet(g_HostSettleTime)

Ret1$ = Sess0.Screen.Getstring(05,04,04)
Ret1a$ = Sess0.Screen.Getstring(05,26,05)
Ret1b$ = Sess0.Screen.Getstring(05,72,08)

Ret2$ = Sess0.Screen.Getstring(06,04,04)
Ret2a$ = Sess0.Screen.Getstring(06,26,05)
Ret2b$ = Sess0.Screen.Getstring(06,72,08)

Ret3$ = Sess0.Screen.Getstring(07,04,04)
Ret3a$ = Sess0.Screen.Getstring(07,26,05)
Ret3b$ = Sess0.Screen.Getstring(07,72,08)

Ret4$ = Sess0.Screen.Getstring(08,04,04)
Ret4a$ = Sess0.Screen.Getstring(08,26,05)
Ret4b$ = Sess0.Screen.Getstring(08,72,08)

Ret5$ = Sess0.Screen.Getstring(09,04,04)
Ret5a$ = Sess0.Screen.Getstring(09,26,05)
Ret5b$ = Sess0.Screen.Getstring(09,72,08)

Ret6$ = Sess0.Screen.Getstring(10,04,04)
Ret6a$ = Sess0.Screen.Getstring(10,26,05)
Ret6b$ = Sess0.Screen.Getstring(10,72,08)

Ret7$ = Sess0.Screen.Getstring(11,04,04)
Ret7a$ = Sess0.Screen.Getstring(11,26,05)
Ret7b$ = Sess0.Screen.Getstring(11,72,08)

Ret8$ = Sess0.Screen.Getstring(12,04,04)
Ret8a$ = Sess0.Screen.Getstring(12,26,05)
Ret8b$ = Sess0.Screen.Getstring(12,72,08)

Ret9$ = Sess0.Screen.Getstring(13,04,04)
Ret9a$ = Sess0.Screen.Getstring(13,26,05)
Ret9b$ = Sess0.Screen.Getstring(13,72,08)

Ret10$ = Sess0.Screen.Getstring(14,04,04)
Ret10a$ = Sess0.Screen.Getstring(14,26,05)
Ret10b$ = Sess0.Screen.Getstring(14,72,08)

Ret11$ = Sess0.Screen.Getstring(15,04,04)
Ret11a$ = Sess0.Screen.Getstring(15,26,05)
Ret11b$ = Sess0.Screen.Getstring(15,72,08)

Ret12$ = Sess0.Screen.Getstring(16,04,04)
Ret12a$ = Sess0.Screen.Getstring(16,26,05)
Ret12b$ = Sess0.Screen.Getstring(16,72,08)

Ret13$ = Sess0.Screen.Getstring(17,04,04)
Ret13a$ = Sess0.Screen.Getstring(17,26,05)
Ret13b$ = Sess0.Screen.Getstring(17,72,08)

Ret14$ = Sess0.Screen.Getstring(18,04,04)
Ret14a$ = Sess0.Screen.Getstring(18,26,05)
Ret14b$ = Sess0.Screen.Getstring(18,72,08)

Ret15$ = Sess0.Screen.Getstring(19,04,04)
Ret15a$ = Sess0.Screen.Getstring(19,26,05)
Ret15b$ = Sess0.Screen.Getstring(19,72,08)

Sess0.Screen.WaitHostQuiet(g_HostSettleTime)
Sess0.Screen.WaitHostQuiet(g_HostSettleTime)
Sess0.Screen.Sendkeys("<Enter>")
Sess0.Screen.WaitHostQuiet(g_HostSettleTime)
Sess0.Save

Ret16$ = Sess0.Screen.Getstring(05,04,04)
Ret16a$ = Sess0.Screen.Getstring(05,26,05)
Ret16b$ = Sess0.Screen.Getstring(05,72,08)

Ret17$ = Sess0.Screen.Getstring(06,04,04)
Ret17a$ = Sess0.Screen.Getstring(06,26,05)
Ret17b$ = Sess0.Screen.Getstring(06,72,08)

Ret18$ = Sess0.Screen.Getstring(07,04,04)
Ret18a$ = Sess0.Screen.Getstring(07,26,05)
Ret18b$ = Sess0.Screen.Getstring(07,72,08)

Ret19$ = Sess0.Screen.Getstring(08,04,04)
Ret19a$ = Sess0.Screen.Getstring(08,26,05)
Ret19b$ = Sess0.Screen.Getstring(08,72,08)

Ret20$ = Sess0.Screen.Getstring(09,04,04)
Ret20a$ = Sess0.Screen.Getstring(09,26,05)
Ret20b$ = Sess0.Screen.Getstring(09,72,08)

Ret21$ = Sess0.Screen.Getstring(10,04,04)
Ret21a$ = Sess0.Screen.Getstring(10,26,05)
Ret21b$ = Sess0.Screen.Getstring(10,72,08)

Ret22$ = Sess0.Screen.Getstring(11,04,04)
Ret22a$ = Sess0.Screen.Getstring(11,26,05)
Ret22b$ = Sess0.Screen.Getstring(11,72,08)

Ret23$ = Sess0.Screen.Getstring(12,04,04)
Ret23a$ = Sess0.Screen.Getstring(12,26,05)
Ret23b$ = Sess0.Screen.Getstring(12,72,08)

Ret24$ = Sess0.Screen.Getstring(13,04,04)
Ret24a$ = Sess0.Screen.Getstring(13,26,05)
Ret24b$ = Sess0.Screen.Getstring(13,72,08)

Ret25$ = Sess0.Screen.Getstring(14,04,04)
Ret25a$ = Sess0.Screen.Getstring(14,26,05)
Ret25b$ = Sess0.Screen.Getstring(14,72,08)

Ret26$ = Sess0.Screen.Getstring(15,04,04)
Ret26a$ = Sess0.Screen.Getstring(15,26,05)
Ret26b$ = Sess0.Screen.Getstring(15,72,08)

Ret27$ = Sess0.Screen.Getstring(16,04,04)
Ret27a$ = Sess0.Screen.Getstring(16,26,05)
Ret27b$ = Sess0.Screen.Getstring(16,72,08)

Ret28$ = Sess0.Screen.Getstring(17,04,04)
Ret28a$ = Sess0.Screen.Getstring(17,26,05)
Ret28b$ = Sess0.Screen.Getstring(17,72,08)

Ret29$ = Sess0.Screen.Getstring(18,04,04)
Ret29a$ = Sess0.Screen.Getstring(18,26,05)
Ret29b$ = Sess0.Screen.Getstring(18,72,08)

Ret30$ = Sess0.Screen.Getstring(19,04,04)
Ret30a$ = Sess0.Screen.Getstring(19,26,05)
Ret30b$ = Sess0.Screen.Getstring(19,72,08)

Sess0.Screen.WaitHostQuiet(g_HostSettleTime)
Sess0.Screen.WaitHostQuiet(g_HostSettleTime)
Sess0.Screen.Sendkeys("<Enter>")
Sess0.Screen.WaitHostQuiet(g_HostSettleTime)
Sess0.Save

Ret31$ = Sess0.Screen.Getstring(05,04,04)
Ret31a$ = Sess0.Screen.Getstring(05,26,05)
Ret31b$ = Sess0.Screen.Getstring(05,72,08)

Ret32$ = Sess0.Screen.Getstring(06,04,04)
Ret32a$ = Sess0.Screen.Getstring(06,26,05)
Ret32b$ = Sess0.Screen.Getstring(06,72,08)

Ret33$ = Sess0.Screen.Getstring(07,04,04)
Ret33a$ = Sess0.Screen.Getstring(07,26,05)
Ret33b$ = Sess0.Screen.Getstring(07,72,08)

Ret34$ = Sess0.Screen.Getstring(08,04,04)
Ret34a$ = Sess0.Screen.Getstring(08,26,05)
Ret34b$ = Sess0.Screen.Getstring(08,72,08)

Ret35$ = Sess0.Screen.Getstring(09,04,04)
Ret35a$ = Sess0.Screen.Getstring(09,26,05)
Ret35b$ = Sess0.Screen.Getstring(09,72,08)

Ret36$ = Sess0.Screen.Getstring(10,04,04)
Ret36a$ = Sess0.Screen.Getstring(10,26,05)
Ret36b$ = Sess0.Screen.Getstring(10,72,08)

Ret37$ = Sess0.Screen.Getstring(11,04,04)
Ret37a$ = Sess0.Screen.Getstring(11,26,05)
Ret37b$ = Sess0.Screen.Getstring(11,72,08)

Ret38$ = Sess0.Screen.Getstring(12,04,04)
Ret38a$ = Sess0.Screen.Getstring(12,26,05)
Ret38b$ = Sess0.Screen.Getstring(12,72,08)

Ret39$ = Sess0.Screen.Getstring(13,04,04)
Ret39a$ = Sess0.Screen.Getstring(13,26,05)
Ret39b$ = Sess0.Screen.Getstring(13,72,08)

Ret40$ = Sess0.Screen.Getstring(14,04,04)
Ret40a$ = Sess0.Screen.Getstring(14,26,05)
Ret40b$ = Sess0.Screen.Getstring(14,72,08)

Ret41$ = Sess0.Screen.Getstring(15,04,04)
Ret41a$ = Sess0.Screen.Getstring(15,26,05)
Ret41b$ = Sess0.Screen.Getstring(15,72,08)

Ret42$ = Sess0.Screen.Getstring(16,04,04)
Ret42a$ = Sess0.Screen.Getstring(16,26,05)
Ret42b$ = Sess0.Screen.Getstring(16,72,08)

Ret43$ = Sess0.Screen.Getstring(17,04,04)
Ret43a$ = Sess0.Screen.Getstring(17,26,05)
Ret43b$ = Sess0.Screen.Getstring(17,72,08)

Ret44$ = Sess0.Screen.Getstring(18,04,04)
Ret44a$ = Sess0.Screen.Getstring(18,26,05)
Ret44b$ = Sess0.Screen.Getstring(18,72,08)

Ret45$ = Sess0.Screen.Getstring(19,04,04)
Ret45a$ = Sess0.Screen.Getstring(19,26,05)
Ret45b$ = Sess0.Screen.Getstring(19,72,08)

Sess0.Screen.WaitHostQuiet(g_HostSettleTime)
Sess0.Screen.WaitHostQuiet(g_HostSettleTime)
Sess0.Save

WRITE #2,acnt$,Ret1$,Ret1a$,Ret1b$,Ret2$,Ret2a$,Ret2b$,Ret3$,Ret3a$,Ret3b$,Ret4$,Ret4a$,Ret4b$,Ret5$,Ret5a$,Ret5b$,Ret6$,Ret6a$,Ret6b$,Ret7$,Ret7a$,Ret7b$,Ret8$,Ret8a$,Ret8b$,Ret9$,Ret9a$,Ret9b$,Ret10$,Ret10a$,Ret10b$,Ret11$,Ret11a$,Ret11b$,Ret12$,Ret12a$,Ret12b$,Ret13$,Ret13a$,Ret13b$,Ret14$,Ret14a$,Ret14b$,Ret15$,Ret15a$,Ret15b$,Ret16$,Ret16a$,Ret16b$,Ret17$,Ret17a$,Ret17b$,Ret18$,Ret18a$,Ret18b$,Ret19$,Ret19a$,Ret19b$,Ret20$,Ret20a$,Ret20b$,Ret21$,Ret21a$,Ret21b$,Ret22$,Ret22a$,Ret22b$,Ret23$,Ret23a$,Ret23b$,Ret24$,Ret24a$,Ret24b$,Ret25$,Ret25a$,Ret25b$,Ret26$,Ret26a$,Ret26b$,Ret27$,Ret27a$,Ret27b$,Ret28$,Ret28a$,Ret28b$,Ret29$,Ret29a$,Ret29b$,Ret30$,Ret30a$,Ret30b$,Ret31$,Ret31a$,Ret31b$,Ret32$,Ret32a$,Ret32b$,Ret33$,Ret33a$,Ret33b$,Ret34$,Ret34a$,Ret34b$,Ret35$,Ret35a$,Ret35b$,Ret36$,Ret36a$,Ret36b$,Ret37$,Ret37a$,Ret37b$,Ret38$,Ret38a$,Ret38b$,Ret39$,Ret39a$,Ret39b$,Ret40$,Ret40a$,Ret40b$,Ret41$,Ret41a$,Ret41b$,Ret42$,Ret42a$,Ret42b$,Ret43$,Ret43a$,Ret43b$,Ret44$,Ret44a$,Ret44b$,Ret45$,Ret45a$,Ret45b$

Sess0.Screen.WaitHostQuiet(g_HostSettleTime)
Sess0.Screen.WaitHostQuiet(g_HostSettleTime)
Sess0.Screen.WaitHostQuiet(g_HostSettleTime)
Sess0.Screen.WaitHostQuiet(g_HostSettleTime)
Sess0.Screen.WaitHostQuiet(g_HostSettleTime)
Sess0.Screen.WaitHostQuiet(g_HostSettleTime)
Sess0.Screen.WaitHostQuiet(g_HostSettleTime)
Sess0.Screen.WaitHostQuiet(g_HostSettleTime)

XXX:
LOOP

CLOSE #1

msgbox "Your macro is complete, have a nice day."
End Sub
 
Sort by date Sort by votes
Hi,

I see several issues. 1) your Wait method and 2) your access method.

1. Your Wait method: You wouldn’t leave your house in the morning, pre-determining that each time you encountered an intersection
you would a) stop your car, b) Wait 109 seconds then c) immediately proceed into the intersection, without regard to anything or
anyone in the intersection, would you? Of course not! Each intersection is different, but in every case, you rely on feedback to
inform you how to proceed.

Likewise, when you used a terminal emulator vai code, since the mainframe may respond virtually immediately or with a significant
UNPREDICTABLE delay, you must use feedback to determine when to safely proceed. A fixed Wait period is not acceptable, neither is
stacking a few more, “just in case”.

I used this technique quite successfully:
Code: 
Do Until Sess0.Screen.WaitForCursor(row, col)
   DoEvents
Loop
...where row & col are the screen coordinates where the Cursor comes to rest after sending a command, like [tt].WaitForCursor(5, 2)[/tt]

2. Your Access Method: You really only need 3 variables to do the job with proper loops...
Code: 
‘Stuff before your Do While loop
Do While Not EOF(1)

   Input #1,acnt$

   ACNT$ = LEFT$(ACNT$,16) 

   WRITE #2,acnt$

   Sess0.Screen.Sendkeys("<Reset>")
   Sess0.Screen.Sendkeys("<Clear>")
   Sess0.Save
   Do Until Sess0.Screen.WaitForCursor(row, col)
      DoEvents
   Loop 
   Sess0.Screen.Sendkeys("cis "& acnt$)
   Sess0.Screen.Sendkeys("<Enter>")	
   Do Until Sess0.Screen.WaitForCursor(row, col)
      DoEvents
   Loop 
   Sess0.Screen.Sendkeys("css")
   Sess0.Screen.Sendkeys("<Enter>")	
   Do Until Sess0.Screen.WaitForCursor(row, col)
      DoEvents
   Loop 

   For i = 1 To 3
      For rw = 5 To 19
         Ret1$ = Sess0.Screen.Getstring(rw,04,04)
         Ret1a$ = Sess0.Screen.Getstring(rw,26,05)
         Ret1b$ = Sess0.Screen.Getstring(rw,72,08)

         WRITE #2,Ret1$,Ret1a$,Ret1b$
      Next

      Sess0.Screen.Sendkeys("<Enter>")
      Do Until Sess0.Screen.WaitForCursor(row, col)
         DoEvents
      Loop 
      Sess0.Save
   Next
XXX:
LOOP

CLOSE #1

msgbox "Your macro is complete, have a nice day."
End Sub

Skip,
[sub]
[glasses]Just traded in my OLD subtlety...
for a NUance![tongue][/sub]
 
Upvote 0 Downvote
Skip, thank you very much for your help! I tested the code, and it gave me the same error, but at line 90 this time (at the write) it successfully went through 227 records before failing, is there a way to clear the memory after the write?

Thank you again for all your help!
James
 
Upvote 0 Downvote
What code is line 90?

Skip,
[sub]
[glasses]Just traded in my OLD subtlety...
for a NUance![tongue][/sub]
 
Upvote 0 Downvote
“it successfully went through 227 records before failing,”

Is that how many records you got before? You previously mentioned 1200.

Did it run any faster/slower?

Can’t find a reason for memory to get bloated. Don’t know a method to flush memory.

Skip,
[sub]
[glasses]Just traded in my OLD subtlety...
for a NUance![tongue][/sub]
 
Upvote 0 Downvote
It's running at the same speed, the odd thing is that I have not been able to determine a rhyme or reason for when it fails.. There are times where it will go through a small amount of records and fail (the smallest amount of records I got through before failure was 60, and the largest is about 1200). I'm not making any changes, just re-running it and I will get through a different number of records each time. I have been watching the performance tab on Task Manager, and don't see the PC being over worked, I'm at a loss (for the record, my machine had 8GB ram, so should be more than enough for this)
 
Upvote 0 Downvote
What kind of mainframe are you hitting?

And what terminal are you emulatong?

Skip,
[sub]
[glasses]Just traded in my OLD subtlety...
for a NUance![tongue][/sub]
 
Upvote 0 Downvote
Disk full error

Your N drive is mapped. To a network drive?

You might check that. There might be some partitoning by your IT guys on your sub-server folder?

Skip,
[sub]
[glasses]Just traded in my OLD subtlety...
for a NUance![tongue][/sub]
 
Upvote 0 Downvote
It's a 3270 emulator, yes the N drive is a network drive, I'll have to check with them on Monday. I didn't consider that the network drive drive could be the issue, I'm going to write to the C drive to see if that makes a difference, I'll let you know how that run goes
 
Upvote 0 Downvote
3270 to an IBM mainfame? Just curious.

Skip,
[sub]
[glasses]Just traded in my OLD subtlety...
for a NUance![tongue][/sub]
 
Upvote 0 Downvote
Running it from my desktop makes it fly, and I cant slow it down. I think it's going so fast that it cant keep up with the screens
 
Upvote 0 Downvote
“I think it's going so fast that it cant keep up with the screens”

Not if you’re using a [tt]WaitFor...[/tt] method of feedback to get out of the [tt]Do Until...Loop[/tt]s after any [tt]SendKeys()[/tt].

Skip,
[sub]
[glasses]Just traded in my OLD subtlety...
for a NUance![tongue][/sub]
 
Upvote 0 Downvote
Skip,
Running the macro from my desktop did the trick! Thank you for all the work you did cleaning up the layout of my code, and working though my questions this past weekend; this code is going to make my life so much easier! Thank you again!
 
Upvote 0 Downvote
Great,

Trouble shooting an emulator from afar is a tad tricky. For some reason I was thinking “memory” error.

Then I remembered the thread title. And I do recall, in the misty past, experiencing full disk errors on my partition of
a shared server, when it looked like there was ample unused space. But then again, I’m a old codger with some foggy memory
of some things.

Skip,
[sub]
[glasses]Just traded in my OLD subtlety...
for a NUance![tongue][/sub]
 
Upvote 0 Downvote
Skip,
I'm hoping you won't mind helping me out again! I'm being asked to show the same data on subsequent pages of the statement. (the original code took the 3 returns on the 1st page of the statement. ) One issue with that is there could be any number of pages or each month, so I tried using the Getstring function to determine the number of pages, "Sess0.Screen.Getstring(02,52,02)" shows page number of the statement you are on, and "Sess0.Screen.Getstring(02,60,02)" shows the total number of pages for that month's statement; you navigate through the pages using Pf8. The information I need on the subsequent pages is in the same location on the screen as page 1. The final iteration I tried was adding the 'For j' section thinking I could get it to loop through the additional pages before hitting enter and looping to go to the second 'For i'.

Code: 
   Sess0.Screen.Sendkeys("<Reset>")
   Sess0.Screen.Sendkeys("<Clear>")
   Sess0.Save
    Do Until Sess0.Screen.WaitHostQuiet(g_HostSettleTime) 
      DoEvents
   Loop 
   Sess0.Screen.Sendkeys("cis "& acnt$)
   Sess0.Screen.Sendkeys("<Enter>")
   Sess0.Screen.Sendkeys("css")
   Sess0.Screen.Sendkeys("<Enter>")
    Do Until Sess0.Screen.WaitHostQuiet(g_HostSettleTime)
     DoEvents
      Loop

        For i = 1 To 3
            For rw = 5 To 19
        
                Ret1$ = Sess0.Screen.Getstring(rw,05,04)
                Ret1a$ = Sess0.Screen.Getstring(rw,26,05)
                Ret1b$ = Sess0.Screen.Getstring(rw,72,08)
         
                WRITE #2,acnt$,Ret1$,Ret1a$,Ret1b$
         
       Next
       
        Sess0.Screen.Sendkeys("<Pf8>")	
'        If Sess0.Screen.Getstring(02,52,02) <> Sess0.Screen.Getstring(02,60,02)+1 then
        Do Until Sess0.Screen.Getstring(02,52,02) = Sess0.Screen.Getstring(02,60,02)+1
            DoEvents 
        Loop
              
        For j = 1 To 3
            For rws = 5 To 19  
                Ret1$ = Sess0.Screen.Getstring(rws,05,04)
                Ret1a$ = Sess0.Screen.Getstring(rws,26,05)
                Ret1b$ = Sess0.Screen.Getstring(rws,72,08)   
  
                WRITE #2,acnt$,Ret1$,Ret1a$,Ret1b$
                

         Next
            Sess0.Screen.Sendkeys("<Enter>")
'           Do Until Sess0.Screen.WaitForCursor(01, 02) 'Kept as alernative in event 'Do Until' below doesn't work
            Do Until Sess0.Screen.WaitHostQuiet(g_HostSettleTime)
                DoEvents
            Loop 
            Sess0.Save
     Next
XXX: 
LOOP


CLOSE #1

msgbox "Your macro is complete, have a nice day."
End Sub

When I try to compile the code, I receive "FOR and NEXT statements must be in same block" on the last LOOP.

Thank you again for your help! I'm running out of hair to pull out.
 
Upvote 0 Downvote
Please start a new thread for this question.

Your [tt]For...Next[/tt] pairs don’t match.

Skip,
[sub]
[glasses]Just traded in my OLD subtlety...
for a NUance![tongue][/sub]
 
Upvote 0 Downvote
Status
Not open for further replies.

Similar threads

FreCard
  • Locked
  • Question
Extra macro example
Replies
3
Views
111
SkipVought
S
Suresh02
  • Locked
  • Question
Automation error 'Specified module could not be found&quot;
Replies
0
Views
44
Suresh02
Suresh02
Mike.and.H
  • Locked
  • Question
How to display date in EXTRA! X-treme window status bar?
Replies
0
Views
47
Mike.and.H
Mike.and.H
MarcMeg
  • Locked
  • Question
Object Error
Replies
8
Views
77
jeaneshe
jeaneshe
Eaglboy1
  • Locked
  • Question
Macro Compile Error
Replies
0
Views
41
Eaglboy1
Eaglboy1

Part and Inventory Search

Sponsor

Back
Top