Thank you so much for your time, advice and patience..it has been very much appreciated.
I believe that I have managed to create my very own plaster for my database problem which at the moment works!
I've simply repeated the close and open form code after inserting the name of a child and this...
I think I've found the Public variable at the top of md_AccessRights...
Option Compare Database
Option Explicit
Public AccessRights As Integer
You said the below code doesn't make sense but it seems to work until we get that untrapped issue...??
Public Sub SettingAccessRights()
Select Case...
First question, how do you trap an error?
In regards to the where is the AccessRights = bit...
It sits in mdl_AccessRights as detailed above with all the select cases...
Case 1: AccessRights = 1
If User.AccessID = 1 Then
Form_frmChildDetails.Allow edits = True
...
Else
...
Case 2...
Hi and many thanks for your continued support...
1) I'd love to tell you that each user has a copy of the front end but I've got bigger problems as all are sharing a front end on the network!!
2) I've tried to detect where things are going wrong so here's what I've done...
I've stripped out...
Wow! Thanks so much... A lot to digest..
Here is the basUserInfo module
Option Compare Database
Option Explicit
Public Type UserInfo
' ViewID As Integer
AccessID As Integer
Active As Boolean
Password As String
UserID As String
SecurityID As String
End Type
Public User...
Thanks to everyone so far.
MajP... Here is some mdl_AccessRights code:
Public Sub SettingAccessRights()
Select Case AccessRights
Case 1: AccessRights = 1
If User.AccessID = 1 Then
Form_frmSearch.cmdAdmin.Visible = True
Form_frmSearch.lblAdmin.Visible = True...
Being a real novice at this part of Access I'd say "homegrown code-level security". I was just chuffed it all worked when it was a local table.
This is the code on my login button
Private Sub cmdLogin_Click()
On Error GoTo Err_cmdLogin_Click
Dim db As DAO.Database
Dim rst As DAO.Recordset...
Hi,
I have a database which I've recently converted to SQL backend tables.
Since the conversion when I use my log-in form which takes a network login and password, the access rights are no longer consistent throughout the database.
When I get to the main form, for read only users they can...
Hi All,
Thanks so much for your efforts. Between everyone's suggestions I've managed to get the functionality working as I wanted. In terms of the neatest way of doing it, I can't be sure but for now, it works so here is what my code looks like for anyone else who has a similar issue...
Thanks Andy...
I got the following message in the Immediate window...
INSERT INTO tblCAFHistory (HistoryDescriptionID,CAFID) VALUES ('1',)
Does this help?!
Cheers
This is going to sound very school boy like and ignorant but having got up the expression builder and drilled down to the assessment ID field through various ways (including the loaded forms) all I get is [txtAssessmentID] but that doesn't give me the full syntax path I would have thought you...
Thanks so much for help BUT...
It didn't work, just did the same as before...pops up with a query box which if I insert the assessment ID number works but I want this to be seamless without my intervention!
Sorry!
It's so annoying!
Hi All,
I've tried the following code to take a different route but still no joy...am I doing this right? It appears to be having a type mismatch when appending to the new table and not working so it's not picking up the value more just the name of the field...which then causes the type...
Hi PHV,
Thanks for the code tweaks..
Tried it but now it comes up with a query box asking for a value to be inserted for that Assessment ID field.
I entered the one I wanted but it still didn't work...
I don't think this is a massive problem, it's just working out what code structure it will...
Hi,
I have a table which acts as a history for a child's Assessment form (done through subforms). When a new assessment is created for a child I want the history table to be populated with a couple of default records.
I've managed to work out how to use the INSERT INTO function and get the...
In true school boy error fashion I've realised... thanks to jsteph who asked where the error occurs. The coding aboves works fine...I have another startup form which also has an openrecordset in the VBA which requires the dbSeeChanges option to be included.
Everything is working perfectly...
Hi jsteph,
User is picking up the Windows login User ID and the error appears to occur on the Set rst line.
Being only a novice at SQL I may not be locating the error correctly. If you can guide me through finding the information you are looking for (ie stepping into VB) then I may be able to...
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.