Martin Reid
mwp.reid at qub.ac.uk
Fri Jun 16 14:09:42 CDT 2006
Hers the first code I tired. Its driving me nuts Its simple. Stored Procedure, execute, set as recordset for a form. I have noticed some odd things in the way 2007 is working with SQL Server 2005 but the basic idea here is just that basic and no matter what I have tried I cant get it to assign the recordset. Any help appreciated. This is the last example I have to do so I jsut left it for the moment and moved on. Private Sub Form_Open(Cancel As Integer) On Error GoTo Err_Form_Open Dim rststudent As ADODB.Recordset Dim conn As ADODB.Connection Dim fld As ADODB.Field Set conn = CurrentProject.AccessConnection Set rststudent = New ADODB.Recordset rststudent.ActiveConnection = conn rststudent.Open "usp_GetStudentData", , , , adCmdStoredProc If rststudent.EOF = True Then MsgBox "No Student Data" Exit Sub Else For Each fld In rststudent.Fields Me(fld.Name).Value = fld.Value Next End If Exit_Form_Open: Exit Sub Err_Form_Open: MsgBox Err.Description, , "Error in Sub Form_frmChapter6SPExample.Form_Open" Resume Exit_Form_Open Resume 0 '.FOR TROUBLESHOOTING End Sub Martin WP Reid Training and Assessment Unit Riddle Hall Belfast tel: 02890 974477