The sub is in frmmain.
Private Sub mnuPopupViewData_Click() On Error GoTo Err_Handler svr.LogEvent "Entering " & App.Title & ":frmMain.mnuPopupViewData_Click()", etFullDebug Dim objOutputForm As New frmSQLOutput Dim rsQuery As New Recordset Dim szTemp As String Dim lLimit As Long Dim lNumRow As Long Const ROW_LIMIT_QUESTION As Long = 5000 'count row lNumRow = 0 StartMsg "Counting Records..." Set rsQuery = frmMain.svr.Databases(ctx.CurrentDB).Execute("SELECT count(*) AS count FROM " & ctx.CurrentObject.FormattedID) If Not rsQuery.EOF Then lNumRow = rsQuery!Count EndMsg 'Add a definable row limit to 'View Data' szTemp = InputBox("Insert row limit" & vbCrLf & "Table contain " & lNumRow & " rows", "Row limit", lNumRow) If Len(szTemp) = 0 Then Exit Sub lLimit = 0 If IsNumeric(szTemp) Then lLimit = szTemp szTemp = "LIMIT " & lLimit If lLimit > ROW_LIMIT_QUESTION And lNumRow > 0 Then If MsgBox("The row limit is " & lLimit & ". The records which may take some time to load." & vbCrLf & "Do you wish to continue?", vbQuestion + vbYesNo, "Continue?") = vbNo Then Exit Sub End If StartMsg "Executing SQL Query..." Set rsQuery = frmMain.svr.Databases(ctx.CurrentDB).Execute("SELECT * FROM " & ctx.CurrentObject.FormattedID & szTemp) Load objOutputForm objOutputForm.Display rsQuery, ctx.CurrentDB, "(" & ctx.CurrentObject.ObjectType & ": " & ctx.CurrentObject.FormattedID & ")" objOutputForm.Show EndMsg Exit Sub Err_Handler: EndMsg If Err.Number <> 0 Then LogError Err.Number, Err.Description, App.Title & ":frmMain.mnuPopupViewData_Click" End Sub Bye !! Frank Lupo (Wolf) !! /\_ _/\ \ o o / --ooo-----ooo--- -- Prendi GRATIS l'email universale che... risparmia: http://www.email.it/f Sponsor: Il lavandino che gocciola ti fa innervosire? L'idraulico che ti serve lo trovi su QxService! Clicca qui ed il tuo problema sarà risolto!! Clicca qui: http://adv.email.it/cgi-bin/foclick.cgi?mid=840&d=24-2 ---------------------------(end of broadcast)--------------------------- TIP 1: subscribe and unsubscribe commands go to [EMAIL PROTECTED]