Tables :: Program That Unlinks A Table After Certain Functions?
Aug 18, 2015
We have an access program that unlinks a table after certain functions, and relinks it in others. Is there a need for this? For one user, the table does not link, so we have to manually go over and link it for her everyday.
I am wondering why it was built to unlink and relink - shouldn't the link be "real time" and get up-to-date data?
I am also not sure why the TableDefs.RefreshLink is necessary (though it is not in our code - what situation would warrant refreshing the link?)
View Replies
ADVERTISEMENT
Oct 20, 2004
I have several tables that I would like to be seperate from the forms. Bottom line is that I want the program stuff to be seperate from the tables seperate as in two different files.
I have not messed around with this yet and am wondering how big of a pain this will be to do with the code that I have already written?
Any thoughts ideas etc.?
View 1 Replies
View Related
Oct 20, 2004
How can I do this? There doesn't seem to be an member of Field called format. Why is this? I want to make the display on a Boolean field, in a Table made from a Make Table Query, to Yes/No, rather than default 0/-1.
View 7 Replies
View Related
Jun 24, 2007
I am trying to design a database for the company i work for, and I am wondering what is the best program to use.
My database will be shared on a network, and many different users will be using it at once. Also, I need this database to allow vpn connections so that certain people can access the db from outside of the office. I am not sure if db programs would deny a vpn user access, it might not make a difference how people are accessing info, but i think its worhtwile to mention that.
I appreciate your help, even though you opinions may be just a little biased. but thanks none-the-less.
View 14 Replies
View Related
Jun 15, 2005
i have the following line:
Me.Text2 = Right(Me.Text0, InStr(1, Me.Text0, ".") - 1)
and i would like that if Text0 is "test.exe" i want to return "exe", however, with the above i am getting ".exe" ... can someone tell me what i am doing wrong please ?
Thanks
View 4 Replies
View Related
Jan 4, 2005
I currently have a text box that is calculated off of 6 other text boxes. I want the one field that is calculated to update any time I change any of the other fields. I can do this by putting the same calculation in each ones afterupdate event. Below is one section of my code for the arithmetic, and I want to perform that code many times. Can I use a function to do this, and if so some help would be nice? thanks
Private Sub HEAVY_AfterUpdate()
Total_Sheets = SECOND + HEAVY + LIGHT + SCRAP
Total_Sheets = Total_Sheets * YIELD
Total_Sheets = Total_Sheets + D_Sheets
Total_Sheets.Text = Val(Total_Sheets)
End Sub
View 2 Replies
View Related
Aug 18, 2004
In access, I'm trying to create a database to track material that has an expiration date of one year from the appointment letter date. I'm not sure what I need to do here. Here's what I have: I have a table that has fields for the individual (UNIT), the appointment letter date (Appointment Letter Date), and a True/False field (Out of Date) that I want to make True when the current date is greater than the (Appointment letter date + 365 days). Is this possible through Access tables and/or queries or will I have to incorporate VB? I am an extreme novice when it comes to expressions and query building in Access.
Nathan
View 6 Replies
View Related
Dec 16, 2005
Hi all!
I have created a database with auto-archiving features. I have "working tables" that are populated when the product is moved to the correct process, in this case when it reaches the test department. When the product is moved out of the relevant process, the database runs several queries which archive the relevant data and deletes the records from the working table.
There are two working tables in the test department, one for test failures and one for rework activities. The question at hand is WHEN should I populate the working table for rework activities:
Option 1: Populate the table when the product moves to the relevant process. This will create and delete thousands of records from the working table every day. Using this method will cause my table to bloat to 50,000+ records that are constantly updated, appended, and deleted.
Option 2: Populate the table when (and IF) the product fails a test. This will keep the table to a much smaller size (around 2500 records) but requires the database to run several queries in the middle of the data entry process, significantly slowing my program.
So which is the faster/better process: Filtering a table of 50,000+ records or appending the working table when you need the data?
View 1 Replies
View Related
Jan 4, 2006
Hi,
I have a delimma and am not sure how to proceed. It falls under the "You want what? When?" category. Basically, I have created an Access program with several (13) related tables and numerous forms. This program mimics an interview we are using for research and has a lot of VBA coding behind it with quite a few skip patterns, value checking, etc. During the testing phase, I was asked to allow the user to be able to go back and check a response to any previous answer at any given point in time. I hear numerous clicks of people running away from this question. This one has me frustrated and not too happy. I am wondering if there is some way I can show a copy of any form and the data contained within it for the present ID? IF it is a copy then the data, I presume would be locked and the user would not be able to change it. Also, I would want to bring the user back to the point where they were prior to going backwards. Feel my pain yet? Of course as I ponder this I can envision that they are going to want to change a value, because maybe a respondent "changed their mind" about a previous question. But, I am sure they would not want to work their way back to where they were, but want to jump back (forward), all the while I need to insure that any skip patterns that may have changed due to a change in data are followed and if a question that was answered before is now skipped then that data needs to be cleaned. I am concerned that as I begin to meander through this issue that I will have "duplicate ID" issues because as I move backward, possibly through several forms and tables and then move forward again the DB will think I am adding two items rather than changing the one. I.e., it will think I have two identical IDs because it already has one from the original pass and as it moves forward and runs through the automated saves that the second pass would represent a duplicate ID, thus crashing the program.
I know this is a multi-pronged question, but I would like to hear some suggestions as to how others with more experience would handle this. I am grateful for your time in reading this and would be even more so for any responses.
Peace!
View 3 Replies
View Related
Aug 24, 2006
I have a bunch of files where I have to copy one piece of data from a field and paste it into a different field on many records...in sort copy once, paste many times. Currently I use Ctrl C for copy and Ctrl V for paste. I'd write a query to do this for me, but not every record is going to recieve the data.
I'm getting tired of having to press Ctrl V on the appropriate records. Is there way to program a function key to do the Ctrl V thing? That way, I'd only have to press one key as opposed to pressing two keys.
Any help offered is truly appreciated. Thanks!!
View 4 Replies
View Related
Oct 10, 2006
Following program i have written in access. what it does is from the query i have created picks up the sizes of doors. calculates hit1 by qty then it needs to put the value into another table alongside the correct sizes. the problem im facing is how do i update the value into another table. heres the listing.
Option Compare Database
Option Explicit
Dim Db As Database
Dim Rs1 As Recordset
Dim Rs2 As Recordset
Dim lf, rh, drw1, drw2, drw3, drw4 As String
Dim q1, q2, q3, q4, q5, q6, qty As Integer
Dim hit1, hit2, hit3, hit4, hit5, hit6 As Integer
Private Sub Command70_Click()
Dim rs1fieldcount As Integer
Dim counter As Integer
''Assign a mdb
''+++++++++++++++
Set Db = CurrentDb
counter = 0
Set Rs1 = Db.OpenRecordset("custdoorsize")
Set Rs2 = Db.OpenRecordset("cusdoorsbase", dbOpenDynaset)
rs1fieldcount = Rs1.Fields.Count
If Rs2.RecordCount = 0 Then
MsgBox "No record found in query"
Else
this is where the value will come from
Do Until Rs2.EOF
If Rs2.Fields!left_door_size <> Empty Then
lf = Rs2.Fields!left_door_size
hit1 = 1
q1 = hit1 * Rs2.Fields!qty
End If
If Rs2.Fields!Right_door_size <> Empty Then
rh = Rs2.Fields!Right_door_size
hit2 = 1
q2 = hit2 * Rs2.Fields!qty
End If
If Rs2.Fields!draw1_size <> Empty Then
drw1 = Rs2.Fields!draw1_size
hit1 = 1
q3 = hit3 * Rs2.Fields!qty
End If
If Rs2.Fields!draw2_size <> Empty Then
drw2 = Rs2.Fields!draw2_size
hit4 = 1
q4 = hit4 * Rs2.Fields!qty
End If
If Rs2.Fields!draw3_size <> Empty Then
drw3 = Rs2.Fields!draw3_size
hit5 = 1
q5 = hit5 * Rs2.Fields!qty
End If
If Rs2.Fields!draw4_size <> Empty Then
drw4 = Rs2.Fields!draw4_size
hit6 = 1
q6 = hit6 * Rs2.Fields!qty
End If
Do While counter <> rs1fieldcount
This is where it finds the correct sizes where it will display the qty value
If Rs1.Fields(counter).Name = lf Then
Rs1.Edit
Rs1.Fields(counter).Value = q1
End If
If Rs1.Fields(counter).Name = rh Then
Rs1.Fields(counter).Value = q2
End If
If Rs1.Fields(counter).Name = drw1 Then
Rs1.Fields(counter).Value = q3
End If
If Rs1.Fields(counter).Name = drw2 Then
Rs1.Fields(counter).Value = q4
End If
If Rs1.Fields(counter).Name = drw3 Then
Rs1.Fields(counter).Value = q5
End If
If Rs1.Fields(counter).Name = drw4 Then
Rs1.Fields(counter).Value = q6
End If
counter = counter + 1
Loop
If Rs2.EOF Then
Set Rs1 = Nothing
Set Rs2 = Nothing
Set Db = Nothing
MsgBox "Finished ....."
Exit Sub
Else
Rs2.MoveNext
End If
Loop
End If
End Sub
please help
View 1 Replies
View Related
Feb 11, 2007
I am using Microsoft Developer and wish to email the program to my customer. With Developer, there are tons of files and a few folders, not just one exe. I realize I must zip to send a exe, but the folders are a problem, since WinZip, which is what I have, will not accept the folders, only files. I could ship like that but it would be a mess on my customer's end. Any suggestion would be helpful.
The reason I want to send this way is just for speed. Of course I can copy to CD and send that way.
Sharon
View 2 Replies
View Related
Mar 6, 2007
I have a database made in MS Access. It has forms that allow the user to do certain things, such as add to the database, and so on. I only want the user to be able to run a program that will run the one, main form i've created it (as well as any other form that the main for lnks to). how do I do this?
View 14 Replies
View Related
May 29, 2007
Hello. I have tried using the search function on the board but I cannot find an answer.
Is it possible to create an executable program to run the database?
I would like to have a computer that does not have Access installed, to be able to load and run the user interface that allows them to manipulate the database, as well as write to it. It doesn't matter if the tables are encrypted or not.
Thanks for your time.
EDIT: It appears that after writing this post, I realized I hadn't used the search term "executable." I found an answer here (http://www.access-programmers.co.uk/forums/showpost.php?p=586646&postcount=2).
View 7 Replies
View Related
Jan 19, 2007
hi,
whenever i key in some data into a form i will transfer the data into a table.
whenever i want to change some data in the form i will delete all the records in the table and re-add all the data from form into the table.
the abv method works. however, i find that it is not effiencent because it every time delete all the records and re-add in records.
how shall i code the program to make it only edit/delete the specific records only instead bulk delete and bulk add?
refer to (program.zip)
Private Sub cmdSaveFltQpi_Click()
Dim Db As DAO.Database
Dim rs As DAO.Recordset
Dim sql As String
Dim f As Form
Dim i As Integer
Dim k As String
Set f = Forms!frmFltQpi
Set Db = CurrentDb()
Call DeleteRecords 'delete all the previous records
sql = "SELECT * FROM [tblFltQpiMonthly] Where tblFltYear = " & f.cboFltQpiYear
For i = 1 To 12 'transfer the data from form to table
Set rs = Db.OpenRecordset(sql)
If rs.RecordCount >= 0 Then
If IsNull(f("txtTotalJobs" & i) Or f("txtTotalRecurring" & i) Or f("txtTotalAirWC" & i) Or f("txtTotalAF" & i)) = False Then
rs.AddNew
rs![tblFltYear] = f.cboFltQpiYear
rs![tblFltMonth] = i
rs![tblFltTotalJobs] = f("txtTotalJobs" & i)
rs![tblFltTotalRecurring] = f("txtTotalRecurring" & i)
rs![tblFltTotalAirtestWC] = f("txtTotalAirWC" & i)
rs![tblFltTotalAirtestFailure] = f("txtTotalAF" & i)
rs.Update
End If
End If
Next i
Db.Close
End Sub
Private Sub DeleteRecords()
Dim sql As String
sql = "DELETE * FROM [tblFltQpiMonthly] Where tblFltYear = " & Me.cboFltQpiYear
DoCmd.SetWarnings False
DoCmd.RunSQL sql
End Sub
View 1 Replies
View Related
Oct 5, 2004
hi!
I'm doing a reminder program this program alerts you if you have things to do each day it has a code that I obtained on the internet wich retrieves the user name. My problem is that when I enter as a user a window shows up say my username and the number of things I have to do but I can't get it to count the number of things to do. I tried a query but it doesn't work (either it shows "#name" or it goes all blank)please help.
thanks in advance, newbiepr
View 4 Replies
View Related
Aug 17, 2005
Hi,
I have build a database which work perfectly on most computers. But one or two for the computer are error with the Left, Right and Date SQL function. Is it simplely miss for the install or it a problem with my code?
Thanks
View 2 Replies
View Related
Jan 12, 2006
Hi everyone,
Thanks for taking the time to read this.
I will firstly give you the low down on the business that I am doing the database for. It is a Car Restoration Business, where we deal with vintage/classic/muscle cars and restore them to the former glory.
I do not know Microsoft Access very well, I have attached a file with what I think is a databae :) I could be wrong. The main function of this database is to search for suppliers for a specific car part for a specific car.
So if I want to find a doorhandle for a 1970 Ford Mustang, I need the suppliers pertaining to those criterias to come up.
How do I get this to happen?
Thankyou for your help
Jess:confused:
View 2 Replies
View Related
Nov 3, 2006
Hello,
I have developed a MS Access database which uses several functions such as DateDiff and inStr. When I use these function on my machine the database runs fines and the values are calculated.
However the database I have developed is not for my computer and when run on this one computer produce some errors (The date function is mentioned). I believe this is some sort of security issue but I cannot be sure.
Both computers run the same version of Office. Does anyone have any ideas.
View 2 Replies
View Related
Nov 3, 2006
Hello,
I have developed a MS Access database which uses several functions such as DateDiff and inStr. When I use these function on my machine the database runs fines and the values are calculated.
However the database I have developed is not for my computer and when run on this one computer produce some errors (The date function is mentioned). I believe this is some sort of security issue stopping her running the functions.
Both computers run the same version of Access. Does anyone have any ideas.
View 3 Replies
View Related
Aug 8, 2007
Does anyone know of a good resource to mull through all of the built in functions and learn their syntax, uses, etc?
Thanks
bluke
View 2 Replies
View Related
Dec 7, 2007
Is there a list anywhere that tells what all the functions do in access?
I mean functions such as:
RTrim
RTrim$
SaveSetting
Seek
There is a big long list, and some of them.. I have no idea what they do.
View 7 Replies
View Related
Oct 12, 2005
I have a query that contains a field with 4 codes that I need to replace with values.
Example:
Replace([CE020]![LNCH_FLG],"0","None") Replace([CE020]![LNCH_FLG],"1","Free") Replace([CE020]![LNCH_FLG],"2","Reduced")
Replace([CE020]![LNCH_FLG],"3","State Free")
Replace([CE020]![LNCH_FLG],"4"," Paid")
I get an invalid syntax error, I know if I was to have one Replace function it will works fine, but I’ll still have 3 code to convert.
Any Ideas?
Thanks
--pete
View 7 Replies
View Related
Mar 20, 2007
Hi,
I need some help with a function inserted into a query.
I created a function to convert numbers into text. I then created a query to pull some fields from a table. the last field of the query, I inserted the function using the build feature. I was able to see the function in the list of custom functions for the query.
However, when I run the query I get an error message of undefined function - name-. Can I use my function there? or is there some other way to do so.
thanks for any help received.
Regards,
CathyM
View 2 Replies
View Related
Feb 6, 2008
Hi
Im trying to run two count functions on one column in sql (access 2003). I need to return two new column, pass and fail. something like this; select count(grade) as pass, where grade>=40 and select count (grade) as fail, where grade<= 39.
my table is student_ID, module and grade:
student_ID Module Grade
0012 history 59
0034 history 34
0045 maths 78
0031 maths 45
0046 spanish 66
what i need is:
Module Pass Fail
History 1 1
Maths 2 0
Spanish 1 0
I have achieved it by running two seperate querys, one for pass and one for fail and then merging them with another query but is there any other way?
View 1 Replies
View Related
Mar 31, 2008
I have looked and looked at this expression line and cannot find what is wrong.
Repaired: Sum(IIf(work!status=4 And work!code=11 And work![tin date] Between DateSerial(Year(date(forms![enterprise report card].[combo31])),Month(date(forms![enterprise report card].[combo31])),1) And DateSerial(Year(date(forms![enterprise report card].[combo31])),Month(date(forms![enterprise report card].[combo31]))+1,0),1,0))
This gives me an error "Expression entered has a function containing the wrong number of arguements"
However this one:
Repaired: Sum(IIf(work!status=4 And work!code=11 And work![tin date] Between DateSerial(Year(Date()),Month(Date()),1) And DateSerial(Year(Date()),Month(Date())+1,0),1,0))
works fine... The only difference is I inserted forms![enterprise report card].[combo31] inside of the Date() function.
Can anyone see what I might be missing??
View 4 Replies
View Related
