Replies

I am using no locks and I have a timer built in that if there is 15 minutes of idle time the program will boot them out. The message seems to be appearing when we are adding new records. The program allows users to add employees to a roster for current courses offered. We register for our own courses so no one should be entering for my courses. We do write to the same student table but this has never happened before…why now??

Could I not be refreshing soon enough or updating the number of retries (under tools, options, advance)?

Deborah

I know you must think I am as dumb as dirt but I am having difficulty with the concept you gave me. I went home and opened the database and converted it to an earlier version so I can at least look at it. I added answer 1, answer 2 and answer 3 to the tblresponse table. Is this correct? Do I put all my questions in the tblquestion table?

When you generate a form so the user can add data, did you create a query of all fields? I have drop-down list for the user to select an answer – is this still going to work?

I can not see the whole picture and I am having problems with the form.

HELP!!! I don’t think it is only the state of SC in a drought – my mind is had dried up!

Thanks,
Deborah

You can do a screen print and paste in Word and then attach. I have not tried to screen print and paste in the forum.

Looking forward to seeing the printout.

Deborah

I can not preview the attachment because I have access 97.

I will view the old post information and see what I can come up with.

Thanks,
Deborah

Thanks for the reply. You know that Access is like everything else – if you don’t use it – you will lose it. I have currently switched from the computer training field to corporate training and I feel like I don’t remember anything. Well…I understand your logic, however, I am unsure about what is in your question table. I know questions but how is it built. Is it possible to send me a sample of your survey database or of the relationships. I am more of a visual learner and I need to see it to get a clearer idea of what to do.

Thanks for all your assistance,

Deborah

Thanks!

I now have another question. They are telling me that I must convert to ASCII before I can download. How can I do this? The database contains data and pictures. It is used for making picture IDs. Can I do this?

Deborah

I checked out the attachment and I think that will work great. I have a few questions before I implement this process into my database.

Will it work if I attach it to the switchboard?
If they have another form open and they are idle – will it still boot them out if I attach this to the switchboard?

I am so afraid that it might cause problems. Is there a need to be concerned? I reallt need it to work because the database is getting rather large and slow.

Thanks,
Deborah

I have used this function and it works – Worksheets(“Sheet1”).Range(“a1:M45”).BorderAround _
ColorIndex:=3, Weight:=xlThick.

However, is there a common to do this at every page break that I could put in the range?

I really appreciate everyones replys.

Deborah

No. I actually mean pages of data. The one spreadsheet has tons of rows of data and it prints out 97 pages of information. I want a page border around each page of data. I know that I can select the data for that page and apply a border but that is very time consuming. I was wondering if the was a faster way to do this without selecting each individual page. I could view the data in page break preview but still a lot of work.

Thanks,
Deborah

Works Great!!!

THANKS…..

Deborah

I was referring to the date at the top such as Feb01 and then the out date. I have read in the Pearson Software web site that the formula will return the #num! if the month (feb01) is greater than the out date. I should be able to add something to this formula to produce an 0 or the words “out of range” but what ????

Thanks,
Deborah

Andrew,

I entered the formula and it works great. There is one problem, when the date is greater than the end date, I get a #num! error message. I have tried to make some changes but to not avail. Can you provide some suggestions?? I am using dates through the end of the year – I would like a 0 in the fields instead of the #num! message.

Thanks,
Deborah

You have the idea. I found a potential problem but don’t know how to get out of it. There is a link!!!! The file was an given to me to take over and I never noticed that there was a link. How do I remove the link? Also, if I go to the VBA editor it shows a VBA project. How do I remove this?

Thanks

I don’t think I made myself real clear. Our pay period run every 2 weeks so I need an update from payroll to add new employees and remove terminated employees. Another system is updated daily but I only get the download every 2 weeks – again I need the new information. There are a few fields like Qualifications, License # that is only updated when the Director receives this information – so this must be hard keyed somewhere. If I import all my downloads and use a make query table it overwrites the hard keyed data. How do I keep the keyed data and bring in the imported data?

This is what I did yesterday. I made a master of the first downloads and I use this file to hard key in as well as using it as a base. Next, I create another file called updated master, union the master and updated master and then I build a make table query to check for Last under the hard keyed fields and generate another table that I pull reports from and this seems to work. I am in the process of testing today. If you have any other suggestions, please do not hesitate to reply.

Thanks,
Deborah

Here is my code – one word of warning….I am a novice in VBA!

Sub Combo82_AfterUpdate()

Dim rst As Recordset
Dim mess As String
Dim lname As String
Dim fname As String
Dim soc As String
Dim addnew As String
Dim citynew As String
Dim statenew As String
Dim birth As String, sx As String, zip As String, phnum As String
Dim jc As String, cname As String, ca As String, cc As String
Dim cs As String, cz As String, ccode As String
Set rst = Me.RecordsetClone

‘ Find the record that matches the control.
Me.RecordsetClone.FindFirst “[ss#] = ” & Me![Combo82]
Me.Bookmark = Me.RecordsetClone.Bookmark

If rst.NoMatch = True Then GoTo NEWREC

mess = MsgBox(“Is this the correct person?”, vbYesNo, “Search”)

If mess = 7 Then GoTo NEWREC

‘existing person

If mess = 6 Then

Let lname = Me![LastName]
Let fname = Me![FirstName]
Let soc = Me![Combo82]
Let addnew = Me![Address]
Let citynew = Me![City]
statenew = Me![State]
birth = Me![Birthday]
sx = Me![Sex]
zip = Me![Zipcode]
phnum = Me![Phone]
jc = Me![JobCode]
cname = Me![Company Name]
ca = Me![Company Address]
cc = Me![Company city]
cs = Me![Company State]
cz = Me![Company zip]
ccode = Me![Country Code]

DoCmd.OpenForm “frmcalendar student no ss#”, acNormal, , , acFormEdit
DoCmd.GoToRecord , , acNewRec

Let LastName = lname
Let [FirstName] = fname
Let [ss#] = soc
Let [Address] = addnew
Let [City] = citynew
[Coursecat] = Forms![frmcalendar]![calendar/course subform]![Coursecat]
[SubCode] = Forms![frmcalendar]![calendar/course subform]![SubCode]
[CourseCode] = Forms![frmcalendar]![calendar/course subform]![CourseCode]
[dateoffered] = Forms![frmcalendar]![calendar/course subform]![dateoffered]
[Time] = Forms![frmcalendar]![calendar/course subform]![Time]
[inst] = Forms![frmcalendar]![calendar/course subform]![Instructor]
[State] = statenew
[Birthday] = birth
[Sex] = sx
[Zipcode] = zip
[Phone] = phnum
[JobCode] = jc
[Company Name] = cname
[Company Address] = ca
[Company city] = cc
[Company State] = cs
[Company zip] = cz
[Country Code] = ccode

End If
GoTo FINISH

‘NEW Person

NEWREC:

DoCmd.GoToRecord , , acNewRec

[Coursecat] = Forms![frmcalendar]![calendar/course subform]![Coursecat]
[SubCode] = Forms![frmcalendar]![calendar/course subform]![SubCode]
[CourseCode] = Forms![frmcalendar]![calendar/course subform]![CourseCode]
[dateoffered] = Forms![frmcalendar]![calendar/course subform]![dateoffered]
[Time] = Forms![frmcalendar]![calendar/course subform]![Time]
[inst] = Forms![frmcalendar]![calendar/course subform]![Instructor]

[ss#] = Me![Combo82]

DoCmd.GoToControl “Firstname”

FINISH:

End Sub

I know there are several times that I goto a new record. I have tried removing them but it does not work. I also have a Goto New Record when the form is opened.

Hope you can understand my logic!!!

Thanks for looking at it.
Deborah