lasercobra
09-10-2003, 09:36 AM
First off, you guys rock!
I'm creating a VERY simple issues tracker application for my work. It will be referencing an Access DB to store the information. The fields are:
Date issue reported
Date issue resolved
Issue
Issue resolution
comments
Etc
I would like to make it a multiple user application so multiple people can access it at once. A single DB file that all users update. I was looking into an ODBC but I can't get past an error of 'DataSource name too long'.
Is there anything within the access DB file that must be set in order to have it work the way I want it to?
What is the code to keep the next or previous button from going too far and displaying an error?
Also, my save record it wrong, I need help.
Here is my code. Please remember that I'm a newbie...
Dim varCurrentRecord As Variant
Dim blnAddingRecord As Boolean
Private Sub Command1_Click()
dta.Recordset.MoveNext
End Sub
Private Sub Command2_Click()
dta.Recordset.MovePrevious
End Sub
Private Sub Command3_Click()
dta.Recordset.MoveFirst
End Sub
Private Sub Command4_Click()
dta.Recordset.MoveLast
End Sub
Private Sub mnuAbout_Click()
frmSplash.Show
End Sub
Private Sub mnuAdd_Click()
varCurrentRecord = dta.Recordset.Bookmark
dta.Recordset.AddNew
blnAddingRecord = True
End Sub
Private Sub mnuDelete_Click()
dta.Recordset.Delete
End Sub
Private Sub mnuExit_Click()
End
End Sub
Private Sub mnuSave_Click()
dta.UpdateRecord
If blnAddingRecord Then
Command4_Click
blnAddingRecord = False
End If
End Sub
I'm creating a VERY simple issues tracker application for my work. It will be referencing an Access DB to store the information. The fields are:
Date issue reported
Date issue resolved
Issue
Issue resolution
comments
Etc
I would like to make it a multiple user application so multiple people can access it at once. A single DB file that all users update. I was looking into an ODBC but I can't get past an error of 'DataSource name too long'.
Is there anything within the access DB file that must be set in order to have it work the way I want it to?
What is the code to keep the next or previous button from going too far and displaying an error?
Also, my save record it wrong, I need help.
Here is my code. Please remember that I'm a newbie...
Dim varCurrentRecord As Variant
Dim blnAddingRecord As Boolean
Private Sub Command1_Click()
dta.Recordset.MoveNext
End Sub
Private Sub Command2_Click()
dta.Recordset.MovePrevious
End Sub
Private Sub Command3_Click()
dta.Recordset.MoveFirst
End Sub
Private Sub Command4_Click()
dta.Recordset.MoveLast
End Sub
Private Sub mnuAbout_Click()
frmSplash.Show
End Sub
Private Sub mnuAdd_Click()
varCurrentRecord = dta.Recordset.Bookmark
dta.Recordset.AddNew
blnAddingRecord = True
End Sub
Private Sub mnuDelete_Click()
dta.Recordset.Delete
End Sub
Private Sub mnuExit_Click()
End
End Sub
Private Sub mnuSave_Click()
dta.UpdateRecord
If blnAddingRecord Then
Command4_Click
blnAddingRecord = False
End If
End Sub