![]() |
If this is your first visit, be sure to check out the FAQ by clicking the link above. You may have to register before you can post: click the register link above to proceed. To start viewing messages, select the forum that you want to visit from the selection below. |
|
|
|
Thread Tools | Display Modes |
|
#1
|
|||
|
|||
![]()
I am trying to create a login box for an Access 2007 database using some
VB8 code I found: Private Sub CreateAcc_Click() Dim username As String username = Text23 If Text23 = "" Then MsgBox "Enter a Username !" Else If Text25 = "" Then MsgBox "Enter a Password !" Else Open app.Path & "\Accounts\Users\" + username + ".txt" For Output As #1 Print #1, Text23 Print #1, Text25 Close #1 End If End If End Sub It runs up to the line 'Open app.path etc, then get a runtime error 424, Object required. What would that be, and what should the correct syntax be for Open app.path Thanks |
#2
|
|||
|
|||
![]()
Open CurrentProject.Path & "\Accounts\Users\" + username + ".txt" For
Output As #1 -- Ken Snell http://www.accessmvp.com/KDSnell/ "Bob H" wrote in message ... I am trying to create a login box for an Access 2007 database using some VB8 code I found: Private Sub CreateAcc_Click() Dim username As String username = Text23 If Text23 = "" Then MsgBox "Enter a Username !" Else If Text25 = "" Then MsgBox "Enter a Password !" Else Open app.Path & "\Accounts\Users\" + username + ".txt" For Output As #1 Print #1, Text23 Print #1, Text25 Close #1 End If End If End Sub It runs up to the line 'Open app.path etc, then get a runtime error 424, Object required. What would that be, and what should the correct syntax be for Open app.path Thanks |
#3
|
|||
|
|||
![]()
There is no App object in Access.
Private Sub CreateAcc_Click() Dim intFile As Integer Dim username As String username = Me!Text23 & vbNullString If Len(username) = 0 Then MsgBox "Enter a Username !" Else If Len(Me!Text25 & vbNullString) = 0 Then MsgBox "Enter a Password !" Else intFile = FreeFile() Open CurrentProject.Path & "\Accounts\Users\" & username & ".txt" For Output As #intFile Print #intFile, Me!Text23 Print #intFile, Me!Text25 Close #intFile End If End If End Sub -- Doug Steele, Microsoft Access MVP http://www.AccessMVP.com/DJSteele Co-author: Access 2010 Solutions, published by Wiley (no e-mails, please!) "Bob H" wrote in message ... I am trying to create a login box for an Access 2007 database using some VB8 code I found: Private Sub CreateAcc_Click() Dim username As String username = Text23 If Text23 = "" Then MsgBox "Enter a Username !" Else If Text25 = "" Then MsgBox "Enter a Password !" Else Open app.Path & "\Accounts\Users\" + username + ".txt" For Output As #1 Print #1, Text23 Print #1, Text25 Close #1 End If End If End Sub It runs up to the line 'Open app.path etc, then get a runtime error 424, Object required. What would that be, and what should the correct syntax be for Open app.path Thanks |
#4
|
|||
|
|||
![]()
Thanks for the coding but now I get runtime error 2465 at the line:
username = Me!Text23& vbNullString. Thanks On 04/06/2010 20:21, Douglas J. Steele wrote: There is no App object in Access. Private Sub CreateAcc_Click() Dim intFile As Integer Dim username As String username = Me!Text23& vbNullString If Len(username) = 0 Then MsgBox "Enter a Username !" Else If Len(Me!Text25& vbNullString) = 0 Then MsgBox "Enter a Password !" Else intFile = FreeFile() Open CurrentProject.Path& "\Accounts\Users\"& username& ".txt" For Output As #intFile Print #intFile, Me!Text23 Print #intFile, Me!Text25 Close #intFile End If End If End Sub |
#5
|
|||
|
|||
![]()
Try
username = Me!Text23 & vbNullString Have you setup your form to have a control name Text23 which has the user's name?! -- Hope this helps, Daniel Pineault http://www.cardaconsultants.com/ For Access Tips and Examples: http://www.devhut.net Please rate this post using the vote buttons if it was helpful. "Bob H" wrote: Thanks for the coding but now I get runtime error 2465 at the line: username = Me!Text23& vbNullString. Thanks On 04/06/2010 20:21, Douglas J. Steele wrote: There is no App object in Access. Private Sub CreateAcc_Click() Dim intFile As Integer Dim username As String username = Me!Text23& vbNullString If Len(username) = 0 Then MsgBox "Enter a Username !" Else If Len(Me!Text25& vbNullString) = 0 Then MsgBox "Enter a Password !" Else intFile = FreeFile() Open CurrentProject.Path& "\Accounts\Users\"& username& ".txt" For Output As #intFile Print #intFile, Me!Text23 Print #intFile, Me!Text25 Close #intFile End If End If End Sub . |
#6
|
|||
|
|||
![]()
On 04/06/2010 21:44, Daniel Pineault wrote:
Try username = Me!Text23& vbNullString Have you setup your form to have a control name Text23 which has the user's name?! If you mean something like Text23.Username, then no I haven't. But as I am attempting to create an account, the username could be anything. Or should I have pre defined usernames and passwords. Thanks |
#7
|
|||
|
|||
![]()
Just for the sake of completeness, Daniel's reply is correct. Somehow the
required spaces didn't appear in the post. username = Me!Text23 & vbNullString If Len(username) = 0 Then MsgBox "Enter a Username !" Else If Len(Me!Text25 & vbNullString) = 0 Then -- Doug Steele, Microsoft Access MVP http://www.AccessMVP.com/DJSteele/AccessIndex.html Co-author: "Access 2010 Solutions", published by Wiley (no private e-mails, please) "Bob H" wrote in message ... Thanks for the coding but now I get runtime error 2465 at the line: username = Me!Text23& vbNullString. Thanks On 04/06/2010 20:21, Douglas J. Steele wrote: There is no App object in Access. Private Sub CreateAcc_Click() Dim intFile As Integer Dim username As String username = Me!Text23& vbNullString If Len(username) = 0 Then MsgBox "Enter a Username !" Else If Len(Me!Text25& vbNullString) = 0 Then MsgBox "Enter a Password !" Else intFile = FreeFile() Open CurrentProject.Path& "\Accounts\Users\"& username& ".txt" For Output As #intFile Print #intFile, Me!Text23 Print #intFile, Me!Text25 Close #intFile End If End If End Sub |
#8
|
|||
|
|||
![]()
To pull the path of your currently open database you'd use:
Application.CurrentProject.Path -- Hope this helps, Daniel Pineault http://www.cardaconsultants.com/ For Access Tips and Examples: http://www.devhut.net Please rate this post using the vote buttons if it was helpful. "Bob H" wrote: I am trying to create a login box for an Access 2007 database using some VB8 code I found: Private Sub CreateAcc_Click() Dim username As String username = Text23 If Text23 = "" Then MsgBox "Enter a Username !" Else If Text25 = "" Then MsgBox "Enter a Password !" Else Open app.Path & "\Accounts\Users\" + username + ".txt" For Output As #1 Print #1, Text23 Print #1, Text25 Close #1 End If End If End Sub It runs up to the line 'Open app.path etc, then get a runtime error 424, Object required. What would that be, and what should the correct syntax be for Open app.path Thanks . |
#9
|
|||
|
|||
![]()
On 04/06/2010 20:50, Daniel Pineault wrote:
To pull the path of your currently open database you'd use: Application.CurrentProject.Path Ok thanks, but where does this line fit in with the other lines. Do I have to actually create the path first then put it in the line. Thanks |
#10
|
|||
|
|||
![]()
On 04/06/2010 23:23, Bob H wrote:
On 04/06/2010 20:50, Daniel Pineault wrote: To pull the path of your currently open database you'd use: Application.CurrentProject.Path Ok thanks, but where does this line fit in with the other lines. Do I have to actually create the path first then put it in the line. Thanks Update: I have used this line to create a text file with given information: Open "C:\Accounts\Users\" + username + ".txt" For Output As #1 Print #1, Text23 Print #1, Text25 But now on another cmd button I want access to read that said information in that text file, and grant access. With this line: Open "C:\Accounts\Users\" + username + ".txt" For Output As #2 Input #2, openfile If username.Text = openfile Then Input #2, datafile Access throws up a runtime error 54 'Bad File mode' at Input #2 , openfile openfile Also the information in the previously created text file has been deleted. Thanks |
|
Thread Tools | |
Display Modes | |
|
|