Garraway, Alun
Alun.Garraway at otto.de
Wed Oct 29 09:44:21 CST 2003
Bryan, this code works under NT, W2K, and 9x I use it myself, exactly the same code, just checked in a db of mine...... alun -----Ursprüngliche Nachricht----- Von: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com]Im Auftrag von Bryan Carbonnell Gesendet: Mittwoch, 29. Oktober 2003 16:34 An: accessd at databaseadvisors.com Betreff: Re: [AccessD] Out of stack space I *think* the problem is that you are create a string with a length of 254 characters strUserName = String$(254, 0) and then telling the API that the buffer is 255 characters lngLen = 255 lngX = apiGetUserName(strUserName, lngLen) Either change lngLen to 254 or make strUserName 255 characters. Bryan Carbonnell bryan_carbonnell at cbc.ca >>> nancy.lytle at auatac.com 29-Oct-03 9:58:04 AM >>> I just got Windows XP and Office XP loaded at work. Now when I call my function to grab the user name I get an "out of stack space" error. >>>>>>>>>>>>>>>>>>>>>> Here is the function code: Public Function fcnOSUserName() As String On Error GoTo Err_fcnOSUserName 'Returns the network login name from the Operating System Dim lngLen As Long, lngX As Long Dim strUserName As String strUserName = String$(254, 0) lngLen = 255 lngX = apiGetUserName(strUserName, lngLen) If lngX <> 0 Then fcnOSUserName = Left$(strUserName, lngLen - 1) Else fcnOSUserName = vbNullString End If Exit_fcnOSUserName: Exit Function Err_fcnOSUserName: Call LogError(Err.Number, Err.Description, "fcnOSUserName()") Resume Exit_fcnOSUserName End Function >>>>>>>>>>>>>>>>>>>>>>>>>>> It still logs in the user name to my userlog table but I'd like to get rid of the error since it stops the program and asks if you want to end or debug. My users would freak out if they saw this. Anyone know what's going on? Nancy Lytle EIS nancy.lytle at auatac.com 202-314-1393 _______________________________________________ AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com _______________________________________________ AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com