Trouble With Event Order??

Apr 26, 2005

Can anyone point me in the right direction on this...

I have a field on a form where data can be added or edited.
I would like to have a message box appear when the data in the field has been changed.

I do not want the message box to appear when a new record is added. I tried using the On Change Event, but then every time a key is pressed they get the message box and had to click "ok" before typing the next letter. This included new records as well.

Is the a way that I can summon my message box only after a previously created record has been edited and the person has finished typing?

Thanks for any pointers!
Carly

View Replies


ADVERTISEMENT

Simple Event Order Problem

Aug 23, 2005

I have a form with a test list. Each test is a record with a yes/no checkbox, and controls for testdate and examiner. I don't want the user to be able to exit a record if the yes box is checked and either the testdate or examiner fields are blank. The code I am using is:

If IsNull(Me.Examiner) And Me.SelectTest = Yes Or IsNull(Me.TestDate) And Me.SelectTest = Yes Then
MsgBox "You must enter an examiner and a test date for each test you select.", vbCritical + vbOKOnly + vbDefaultButton1, "Missing Data"
Me.Examiner.SetFocus
Cancel = True
Else
Cancel = False
End If

I am having trouble with which event should be used with the code, however. In both before and after update I have had the following problem. If a user accidentally checks the wrong test and then unchecks it, they still get the message as if the box were still checked yes. Can anyone tell me why and how to avoid that?

Thanks in advance,
Carly

View 7 Replies View Related

Allow More Than Order In ORDER Form

Apr 4, 2013

I have a problem when I want to create an "ORDER" form, that will allow user to enter more than one order.

I have no clue how to do it.

View 14 Replies View Related

Look-up Trouble

Jun 20, 2005

Hello. Recently posted for advice on building an access database on health service training. I had a lot of help but I suppose I haven't really grasped relationships yet. My database looks like this:

tb_staff containing staff_id, first_name, last_name, base, dept_ward, job_title
tb_courses containing course_id and course
tb_training_done containing staff_id, course_id, date_trained, trainer, venue

I have 1:M tb_staff to tb_training_done and the tb_training_done is linked to the tb_courses 1:1 - not sure if this is right but it's the only way access will do it.

Anyway, my idea was to use a form and subform to enter training done but after setting up the lookup it won't allow duplicate courses i.e. same course done each year. Can anyone explain how the lookup works? Where are the details of courses done stored?

Hope that's not too vague?

View 2 Replies View Related

Having A Tad Of Trouble

Aug 6, 2007

im having a bit of trouble generating a field in one of my queries. i think its fairly simple, all i want to do is have the field in my query to show a date, that is just calculated by subtracting 5 days from the current day. i have something that looks like =Now()-5 but that doesnt work obviously. so im just asking whats the imput going to look like if you want to subtract 5 days from a date? oh and im using short dates for the date inputs

View 2 Replies View Related

In Trouble

Sep 13, 2004

I am trying to build a report that lists all call in's and all tardies on the same sheet. They are two different tables, that I made queries out of because of calculation fields. Do you know how I can include all the needed data in the same report?

What I'm getting when I try is either all call-in's for each name that has tardies or vice versa. I need to see all data on one report

The reason I didn't just put all the data in one table was because we track call-in's by occurence, but we track tardies by pay period. So each call in is logged in the call-in table with the date it happened on, and the tardies are logged in by pay period, so only the total is stored in the field.

Do you have any ideas? I'm really stuck and I've been workin' on it for three days now and I don't think I'm going to find the solution by myself. Sorry. Thanks!

KellyJo

View 5 Replies View Related

Newbie Still Having Trouble

Jul 5, 2005

Gee, I know this is probably so simple...I've never in my life worked with any kind of data base program. I've spent 2 hours trying to make it work and it doesn't. I've tried so many things that I can't even remember what steps I did. I'm trying to create a one column list for phone numbers, no names or anything else...the most important thing is that when I add new phone numbers to this list I want Access to alert me that it is a duplicate and not allow me to add it.....first of all it won't let me add entries with dashes such as 312-5964, I tried selecting "numbers" and also "auto number", both didn't work, what am I doing wrong...can someone give me the steps from the beginning please....I don't have time to figure this out and it's holding me back from finishing a task. I have to get working on my Video Professor Learning CD for Access which I have at home, but right now I'm at work and can't do that...hellllllllp! I'm ready to tear my hair out :eek:
Thanks, Rosey

View 2 Replies View Related

Trouble Copying DB From CD

Mar 13, 2006

I have an Access DB I have to put on numberous laptops. The DB is being transported via a CD. When i try to copy the DB from teh CD to a new folder on the laptop I get messages that the DB may have a virus and it cant be copied, or I need to install a microsoft service bulliten...xxxx ( I am not sure what the number is). The DB does contain VBA code and I am certain it is virus free. Is there some setting in access which enables this file to be copied on laptops which do contain virus or firewall protection or must I disable virus protection on these machines before instlaling the program or is it another issue altogether. Thanks.

View 3 Replies View Related

Big Trouble With Autonumber

Mar 27, 2006

Hi

I have genreated an autonumber in my table, at this is used as key. after importing 135 records it starts to jump 48 records before it creates a new. This means that with every record i import after 135 i have a space of 48 between each. So what sort of thing can cause this? and even better how do i fix it?

Best Regard
Roald

View 2 Replies View Related

Trouble With Filters

Jul 6, 2006

I have been using the forums for the past month and a half, and they have been extremely beneficial to me. I am working on a database that cross references my companies Steel standards to American standards. I am trying to make it searchable in a couple of different ways. I have borrowed code found on this site to make two different search engines. One works very well but the other I am getting hung up when I try to switch from the previous code to mine. below is an example of my code. It is taken from code placed on here previous called "SampleSearch"

Private Sub cmdSearch_Click()
On Error Resume Next

Dim sSql As String
Dim sCriteria As String
sCriteria = "WHERE 1=1 "

'tblSubject qrySearchCriteriaSub
If Me![Spec] <> "" Then
sCriteria = sCriteria & " AND qrySearchCriteriaSub.Spec = """ & [Spec] & """"
End If

If Me![SteelType] <> "" Then
sCriteria = sCriteria & " AND qrySearchCriteriaSub.SteelType like """ & [SteelType] & "*"""
End If

If Me![Group11] <> "" Then
sCriteria = sCriteria & " AND qrySearchCriteriaSub.Group11 like """ & [Group11] & "*"""
End If

If Me![Group143] <> "" Then
sCriteria = sCriteria & " AND qrySearchCriteriaSub.Group143 like """ & [Group143] & "*"""
End If

If Me![Substitute1, Substitute2, Substitute3, Substitute4, Substitute5, Substitute6, Substitute7, Substitute8, Substitute9] <> "" Then
sCriteria = sCriteria & " AND qrySearchCriteriaSub.Substitute1 = """ & [Substitute1] & """"
End If

sSql = "SELECT DISTINCT [Spec], [SteelType],[Group11],[Group143]from qrySearchCriteriaSub " & sCriteria
Forms![frmSearchCriteriaMain]![frmSearchCriteriaSub].Form.RecordSource = sSql
Forms![frmSearchCriteriaMain]![frmSearchCriteriaSub].Form.Requery
'[Spec], [SteelType],[Group11],[Group143]

'frmSearchCriteriaSub.Requery
End Sub

I apologize also because I do not know how to post this in a scrollable window. If someone could help me with that too.

The problem with the code is that I am using a form to filter a query, this will then display the table of the steels that meet the requirements. However, I have altered all of the fields to my names and the combo boxes have my information, but they do not seem to place any parameters on the query. I attached the original DB that I got this code from any help would be appreciated.


Riley

View 2 Replies View Related

Trouble With Log In Script

Apr 5, 2007

I have a access 2002 database that was handed down to me.. this program does some document control, set up with access rights for different users.I got into it to clean it up a bit and I've hit a snag. I converted the database from a 2000 to a 2002. Amidst playing around with the Log-In screen somehow my Log In button stopped working; except if you type your password and then hit enter.Now the Log In button ( cmdLogIn_Click() ) is pointing at the same exact script as the ( txtpassword_KeyDown(KeyCode As Integer, Shift As Integer) ) function.I don't know any VB and I'm not really familiar with Access, so if anyone could decode this for me I would be really grateful. Here is the script that those two functions are pointing to:Private Sub LogIn_Click() Dim strPassword As String Dim strPasswordAttempt txtPassword.SetFocus strPasswordAttempt = txtPassword.Text cboUsername.SetFocus strPassword = DLookup("[Password]", "User", "[Username] = '" & cboUsername.Value & "'") If strPasswordAttempt = strPassword Then strUsername = cboUsername.Value intAccessLevel = DLookup("[AccessLevel]", "User", "[Username] = '" & cboUsername.Value & "'") bolApprover = DLookup("[Approver]", "User", "[Username] = '" & cboUsername.Value & "'") bolEditDocumentInfo = DLookup("[EditDocumentInfo]", "User", "[Username] = '" & cboUsername.Value & "'") bolEditUserInfo = DLookup("[EditUserInfo]", "User", "[Username] = '" & cboUsername.Value & "'") bolEditReferenceDocuments = DLookup("[EditReferenceDocuments]", "User", "[Username] = '" & cboUsername.Value & "'") bolViewAllApprovers = DLookup("[ViewAllApprovers]", "User", "[Username] = '" & cboUsername.Value & "'") bolDocumentControl = DLookup("[DocumentControl]", "User", "[Username] = '" & cboUsername.Value & "'") ' MsgBox "Your access level is " & intAccessLevel Startup ' run startup sub DoCmd.OpenForm "Welcome", acNormal DoCmd.Close acForm, "Login" LogEvent strUsername, Now(), "Login Successful", "Network Username: " & strNetworkUserName & " on Computer " & strComputerName 'LogEvent strUsername, Now(), "Login Successful", " on Computer " & strComputerName Else MsgBox "That password is incorrect. Try again." LogEvent "Unknown", Now(), "Login Failed", "Attempt: " & CStr(cboUsername.Value) & " , " & strPasswordAttempt & " Network UserName: " & strNetworkUserName & " on computer " & strComputerName End If End SubWhen you click the Log In button it does actually run the script, but it gives me the "The password is incorrect. Try again." message even if the password is correct. I can just click into the txtpassword box and hit enter and it will log me into the database.P.S. I say again, this isn't my code.. its probably super ugly, but I cant' tell :o

View 3 Replies View Related

This Forum Got Me In Trouble...

May 1, 2007

Hello all active members of this forum,

Like I stated on the title, this forum got me into trouble. By following the reading in this forum and some recommendations from the regular users I have created thre database for the place I work at. now they want me to be the official DB admin! :eek:

So now I'm coming back to you guys for more advice... :rolleyes: what reading should I do to better my Access knowledge over all.

Any recommendation is welcome.

I have already contacted th local college and they do have a distant learning class for Access and I will be taking it the next semester, but I would like to do some reading into becoming a REAL Access programmer with a solid foundation.

There must be some good books out there to purchase to get me started. So all are welcome to give me some feedback.

Thanks!

René

View 14 Replies View Related

Trouble Importing- Pls Help

Sep 6, 2007

Access 2002.

Hey guys-
I have a software program that I am exporting data out of into excel (it's SQL based). From Excel, I then am importing into Access into an existing table previously created from a similar file (same columns, just different record sets). I am running into problems when importing files...

If I import into a new table, and have Access create the table based off of the Excel file- it works fine. If I try to import more records into this same table, it tells me it failed to import and that an error occured (no error's table created, no error number given). If I delete the original records in the table, and re-import the SAME RECORDS that were originally imported to create the table- it doesn't work. It will only import my files if it creates a brand new table for each import, every time.

Can Access not import into an existing table? It should- but I dont get what's going on here. I have tried DBF, HTML, txt files- all the same results. I really don't want to have to create a new table each time- as now my Queries will have to be updated everytime I create a new table. Can you please help?

View 1 Replies View Related

Autonumber Trouble

Dec 16, 2005

I don't how this happened but a crucial field (ClientID) in my Clients table changed from Autonumber to Number. It's the primary key and linked to other tables. Access won't let me change it back...and until i do my entire database is at a standstil - cannot enter new clients.

View 2 Replies View Related

Trouble With Tables

Dec 11, 2006

Can someone please help me, I might have my logic a little backwords.


I have a table (tblLoanDetails)

LoanNumberID
etc.
etc.
etc.
EscrowCompanyID


then I have a table called (tblEscrowCompanies)

EscrowCompanyID
EscrowCompanyName
EscrowCompanyAddress
etc.
etc.
EscrowOfficerID

then I have a table called (tblEscrowOfficers)

EscrowOfficeID
EscrowOfficerName
EscrowOfficerSalutation
EscrowOfficerEmail


What I am trying to do is when someone is filling out the first table (tblLoanDetails) they have a dropdown to choose the escrow company, then they must choose the escrow officer

Each escrow office can have many officers, however, when they choose the escrow officer from a dropdown, I only want that offices escrow officers to appear in the dropdown.

Any help would be greatly appreciated

thank you

Josh

View 1 Replies View Related

Am I Heading For Trouble? I've Never Had So Many One-to-one Before...

Jan 17, 2008

I have been asked to redesign a database that tracks a huge number of data points. These are projects and the original table had over 100 fields. I have managed to separate them to related tables in an attempt at normalization. They are:

tbl_workorders (main project info)
tbl_services (services ordered)
tbl_contacts (internal company contacts)
tbl_customers (customer information)
tbl_project_dates (milestones of project)

Now this is different from other databases I've designed because all of the tables need a one-to-one relationship with the main table (tbl_workorders).

Am I heading for trouble with so many tables existing in a one-to-one? Also, The table tbl_workorders has its primary key as an autonumber. I want any new order on this to create matching foreign keys on all the other tables...I assume this should be handled since I have enforced referential integrity with cascade on update/delete for all the other tables.

Thanks for your feedback!

View 12 Replies View Related

Trouble Getting The Last Record

May 16, 2005

Hey, I have a query to calculate the stock balances and their values.....the client is using FIFO method...therefore, the stock may have different values at different stage......but they want to display the latest unit price in the report.......I selected "Last" at the UPrice column in the query, but the query doesn't give me the value I want.....

e.g.

Date In Out UPrice
03/12/05 12 0 22.00
03/14/05 0 12 22.00
03/15/05 15 0 24.50

In this example, the report should displays 24.50, but it displayed 22.00.....
can someone point to me where I have made the mistake?? Thank you

View 1 Replies View Related

Leftjoin Trouble I Think!

Oct 28, 2005

Hi,
im realy realy stuck this time.
This is the problem:

i have 2 tables. groupproject, employeproject.

Groupproject has: groupcode(pk), employeCode(pk), projectCode(pk)
employeeGroup has: employeeCode(pk) and projectCode(pk)

a project can have a group and a group can have members. A member is related to a project. Now i want to display all the members who are not in the selected group . For example, i select group 1 and i display all the members who are not in 1. The problem i keep have is that for example:

employee 1 is on group 1 and in group 2 and goup 1 is selected, he wil be show. This is because i use a statment "<> selectedgroup" . So the query runs trough te tables, comes back with group 1 and says, ok employee 1 is in the group i will not show. BUT THEN the query comes to eployee 1 in group 2 and the query says, hey your not in group 1, i throw you on the list.

can someone help me with this irritating issue.
i tried this query

SELECT ProjectGroup.ProjectCode, ProjectGroup.GroupCode, ProjectGroup.EmployeeCode FROM ProjectMembers LEFT JOIN ProjectGroup ON (ProjectMembers.ProjectCode=ProjectGroup.ProjectCo de) AND (ProjectMembers.EmployeeCode=ProjectGroup.Employee Code) WHERE (((ProjectGroup.ProjectCode)=Forms!GroupView!Proje ctCombo) And ((ProjectGroup.EmployeeCode) Is Null)) Or (((ProjectGroup.GroupCode)<>Forms!GroupView!GroupView));

View 3 Replies View Related

Trouble With Dates

Dec 18, 2005

I have a table where I'm recording when I need to follow up with a client. From this table I want to create a query where as the criteria is everything more then 30 days from todays date. I built an expression of Expr1:[date of follow up] - date(). I set the criteria for <30. It gives me everything overdue ( a negative number) and everything going to be due in 30 days or less. However if I take the 30 out and substitute a parameter"[How Many Days]". It only gives me the positive numbers. Why is that and what can I do? I would like to take this query and build a report off of it where as when I open the report i will have to answer that question and it will give me everything overdue plus what will be due.

View 3 Replies View Related

Trouble With Nulls

Jan 2, 2006

hi,

i am having trouble with a criteria expression that seems to have an issue when it runs into null data in my table.

the query column is as below ...

DateSerial(Year([SomeDate]),Month([SomeDate]),1)

and the criteria for this column is ....

DateSerial(Year(Date()),Month(Date()),1)

So basically I am looking for those fields that match the first date of this current month.

for some reason when there are null values in the table this thing chucks back data type mismatch error but when i take the criteria away its all good

any ideas why this is happening?

View 1 Replies View Related

Trouble With Min/max Queries

Feb 2, 2006

I have a MainQuery with the following fields:
ID-(the patient's ID)
Score
ItemID

I am trying to get the highest score for each patient and be able to identify which item was their high score, so basically I want to end up with the following query results:

ID
(Patient'sMax)Score
ItemID

To do this I was trying the following two queries:
Query1:
SELECT Max([MainQuery].[Score]) AS MaxOfScore, [MainQuery].[ID]
FROM MainQuery
GROUP BY [MainQuery].[ID];


Query2:
SELECT [MainQuery].[Score], [MainQuery].[ID], [MainQuery].[ItemID]
FROM MainQuery INNER JOIN Query1 ON ([MainQuery].[ID]=[Query1].[ID]) AND ([MainQuery].[Score]=[Query1].[MaxOfScore]);

What I find is that Query1 works and Query2 returns more than just the patients' max scores. Can anyone see the problem in my second query?

Thanks!
Carly

View 2 Replies View Related

Query Trouble

May 15, 2006

How do you use the "sqrt"-function in a query? This function is unavailable in a query - and i do not know why. Please help!?
Thanks

View 2 Replies View Related

Iif Trouble Gets Me Headaches

Sep 16, 2006

I'm having trouble with some calculations on my form.

It's a form for making quotes.
All the articles in the database have quantity discounts and there is sometimes an extra customer discount on top of that.

For example: if a customer buys 1 pack of paper he pays $4.36
if he buys 10 packs he pays $3.92 (10%) and if he buys 50 he pays $3.49(20%)

The discount are located in the listbox where I lookup my articles. When I enter the above example it gives me 10% startting from 2 packs instead of 10 and from 6 packs it gives me 20% instead of 50 packs.

Is there anyone that can help?

This is my iif code:

=IIf([Forms]![frmOfferte]![toptop]=Waar And [Referentie].column(2)="N";round([prijs]*(1-[Referentie].column(6)/100)*(1-10/100);2);IIf([qty]>=[Referentie].column(5);round(([prijs]*(1-[Referentie].column(6)/100))*(1-[Korting]/100);2);IIf([qty]>=[Referentie].column(3);round(([prijs]*(1-[Referentie].column(4)/100))*(1-[Korting]/100);2);IIf([prijs]=[prijs];round([prijs]*(1-[Korting]/100);2);round([prijs];2)))))

toptop = highest discount minus 10%
korting = extra customer discount
[Referentie].column(2) = discount allowed y/n
[Referentie].column(5) = highest quantity (50)
[Referentie].column(6) = highest discount(20)
[Referentie].column(3) = lowest quantity (10)
[Referentie].column(4) = lowest quantity (10)

Thanks for suggestions.

View 3 Replies View Related

Having Trouble Sorting...

Dec 26, 2006

Working with Access 97 (willing to try your ideas even if your not sure! )

I have a query that calculates the distance between a Zip code entered and a list of cities. What I need is to sort by closest cities to the Zip.

Here is my code. I'll explain what I've tried below it.

SELECT CommunityClasses.Community, (69.1*(CommunityClasses.Latitude-Zip.Lat)) AS X, ((69.1*(CommunityClasses.Longitude-Zip.Lng))*Zip.keviekev) AS Y, Sqr((X^2)+(Y^2)) AS Distance
FROM CommunityClasses, Zip
WHERE (((Zip.[Zip Code])=[Please enter a ZIP Code]));

When I try to sort, it asks for a value for X and then again for Y. If I don't ask to sort, it calculates the values as it should do.

If I ask it to ORDER BY Sqr((X^2)+(Y^2)) it again asks for values of X and Y.

What do I need to do to sort the Distance Field in Asending order.

Thanks for any input! Let me know if I did not give enough details.

View 2 Replies View Related

Query Trouble

Feb 15, 2008

I have attached a small db that has 1 query with several fields..

Here is what I'm looking to do.

In the Query there is the following fields:

SignINMemberID
GuestOfMember
SignInDateTime
AllowedEntry

Now all these are derived from tdatMemberSignIn.

What I want to do is show the name that corresponds with the MemberID in table MemberList.

That means if the SignInMemberID exists it would show First and Last Name and if GuestOfMember is blank it would show nothing.

If the SignInMemberID doesnt exist but the GuestOfMember does then it would show the First and Last name beside that field.

If the number doesnt exist it would be blank.

I entered the places I wanted to show the data in the query for your reference as expr1, expr2, expr3, expr4 for your reference.

Any help would be appreciatted.

View 1 Replies View Related

Where Clause Trouble

Apr 22, 2008

OK I have code to make a where clause this is working fine. Now I have to add another piece of code to filter it even more, this is where I am having trouble

Code that works fine

'construct a where clause as required for the list box
'if the Manufactur box is blank then all games will show up on the list
If Mfg = "0" Then Mfg = "*"
If Denom <> "" Then where = "DenomFix LIKE '" & Denom & "*' AND "
If Mfg <> "" Then where = where & "MFRCode LIKE '" & Mfg & "' AND "
If Search <> "" Then where = where & "Description LIKE '*" & Search & "*' AND "
'this will filter the list with only the approved games
Dim Aprvd As String
Aprvd = "Approved"
If Me.AprrovedCheck = True Then where = where & "Approved LIKE'" & Aprvd & "' AND "

'remove the trailing "AND ", if it exists
If Right(where, 4) = "AND " Then where = Left(where, Len(where) - 4)
'and if there is any text in the where clause, add the word 'WHERE '
If where <> "" Then where = "WHERE " & where
'apply the SQL to the rowsource of the List box to Pick a game

Me.List8.RowSource = _
"SELECT Approved, ReelStops As [Corp ID], DenomFix as Denom, Description As Theme, Par, MaxCoins As [Max Coin], PayLines As [Pay Lines]" & _
"FROM MachineTypeQuery " & _
where & _
"ORDER BY Description;"

Now what I need to add code to make a where clause that says something like DVIA is greater then 0 (DVIA >0) but I want to do this by its self and add it back into the where clause

Example
Private Sub ApplyPropertyWhere()
If PropertyGlobal = "DVIA" Then PropertyWhereGlobal = "DVIA > 0"

I would then put a line of code in the where clause like this
'This will filter the list with only the property they are from
If Me.PropertyCheck = True Then where = where & PropertyWhereGlobal

Please Help me fix the "DVIA >0" Thanks

View 9 Replies View Related







Copyrights 2005-15 www.BigResource.com, All rights reserved