Treating a Query as a Recordset

Part 2

Page 1 of 1

4 Replies - 945 Views - Last Post: 06 May 2010 - 07:15 AM Rate Topic: -----

#1 guyfromri  Icon User is offline

  • D.I.C Addict

Reputation: 43
  • View blog
  • Posts: 777
  • Joined: 16-September 09

Treating a Query as a Recordset

Posted 03 May 2010 - 04:15 PM

The other day I asked for help in this post >http://www.dreamincode.net/forums/topic/170344-treating-a-query-as-a-recordset/page__p__1001218__fromsearch__1&#entry1001218<.

I had finally gotten it working and it was attributed to the rs.openrecordset line.

Now I have the same issue again and that won't fix it. On top of that, I went back to just to see what would happen and removed rs.openrecordset from my other program and it still works! Could someone please help me figure out what I'm doing wrong...could it be something to do with my query? I am calling a different query from the new program so that's all I can think of.

Thanks in advance!

This is the query that works
Private Sub Output_With_Ins_File()

Dim rsQuery As Recordset

Set rsQuery = CurrentDb.OpenRecordset("LYTEC_Insert_Ins_To_Demo")

    LCount = 0
    LDone = 0
    
    rsQuery.MoveFirst
        Do Until rsQuery.EOF
            LCount = LCount + 1
            rsQuery.MoveNext
        Loop
   'LCount = rsQuery.RecordCount
        
        DoEvents
            Form_Progress.Label2.Caption = "Converting Demos"
            Form_Progress.Label6.Caption = "Demos Converted"
        DoEvents
        
    'rsQuery.OpenRecordset
     
    Open DemoOPFile For Output As #52

    rsQuery.MoveFirst
        
        Do Until rsQuery.EOF
                
                Demo.MRN = rsQuery.Fields("MRN") & ""
                Demo.SSN = rsQuery.Fields("SSN") & ""
                Demo.FName = rsQuery.Fields("FName") & ""
                Demo.MName = rsQuery.Fields("MName") & ""
                Demo.LName = rsQuery.Fields("LName") & ""
                Demo.DOB = rsQuery.Fields("DOB") & ""
                Demo.Sex = rsQuery.Fields("Sex") & ""
                Demo.Email = rsQuery.Fields("Email") & ""
                Demo.Addy1 = rsQuery.Fields("Add1") & ""
                Demo.Addy2 = rsQuery.Fields("Add2") & ""
                Demo.City = rsQuery.Fields("City") & ""
                Demo.State = rsQuery.Fields("State") & ""
                Demo.Zip = rsQuery.Fields("Zip") & ""
                Demo.Country = rsQuery.Fields("Country") & ""
                Demo.Phone = rsQuery.Fields("HomePhone") & ""
                Demo.GuarMRN = rsQuery.Fields("GuarMRN") & ""
                Demo.GuarRela = rsQuery.Fields("GuarRel") & ""
                Demo.EmpName = rsQuery.Fields("EmpName") & ""
                Demo.EmpAddy1 = rsQuery.Fields("EmpAdd1") & ""
                Demo.EmpAddy2 = rsQuery.Fields("EmpAdd2") & ""
                Demo.EmpCity = rsQuery.Fields("EmpCity") & ""
                Demo.EmpState = rsQuery.Fields("EmpState") & ""
                Demo.EmpZip = rsQuery.Fields("EmpZip") & ""
                Demo.EmpCountry = rsQuery.Fields("EmpCountry") & ""
                Demo.EmpPhone = rsQuery.Fields("EmpPhone") & ""
                Demo.EmpExt = rsQuery.Fields("EmpExt") & ""
                Demo.MarStat = rsQuery.Fields("MarStat") & ""
                Demo.GPro = rsQuery.Fields("GPro") & ""
                Demo.GProNPI = rsQuery.Fields("GNPI") & ""
                Demo.PatNotes = rsQuery.Fields("Notes") & ""
                Demo.PatGroup = rsQuery.Fields("Group") & ""
                Demo.Ins1ID = rsQuery.Fields("Ins1ID") & ""
                Demo.Ins1Name = rsQuery.Fields("LytecInsInfo.InsCo") & ""
                Demo.Ins1Addy = rsQuery.Fields("Expr1") & ""
                Demo.Ins1PolNum = rsQuery.Fields("Ins1Pol") & ""
                Demo.Ins1CoPay = rsQuery.Fields("Ins1CP") & ""
                Demo.Ins1GroupNum = rsQuery.Fields("Ins1Group") & ""
                Demo.Ins1SubMRN = rsQuery.Fields("Ins1SubMRN") & ""
                Demo.Ins1SubRela = rsQuery.Fields("Ins1SubRel") & ""
                Demo.Ins2ID = rsQuery.Fields("Ins2ID") & ""
                Demo.Ins2Name = rsQuery.Fields("LytecInsInfo_1.InsCo") & ""
                Demo.Ins2Addy = rsQuery.Fields("Expr2") & ""
                Demo.Ins2PolNum = rsQuery.Fields("Ins2Pol") & ""
                Demo.Ins2CoPay = rsQuery.Fields("Ins2CP") & ""
                Demo.Ins2GroupNum = rsQuery.Fields("Ins2Group") & ""
                Demo.Ins2SubMRN = rsQuery.Fields("Ins2SubMRN") & ""
                Demo.Ins2SubRela = rsQuery.Fields("Ins2SubRel") & ""
                Demo.Ins3ID = rsQuery.Fields("Ins3ID") & ""
                Demo.Ins3Name = rsQuery.Fields("LytecInsInfo_2.InsCo") & ""
                Demo.Ins3Addy = rsQuery.Fields("Expr3") & ""
                Demo.Ins3PolNum = rsQuery.Fields("Ins3Pol") & ""
                Demo.Ins3CoPay = rsQuery.Fields("Ins3CP") & ""
                Demo.Ins3GroupNum = rsQuery.Fields("Ins3Group") & ""
                Demo.Ins3SubMRN = rsQuery.Fields("Ins3SubMRN") & ""
                Demo.Ins3SubRela = rsQuery.Fields("Ins3SubRel") & ""
                Demo.GenData = rsQuery.Fields("GenData") & ""
                Demo.RefPro = rsQuery.Fields("RPro") & ""
                Demo.RefProNPI = rsQuery.Fields("RNPI") & ""
                Demo.RefProNPI = rsQuery.Fields("RNPI") & ""
                Demo.Diag1Code = rsQuery.Fields("Diag1Code") & ""
                Demo.Diag1Date = rsQuery.Fields("Diag1Date") & ""
                Demo.Diag1Note = rsQuery.Fields("Diag1Notes") & ""
                Demo.Diag2Code = rsQuery.Fields("Diag2Code") & ""
                Demo.Diag2Date = rsQuery.Fields("Diag2Date") & ""
                Demo.Diag2Note = rsQuery.Fields("Diag2Notes") & ""
                Demo.Diag3Code = rsQuery.Fields("Diag3Code") & ""
                Demo.Diag3Date = rsQuery.Fields("Diag3Date") & ""
                Demo.Diag3Note = rsQuery.Fields("Diag3Notes") & ""
        
            OPRec = Demo.FormatOPRecord
            
            Print #52, OPRec
            
            OPRec = Demo.ClearValues
            
            DoEvents
            LDone = LDone + 1
            Form_Progress.AXC.Value = (LDone / LCount) * 100
            Form_Progress.Label5.Caption = LDone
            DoEvents

ReRun:
            rsQuery.MoveNext

        Loop

    Close #52

End Sub


This is the one that doesn't work
Sub InsertMRNtoAppt()

'Select the appt file first then select the file with chart numbers

Dim rsCache As Recordset
Dim ApptFile As String
Dim MRNFile As String
Dim rsQuery As Recordset
Dim ProName As String
Dim Appt

    
    ProName = InputBox("Enter Provider Name", "Pro Name", "Enter here!!!")
        If ProName = "" Then
            End
            Me.Visible = True
        End If
        
    Set rsCache = CurrentDb.OpenRecordset("File_Cache")
    Set rsQuery = CurrentDb.OpenRecordset("CT_Insert_MRN_To_Appt_Extract")
    Set Appt = New CT_Appt_Data
    
    DoCmd.SetWarnings False
    DoCmd.RunSQL "DELETE * from CT_Appt_Extract"
    DoCmd.RunSQL "DELETE * from CT_MRN_Extract"
    DoCmd.SetWarnings True

'%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%   Select Input Files    %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    MsgBox "Select Appointment Extract", vbExclamation, "Appts"
    With Application.FileDialog(msoFileDialogFilePicker)
        .AllowMultiSelect = False
        If .Show = False Then End
        .Title = "Appointment Extract"
        ApptFile = .SelectedItems(1)
    End With
    Do Until IntLastSlash = 0
        IntLastSlash = InStr((IntLastSlash + 1), ApptFile, "\")
        If IntLastSlash <> 0 Then
        IntSlashHold = IntLastSlash
        End If
    Loop
    
    MsgBox "Select Chart Number Extract", vbExclamation, "MRN Extract"
    With Application.FileDialog(msoFileDialogFilePicker)
        .AllowMultiSelect = False
        If .Show = False Then End
        .Title = "Chart Number Extract"
        MRNFile = .SelectedItems(1)
    End With
    IntLastSlash = InStr(1, ApptFile, "\")
    Do Until IntLastSlash = 0
        IntLastSlash = InStr((IntLastSlash + 1), MRNFile, "\")
        If IntLastSlash <> 0 Then
        IntSlashHold = IntLastSlash
        End If
    Loop
'%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

    ' remember the selected directory for subsequent dialog boxes...
    InitDir = Mid(ApptFile, 1, (IntSlashHold - 1))
    InputFile = Mid(ApptFile, (IntSlashHold + 1))
    OPFile = InitDir & "\" & ProName & "_CtReady.csv"
    
    
    DoCmd.TransferText acImportDelim, "MainApptSpec", "CT_Appt_Extract", ApptFile, False
    DoCmd.TransferText acImportDelim, "MRNExtractSpec", "CT_MRN_Extract", MRNFile, False
        
    Form_Progress.Visible = True
    
    rsQuery.MoveFirst
        Do Until rsQuery.EOF
            LCount = LCount + 1
            rsQuery.MoveNext
        Loop
        
    'rsQuery.OpenRecordset
    
    Open OPFile For Output As #53
    
    'OPRec = Appt.ClearValues 'Just as an added precaution to save headaches
    
    rsQuery.MoveFirst
        
        Do Until rsQuery.EOF
            
                Appt.aDate = rsQuery.Fields("Date") & ""
                Appt.aTime = rsQuery.Fields("Time") & ""
                Appt.aDuration = rsQuery.Fields("Duration") & ""
                Appt.aLoc = rsQuery.Fields("Loc") & ""
                Appt.aLocID = rsQuery.Fields("LocID") & ""
                Appt.aType = rsQuery.Fields("Type") & ""
                Appt.aTypeID = rsQuery.Fields("TypeID") & ""
                Appt.aPro = rsQuery.Fields("Pro") & ""
                Appt.aProID = rsQuery.Fields("ProID") & ""
                Appt.aGroupID = rsQuery.Fields("GroupID") & ""
                Appt.aGroup = rsQuery.Fields("Group") & ""
                Appt.aMRN = rsQuery.Fields("MRN") & ""
                Appt.ANotes = rsQuery.Fields("Notes") & ""
                Appt.aComplaint = rsQuery.Fields("Complaint") & ""
                Appt.aFName = rsQuery.Fields("FName") & ""
                Appt.aMName = rsQuery.Fields("MName") & ""
                Appt.aLName = rsQuery.Fields("LName") & ""
                Appt.aDOB = rsQuery.Fields("DOB") & ""
                Appt.aSex = rsQuery.Fields("Sex") & ""
                
                OPRec = Appt.FormatOPRecord
                
                Print #53, OPRec
                
                OPRec = Appt.ClearValues
                
                LDone = LDone + 1
                DoEvents
                    Form_Progress.AXC.Value = (LDone / LCount) * 100
                    Form_Progress.Label5.Caption = LDone
                DoEvents
                
                rsQuery.MoveNext
                
        Loop

    Close #53
            
    
    End Sub


Is This A Good Question/Topic? 0
  • +

Replies To: Treating a Query as a Recordset

#2 thava  Icon User is offline

  • D.I.C Lover
  • member icon

Reputation: 172
  • View blog
  • Posts: 1,560
  • Joined: 17-April 07

Re: Treating a Query as a Recordset

Posted 04 May 2010 - 07:49 AM 

Sub InsertMRNtoAppt()

'Select the appt file first then select the file with chart numbers

Dim rsCache As Recordset
Dim ApptFile As String
Dim MRNFile As String
Dim rsQuery As Recordset
Dim ProName As String
Dim Appt

    
    ProName = InputBox("Enter Provider Name", "Pro Name", "Enter here!!!")
        If ProName = "" Then
            End
            Me.Visible = True
        End If
        
    Set rsCache = CurrentDb.OpenRecordset("File_Cache")
    Set rsQuery = CurrentDb.OpenRecordset("CT_Insert_MRN_To_Appt_Extract")
    Set Appt = New CT_Appt_Data
    
    DoCmd.SetWarnings False
    DoCmd.RunSQL "DELETE * from CT_Appt_Extract"
    DoCmd.RunSQL "DELETE * from CT_MRN_Extract"
    DoCmd.SetWarnings True

'%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%   Select Input Files    %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    MsgBox "Select Appointment Extract", vbExclamation, "Appts"
    With Application.FileDialog(msoFileDialogFilePicker)
        .AllowMultiSelect = False
        If .Show = False Then End
        .Title = "Appointment Extract"
        ApptFile = .SelectedItems(1)
    End With
    Do Until IntLastSlash = 0
        IntLastSlash = InStr((IntLastSlash + 1), ApptFile, "\")
        If IntLastSlash <> 0 Then
        IntSlashHold = IntLastSlash
        End If
    Loop
    
    MsgBox "Select Chart Number Extract", vbExclamation, "MRN Extract"
    With Application.FileDialog(msoFileDialogFilePicker)
        .AllowMultiSelect = False
        If .Show = False Then End
        .Title = "Chart Number Extract"
        MRNFile = .SelectedItems(1)
    End With
    IntLastSlash = InStr(1, ApptFile, "\")
    Do Until IntLastSlash = 0
        IntLastSlash = InStr((IntLastSlash + 1), MRNFile, "\")
        If IntLastSlash <> 0 Then
        IntSlashHold = IntLastSlash
        End If
    Loop
'%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

    ' remember the selected directory for subsequent dialog boxes...
    InitDir = Mid(ApptFile, 1, (IntSlashHold - 1))
    InputFile = Mid(ApptFile, (IntSlashHold + 1))
    OPFile = InitDir & "\" & ProName & "_CtReady.csv"
    
    
    DoCmd.TransferText acImportDelim, "MainApptSpec", "CT_Appt_Extract", ApptFile, False
    DoCmd.TransferText acImportDelim, "MRNExtractSpec", "CT_MRN_Extract", MRNFile, False
        
    Form_Progress.Visible = True
'************ This is where you need to open the recordset*******************
    rsQuery.OpenRecordset 
    rsCache.OpenRecordset 
'****************************************************************************   
    rsQuery.MoveFirst
        Do Until rsQuery.EOF
            LCount = LCount + 1
            rsQuery.MoveNext
        Loop
 '************ Not here *******************       
'    rsQuery.OpenRecordset 
'****************************************
    
    Open OPFile For Output As #53
    
    'OPRec = Appt.ClearValues 'Just as an added precaution to save headaches
    
    rsQuery.MoveFirst
        
        Do Until rsQuery.EOF
            
                Appt.aDate = rsQuery.Fields("Date") & ""
                Appt.aTime = rsQuery.Fields("Time") & ""
                Appt.aDuration = rsQuery.Fields("Duration") & ""
                Appt.aLoc = rsQuery.Fields("Loc") & ""
                Appt.aLocID = rsQuery.Fields("LocID") & ""
                Appt.aType = rsQuery.Fields("Type") & ""
                Appt.aTypeID = rsQuery.Fields("TypeID") & ""
                Appt.aPro = rsQuery.Fields("Pro") & ""
                Appt.aProID = rsQuery.Fields("ProID") & ""
                Appt.aGroupID = rsQuery.Fields("GroupID") & ""
                Appt.aGroup = rsQuery.Fields("Group") & ""
                Appt.aMRN = rsQuery.Fields("MRN") & ""
                Appt.ANotes = rsQuery.Fields("Notes") & ""
                Appt.aComplaint = rsQuery.Fields("Complaint") & ""
                Appt.aFName = rsQuery.Fields("FName") & ""
                Appt.aMName = rsQuery.Fields("MName") & ""
                Appt.aLName = rsQuery.Fields("LName") & ""
                Appt.aDOB = rsQuery.Fields("DOB") & ""
                Appt.aSex = rsQuery.Fields("Sex") & ""
                
                OPRec = Appt.FormatOPRecord
                
                Print #53, OPRec
                
                OPRec = Appt.ClearValues
                
                LDone = LDone + 1
                DoEvents
                    Form_Progress.AXC.Value = (LDone / LCount) * 100
                    Form_Progress.Label5.Caption = LDone
                DoEvents
                
                rsQuery.MoveNext
                
        Loop

    Close #53
            
    
    End Sub

Was This Post Helpful? 0
  • +
  • -

#3 guyfromri  Icon User is offline

  • D.I.C Addict

Reputation: 43
  • View blog
  • Posts: 777
  • Joined: 16-September 09

Re: Treating a Query as a Recordset

Posted 05 May 2010 - 06:26 AM

View Postthava, on 04 May 2010 - 06:49 AM, said:

Sub InsertMRNtoAppt()

'Select the appt file first then select the file with chart numbers

Dim rsCache As Recordset
Dim ApptFile As String
Dim MRNFile As String
Dim rsQuery As Recordset
Dim ProName As String
Dim Appt

    
    ProName = InputBox("Enter Provider Name", "Pro Name", "Enter here!!!")
        If ProName = "" Then
            End
            Me.Visible = True
        End If
        
    Set rsCache = CurrentDb.OpenRecordset("File_Cache")
    Set rsQuery = CurrentDb.OpenRecordset("CT_Insert_MRN_To_Appt_Extract")
    Set Appt = New CT_Appt_Data
    
    DoCmd.SetWarnings False
    DoCmd.RunSQL "DELETE * from CT_Appt_Extract"
    DoCmd.RunSQL "DELETE * from CT_MRN_Extract"
    DoCmd.SetWarnings True

'%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%   Select Input Files    %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    MsgBox "Select Appointment Extract", vbExclamation, "Appts"
    With Application.FileDialog(msoFileDialogFilePicker)
        .AllowMultiSelect = False
        If .Show = False Then End
        .Title = "Appointment Extract"
        ApptFile = .SelectedItems(1)
    End With
    Do Until IntLastSlash = 0
        IntLastSlash = InStr((IntLastSlash + 1), ApptFile, "\")
        If IntLastSlash <> 0 Then
        IntSlashHold = IntLastSlash
        End If
    Loop
    
    MsgBox "Select Chart Number Extract", vbExclamation, "MRN Extract"
    With Application.FileDialog(msoFileDialogFilePicker)
        .AllowMultiSelect = False
        If .Show = False Then End
        .Title = "Chart Number Extract"
        MRNFile = .SelectedItems(1)
    End With
    IntLastSlash = InStr(1, ApptFile, "\")
    Do Until IntLastSlash = 0
        IntLastSlash = InStr((IntLastSlash + 1), MRNFile, "\")
        If IntLastSlash <> 0 Then
        IntSlashHold = IntLastSlash
        End If
    Loop
'%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

    ' remember the selected directory for subsequent dialog boxes...
    InitDir = Mid(ApptFile, 1, (IntSlashHold - 1))
    InputFile = Mid(ApptFile, (IntSlashHold + 1))
    OPFile = InitDir & "\" & ProName & "_CtReady.csv"
    
    
    DoCmd.TransferText acImportDelim, "MainApptSpec", "CT_Appt_Extract", ApptFile, False
    DoCmd.TransferText acImportDelim, "MRNExtractSpec", "CT_MRN_Extract", MRNFile, False
        
    Form_Progress.Visible = True
'************ This is where you need to open the recordset*******************
    rsQuery.OpenRecordset 
    rsCache.OpenRecordset 
'****************************************************************************   
    rsQuery.MoveFirst
        Do Until rsQuery.EOF
            LCount = LCount + 1
            rsQuery.MoveNext
        Loop
 '************ Not here *******************       
'    rsQuery.OpenRecordset 
'****************************************
    
    Open OPFile For Output As #53
    
    'OPRec = Appt.ClearValues 'Just as an added precaution to save headaches
    
    rsQuery.MoveFirst
        
        Do Until rsQuery.EOF
            
                Appt.aDate = rsQuery.Fields("Date") & ""
                Appt.aTime = rsQuery.Fields("Time") & ""
                Appt.aDuration = rsQuery.Fields("Duration") & ""
                Appt.aLoc = rsQuery.Fields("Loc") & ""
                Appt.aLocID = rsQuery.Fields("LocID") & ""
                Appt.aType = rsQuery.Fields("Type") & ""
                Appt.aTypeID = rsQuery.Fields("TypeID") & ""
                Appt.aPro = rsQuery.Fields("Pro") & ""
                Appt.aProID = rsQuery.Fields("ProID") & ""
                Appt.aGroupID = rsQuery.Fields("GroupID") & ""
                Appt.aGroup = rsQuery.Fields("Group") & ""
                Appt.aMRN = rsQuery.Fields("MRN") & ""
                Appt.ANotes = rsQuery.Fields("Notes") & ""
                Appt.aComplaint = rsQuery.Fields("Complaint") & ""
                Appt.aFName = rsQuery.Fields("FName") & ""
                Appt.aMName = rsQuery.Fields("MName") & ""
                Appt.aLName = rsQuery.Fields("LName") & ""
                Appt.aDOB = rsQuery.Fields("DOB") & ""
                Appt.aSex = rsQuery.Fields("Sex") & ""
                
                OPRec = Appt.FormatOPRecord
                
                Print #53, OPRec
                
                OPRec = Appt.ClearValues
                
                LDone = LDone + 1
                DoEvents
                    Form_Progress.AXC.Value = (LDone / LCount) * 100
                    Form_Progress.Label5.Caption = LDone
                DoEvents
                
                rsQuery.MoveNext
                
        Loop

    Close #53
            
    
    End Sub


hmmm...? I still get the same error. 3167, record deleted. Now I'm really confused...and idea why the original program I had the problem with works now without that line but this program won't work with or with out it? Could it be something to do with how I set the query up? Thanks as always!

This post has been edited by guyfromri: 05 May 2010 - 06:31 AM

Was This Post Helpful? 0
  • +
  • -

#4 thava  Icon User is offline

  • D.I.C Lover
  • member icon

Reputation: 172
  • View blog
  • Posts: 1,560
  • Joined: 17-April 07

Re: Treating a Query as a Recordset

Posted 06 May 2010 - 12:02 AM

if you post your partial data in a access db with relevant tables and files, i will surely try to help you

This post has been edited by thava: 06 May 2010 - 12:16 AM

Was This Post Helpful? 0
  • +
  • -

#5 guyfromri  Icon User is offline

  • D.I.C Addict

Reputation: 43
  • View blog
  • Posts: 777
  • Joined: 16-September 09

Re: Treating a Query as a Recordset

Posted 06 May 2010 - 07:15 AM

View Postthava, on 05 May 2010 - 11:02 PM, said:

if you post your partial data in a access db with relevant tables and files, i will surely try to help you


I wish I could but it's all government protected information. I did, however, copy the code from the working program and paste it to the program with the issue. Then I changed to names to match the queries and class modules...it still didn't work...I'm thinking it's how I set my queries up. I don't know what I could have changed in the first one to work correctly but it still works fine.

On a side note, I did rethink my process and create an append query which effectively does the job for this program. My fear is going forward, I'm going to need a select query for a program and run in to this issue again. I've been reading articles about corrupt data and fields so I'm thinking this might be it.

At this point, I think I'm going to write something to loop the tables and look for errors so I can find my corruption, if I have one...I'll let you know how I make out.


This is quite the mystery. Thank you very much for your help on this...I'll follow up in a bit.
Was This Post Helpful? 0
  • +
  • -
Page 1 of 1