Going to first record after loading the tablw

[SeniorCitizen]

I am populating an empty tabl with import from excel. No problem. I have a while loop following in the same procedure that goes hrough all the records and does some cleanup work. No Problem. However after the table is loaded my current record is at the last Record. My while loop wants to start at the first record an do its job until the end . I have not found a way to get the code go to the first record. I have tried several suggestions from other sites and the gotorecord does not get done either. I'm sure there is a way but I have not found it. Any Ideas?



Thanks

[Welshgasman]

Show your code?

[SeniorCitizen]

'Prepare TblGuest and Guest for new imported data
DoCmd.SetWarnings False
DoCmd.DeleteObject acTable, "Guest"
DoCmd.RunSavedImportExport "Import-Guests"
DoCmd.OpenQuery "QdelTblGuest"
DoCmd.OpenQuery "QappGuestToTblGuest"
DoCmd.SetWarnings True
MsgBox "Guest profiles have been imported"

'FixPhone Numbers
Dim Area As String
Dim Exch As String
Dim Number As String

MsgBox Me.CurrentRecord 'This shows 17 which is the number of records in the table
While Me.CurrentRecord <= Me.Recordset.RecordCount
Do My stuf

Wend
End Sub


The while loop needs to start at the beginning of the table

[Welshgasman]

Ok, you say the GotToRecord does not get 'done'

Have you walked through the code with F8 ?

Have you tried
docmd.RunCommand acCmdRecordsGoToFirst

[SeniorCitizen]

I had not tried that particular line of code and it works by giving me a 1 in the msgbox. The first line of code after the while, If Len(Phone.Value & "") = 0 Then Errors with the message 'Record is deleted"

[SeniorCitizen]

This makes me think that I am looking at the 18th record which obviously is blank

[Gicu]

Probably the easiest would be to add a Me.Requery just before your loop (where the msgbox call is now) but instead of navigating through the form you should use a recordset:

Dim rst as DAO.Recordset


Set rst= Me.recordsetclone


if rst.recordcount=0 then Exit Sub 


rst.MoveFirst
Do until rst.EOF


  'Do your stuff here
   rst.Edit
   rst("Phone")= WhateverChangeYouWantToMake
   rst.Update




rst.MoveNext
Loop

[Welshgasman]

Other option would be
DoCmd.GoToRecord acDataForm, Me.Name, acFirst

However F8 and inspecting the fields/variables would be my choice

For now just Debug.print the ID of each record to see what is happening. Then when you get that working, add the fancy stuff in.