I have a Button, which update various data into a table in a form. If i called a requery (me.requery) then, the the coursor move up to the first entry.
Whats the problem with this?
Andi
(Sorry for my bad englisch)
I have a database I want to load tire and brake measurements into. I have created a table which I enter records into, including the date, measurement, the wheel position and the item (tires or brakes) being measured.
On the form I have a picture of a tire and a brake at each wheel position and I would like to be able to display in the control by each item the latest measurement in the main table that matches that wheel position and item.
i have a form (frm1) and subform (sfrm1) that when a room number is double-clicked in the subform another form (frm2) and subform (sfrm2) loads. frm1 has building info and frm2 is used for inspection info. if a room has never been inspected then when frm2 loads the field [room] will be empty. however, after the first inspection the room number is obviously entered for frm2.
so i have created a global variable that holds the value of [lab_room] from frm1 and is supposed to use this value on frm2 if the room has never been inspected - ie, [room] is null. however, the value of intRoom (global variable) is lost after is leaves frm1 and goes to frm2. below is my code:
modGlobal (module with global variables declared)
Option Compare Database
Global intVar As Variant
Global intRoom As String
Private Declare Function CoCreateGuid Lib "OLE32.DLL" (pGuid) As Long
Private Type GUID 'Memory structure used by CoCreateGuid
Data1 As Long
Data2 As Integer
Data3 As Integer
Data4(7) As Byte
End Type
Private Const S_OK = 0 'Return value from CoCreateGuid
frm1 subform double click event
Private Sub Form_DblClick(Cancel As Integer)
On Error GoTo Err_DblClick
Dim stDocName As String
Dim stLinkCriteria As String
Dim stMsg As String
'if the user double clicks on an area that has no lab_id associated with it
'prevents a null value for lab_id
If IsNull(Me!lab_id) Then
stMsg = "There is no lab associated with this room."
intRes = MsgBox(stMsg, vbOKOnly + vbExclamation, "Error - No Lab Selected")
GoTo Exit_DblClick
End If
'opens lab forms associated with this lab_id
intVar = Me!lab_id
intRoom = Me!lab_room
stDocName = "ehs_lab_safety_surveys"
stLinkCriteria = "[lab_id]=" & "'" & intVar & "'"
DoCmd.OpenForm stDocName, , , stLinkCriteria
[Forms]![ehs_lab_safety_surveys].Form.RecordsetClone.Find ("lab_id = '" & intVar & "'")
DoCmd.Close acForm, "copy_lab_search_by_bldg"
Exit_DblClick:
Exit Sub
Err_DblClick:
MsgBox Err.Description
Resume Exit_DblClick
End Sub
frm2
Private Sub Form_Load()
Dim strNewguid As String
'checks for null values of lab_id, room, id and safety_survey_date. if they are
'null or empty a value is inserted.
If IsNull(Me!lab_id) Or (Me!lab_id = "") Then
Me!lab_id = intVar
End If
If IsNull(Me!room) Then
Me!room.Value = intRoom
End If
If IsNull(Me!safety_survey_date) Then
Me!safety_survey_date = Date
End If
If IsNull(Me!id) Or (Me!id = "") Then
Set x = CreateObject("Scriptlet.TypeLib")
strNewguid = Left(x.GUID, 38)
Me!id.Value = strNewguid
End If
DoCmd.Maximize
End Sub
can anyone see why the value is being lost from frm1 to frm2? i'm ripping my hair out trying to figure this one out....
This is very bad. We're losing data changes when we run a synchronize on an Access database.
A client wanted to use replication so he could have several people using the same database and then update everyone's changes. (It turns out that he's not used that feature.)
The client was unable to get the replica to work on his machine, so he uses the master version.
Instead, we've used replication to allow me to make changes in the database structure while he makes changes in the data. (Obviously, it would have been better to split the database in two parts, but it's too late for that now.)
Here's my process when I need to update his copy:
1. Synchronize between my master and replica.
2. Copy master to CD-R. (We're not on a network.)
3. Synchronize between client's master and replica.
4. Send a copy of master to client.
5. Open my new version of master on the client's computer and synchronize with his replica copy.
When we do that many of his recent changes disappear.
Why is that? They don't even show up as conflicts.
What are we doing wrong? Are we totally abusing the concept of replication or what??
I'm stumped. I appreciate any suggestions or thoughts.
I have a form and one of the text fields I need to verify against data in a table. I think the best way is to check the field once it loses focus on that text field. If the data is not in the table then the user is prompt with a msg "Invalid data, Please try again". I'm using Access 2010 to develop. I need query to run the validation.
View 1 Replies View RelatedI have a form which is linked to a query. The main form which calls this form sets the filter for the query. This works fine and I can navigate all the filtered records.
The problem is when I go to add a new record the filter information goes away.
For backround this is DB for project information. The user clicks a button to view notes on the project. The notes are stored in a different table and the project_id is the common field which links the two together. I want this to function where the user can open the subform read the notes and add a new one if needed.
I have a form, with a subform,
When a user selects a record from the subform i use this to view the record in the main form
Private Sub Txt_Support_Name_Click()
DoCmd.ApplyFilter , "ID =" & Me.ID
End Sub
However when i select the record from the subform, it populates the form as required, however then the top record of the subform is highlighted.
Any way to either - highlight nothing, or highlight the selected row?
I'm saving links to a combobox in a form, but each time I close out of the form and reopen it the Combobox doesn't keep the list of data I entered before and only keeps the last selected one in its drop down menu.
Is there a way to make the Combobox store/keep the data?
PROCESS AS DESIGNED: The user logs in and is given a form displaying existing records that are coded (by userid) for that user to update. From that list, the user selects a record and continues to a second form (the first form closes) which displays all the fields of the selected record which should/can be edited by the user (plus a few non-editable key fields). There is nothing tricky to how the records are selected for display. A simple query behind the first form selects data records using the userID number. The second form does a simple record select using the active record ID number on the first form. Nothing tricky -- no modules just queries, tables, forms and simple macros to string it all together.
The user can open/close these two forms as often as necessary and the record will continue to show up until a value is entered into a "completion date" field. When that field is no longer blank, the record will no longer be displayed for use.
PROBLEM: About 90% of the time, things work as expected. But 10-15% of the time, somewhere between opening the record in the second form and closing the second form, the edited record totally disappears (as if it were never opened, it isn't even system date stamped) and the input information is inserted instead into a brand new record.
Users can sometimes tell when the edit record is dropped during processing, because key fields displaying previously entered data go blank and the displayed recordID (autonumber) is changed. p>
ERROR PATTERN: NONE! It can happen as the edit record is first opening, in the middle of editing the form, or at the end when closing the form. It will happen on a specific PC 2 times in a row and the third time be fine. It has happened at multiple locations but not for all people and not consistently for the same person/same pc. The same record that failed can be re-selected and work just fine the next time.
I cannot reproduce the error myself. I have tested everything I can think of without causing the error. I can lose changes and avoid a system date stamp if I abort my Access sesssion, but that doesn't create/insert a new record with my new input. It just loses everything.
I have wondered if a momentary break in the network/communications could break the connection to the application to just enough that the form remains on the screen, but selected record is discarded. Input into the empty form would/does insert a new record.
I have asked the IT Operations group to investigate if a network/communication problem could be the culprit, but they haven't gotten far on this. I have never seen this happen before and am totally stumped but am desperate to resolve it before user confidence is damaged.
I have a database that makes use of standing orders. That means that if a client has a standing order to receive products during for example 4 time as year (quartely at the end of the month). to automate the new entry by copying an old entry in the database.
Let's say I have a client where we will have to send a product at the end of June, it will look at a field where the next send date is, and when it reaches 2 weeks for that date, to create a new entry in the database based on that entry. This way, it will pop-up in our open cases and we are aware of it and also will be visible in our report.
I am working on creating an access database for tracking physical assets linked to locations. I need to make a combo box list to show items other than the current location of the asset. Basically I need it to refer to last enery of the user and define the new possible entries. so we have a unique relationship between location and asset. The assets and location will always remain fixed and there is never going to be any addition. I am creating a web form so that it can be uploaded into sharepoint.
View 3 Replies View RelatedI have a Logo which is actually startup form. I need a code to position this statrup form on near to bottom right corner of access window in all resolution. How ever at present I am using code :
Res = GetScreenResolution()
If Res = "800x600" Then
DoCmd.MoveSize 9600, 5600
ElseIf Res = "1024x768" Then
DoCmd.MoveSize 13000, 8000
ElseIf Res = "1152x864" Then
DoCmd.MoveSize 14500, 9500
ElseIf Res = "1280x720" Then
DoCmd.MoveSize 16200, 7200
ElseIf Res = "1280x768" Then
DoCmd.MoveSize 16200, 7800
ElseIf Res = "1280x1024" Then
DoCmd.MoveSize 16200, 11400
End If
But some times user use the application on different resulotion other then mentioned in code, the position of startup form looks awkward.
regards
Rahul
Please Could any one help out, i have this Database am building for students in a school, The attached WORLD file respresnt a query in the database. The Position in class and Position in level is suppose to grade the student automatically i.e 1st, 2nd, 3rd, 4th, 5th e.t.c. according to the score in a particular subject in their class and in the level.
I dont know how to go about this, am not even sure if this could be done using the query or i should do it using VBA on the report sheet that i generated from the query.
If any one has any idea on how to go about it please let me know it will be highly appreciated.
David
if i open a form which has 100 records in it, in the navigational buttons at the bottom i can see the number of the record which i am viewing ... for instance record 24 of 100 ... Now if i decide to set the navigational buttons to not be displayed, is there any way through code, in which i can get the record number (for example Record 24) ?
Thank You
Hi
ive got a form that has several textboxes. The cursor in all textboxes appears on the left hand side (which is good), but one field shows the cursor on the right side??!!! how do i change this, i want the cursor to be on the left hand side like the rest?
cheers
I want when the form ativate to reput it in the center of the screen. is there any property to do this in the code, as the autocenter is set only in the design view
THANKS,
I have a database table which is basically a calendar containing 4 columns (i) the date, (ii) special info about that date, (iii) morning volunteers and (iv) afternoon volunteers.When I go to this table the cursor is positioned at the very first date and i then have to scroll though record after record to get to the current date.How can I get it to remember the last date used?I am using Vista and Access 2003
View 6 Replies View RelatedI am trying to find the position of the second space in a string, but have not been able to find a solution. Any suggestions on how I could do this using an expression in the QBE window or VBA would be appreciated. Thanks in advance.
View 8 Replies View RelatedI have a subform which holds data in a datasheet mode. when i delete a record i close the parent form and then reopen it because i am not having luck making the requery work. the user wants the position to be at the location the form was before deletion although it will be a different record. I have tried
DoCmd.GoToRecord acdataform, "frmVendorList", acgoto, 17
and it gives me a error saying that the frmVendorList is not open. That is the form that is the subform the line before i open the parent form. The name for the subform in the property sheet is frmVendorList.
Is there a way, aside from using auto number, to find a records postion. I am using a list and want to be able to double click an entry and have it open a form and go to that record. However I can't use auto number because I allow for the deleting of records, and once deleted the auto number no longer corrilates to the records position.
If anyone knows of a different sytem that renumbers after deleting a record that would be great if you could share it with me. Or if there is a way to open a form and use goto record but instead of using record postion use where statement.
If anyone has any other ideas on this please share. Thanks.
I am trying to find the position of a "," in a data field.
I was trying the SEARCH function I found in Help "SEARCH(',',[emplname])", but I am getting "Undefined function 'SEARCH' in expression." when I run the query.
Any ideas?
Thanks,
Jeff
Hi everyone,
I have a 4 part survey database consisting of one source table : tbl_survey. I have created a main form with 4 subforms (each subform is a section from the survey table tbl_survey).
I have placed 4 buttons in the main form, and each button when clicked reveals its subform, whilst hiding the others. So when the main form opens, the first subform is displayed (others are hidden). When the user finishes the first subform, they click on the second button to display the next subform and so on.
My question is, i want to set the verticle scrollbar position of each subform to the very top when its appropriate button is clicked so that if a user goes back to a previous subform, the scrollbar isnt all the way down the bottom.
Reptar
I'm trying to ensure that each time a new record is opened in a form, that the cursor is positioned in the first control/field... I have this throughout most of my application but not in a few individual forms.
I know I've done something in the past to ensure that this happens, but I can't remember what it was...
Thanks,
Peter
I am having a problem with my form. When it opens up, it is maximized, which is what I want. However, the vertical scroll bar on the right does not begin at the top of the form, but towards the bottom. I have to scroll up each time so that I can see the top of my form. Is there a way to make the form startup at the top of the form?
View 1 Replies View RelatedGood morning all.
I have an annoyance!!! I have a few reports in the access database that I'd like to hard code the print margins so that when I send any database updates to users that have different printers, the margins all come out the same. So that I don't have to then go to each computer I've updated the database on, to open each report and reset the correct print margins.
Another annoyance - along the same lines: A report that previews correctly several times and then - for no reason, previews with larger margins and, hence, data is lost off the right.
Any suggestions would be appreciated.
Thanks
Martin
I have below code for maximum 3 criteria dynamic search:
Code:
Private Sub SearchFor_Change()
Dim strWhere As String
Dim Criteria As String
Dim i As Integer
Dim A
Dim strAdd As String
[code]...
There is a problem, since I put the code in a textbox's on change event. then in case i want to revise the first two criteria, the cursor will automatically fleets to the end of the text, I want to know how to keep the position of the cursor?