Forms :: Cannot Get Edit Access In Popup (Confirmation) Form
Jul 7, 2014
I am designing a transactions database for some of my clerical staff. I've inserted a data entry subform into the main transactions form (which also has a subform that summarizes all the selected company's past transactions). This data entry subform actually has as it's record source a table that simply stores that one record temporarily.
So when the user is finished entering their current transaction, I have a Save button that actually just opens a popup form which displays the data they entered into the data entry subform, giving them a chance to verify their entry is accurate. This form has a Save button which runs an append query and a delete query, adding the record to the permanent Transacations table and also clearing the temp table.
The problem I have, I think, is that when the popup form opens, the main form data entry subform still has that record locked as exclusive. I believe this is the case because while I am indeed able to make changes to the fields on the popup form, none of these changes appear in the temp table. In other words, the user is not actually able to use the confirmation pop up form to make any necessary edits to their entry. This makes the form sort of useless!
currently i'm trying to implement a right click menu which will show a simple messege box.
My problem is that the list box is on a pop up form which opened up maximized. Now when i'm right clicking on the list box i see the right click menu but when i'm clicking on one of the menu options, nothing happenning (it seems that it don't go to the function as it should). i've also putted breakpoints on the function but it never tips.
It's important to mention that if i'm setting the form popup option to no the right click menu works perfectly (when i'm clicking on one of the options i see its matching messege box).
I'm running the following vba code:
This is the mouse up event handler for my list box:
Private Sub Song_List_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) ' Call the SetUpContextMenu function to ensure it is setup with most current context ' Note: This really only needs to be setup once for this example since nothing is
[Code] .....
setting up the "SetUpContextMenu" sub:
Public Sub SetUpContextMenu() ' Note: This requires a reference to Microsoft Office Object Library Dim combo As CommandBarControl ' Since it may have been defined in the past, it should be deleted, ' or if it has not been defined in the past, the error should be ignored
I have added a popup menu to my form to reduce the number of buttons needed. I would some of the options only available in the add or edit mode. Because its not a traditional button i dont think conditional formatting applies. Can someone give me a hint where I should be heading?
When i try to insert data into a backend Oracle table (with ODBC) using a form, (i use docmd.runsql "insert....") Access gives me a message like"You are trying to append 1 row to the table are you sure you want to append?"
i want to suppress this message as i have to insert into 2 tables and delete from 3 tables when the user enters some data in the form, so it asks the user five times (say 2 times for insert and 3 times for delete..) when it inserts or deletes each table. the user doesnt want this to click every time when they do that... how do i suppress these messages, is it Access-specific or oracle specific? I am not able to do this..! is this any kind of exception that i have to put in??
My training table consist of 3 fields and using unbound form
1st field custid (text field)
This can't be NIL or Can't duplicate
What I am looking for learning point of view (duel check at same field with different behaviour).If record is duplicate "Popup message" and curser move back to same field.If field is empty "popup message" Do you want to continue, If yes, move back to field if NO, close form..Therefore, on Before Update event I wrote the following.
Private sub txtcid_beforeupdate (cancel as Integer) If Dcount("[custid]", "[customerdetails]", "[custid]='" & me.txtcid & "'") > 0 Then MsgBox "Customer ID already Exists !!!!" Cancel = True Me.Txtcid.Undo
[code]....
Just a quick update "I tried to used YES or NO option in Exit event too, but no success.
I have a database that logs complaints. I've added a field to calculate the age of a complaint based on the date received and the date resloved. To update this field I have an update query that runs after someone closes an update form. My problem is that I recieve two dialog boxes one that confirms that I'm will be updating the table and another that tells me how many rows were updated. I would not like those boxes to appear so the update would look transparent.
I have a form and I have created an event procedure on the "before update" property of the form. My procedure is:
Private Sub Form_BeforeUpdate(Cancel As Integer) Dim pwd As String pwd = InputBox("Is the information you entered correct?") If pwd <> "yes" Then MsgBox "Record Not Saved" Me.Undo Else MsgBox "Record Saved" End If End Sub
the record is not saving under any situation. What do I have wrong?
I have a main form bound to a query. Within that form, I have a button which calls up another form (pop up form). I simply want value of the "claim#" field-control to display in the "claim#" field-control of the pop-up form.
I am having issues with a split form which modal and emergent (pop-up) properties are set to yes. When I open it, it is maximized or out of the size I had setup; although I saved it trying to "freeze" the height and width.
I have a continuous Form [Letter Log - All] with "LetterNo" field as the primary key. What i want to do is click the "LetterNo" and a filtered pop up form with subform should appear based on what has been clicked. But i don't have luck doing that. The name of the main form is "LetterLog" and its subform control name is "LetterLogSub"
here is what i did.
Code:
Private Sub LetterNo_Click() 'DoCmd.OpenForm "LetterLogSub", acNormal, , "LetterNo = " & Me.LetterNo, acFormEdit, acDialog <-- this one works but without the subform 'DoCmd.OpenForm "LetterLog", acNormal, , "Forms!LetterLog!LeteterLogSub.Form.LetterNo = " & Me.LetterNo, acFormEdit, acDialog 'DoCmd.OpenForm "LetterLog", acNormal, "LetterNo", "me.LetterLogSub.Form!LetterNo = " & Me.LetterNo, acFormReadOnly, acDialog DoCmd.OpenForm "LetterLog", acNormal, "LetterNoFilter", "Forms!LetterLog!LetterLogSub.form!LetterNo = " & Me.LetterNo, acFormEdit, acDialog End Sub
I had a subform to enter payments. It worked well. The master and child fields linked well and all the necessary data appended to a new record in the payments table.
Now to make it more user friendly, I changed the subform to a popup form (The 2 forms took up too much real estate on the screen).I deleted the payments subform and created a command button to open the payments form as a popup.
I need 3 fields on the payments form to be populated from the edit sponsor form (sponsorID, MemberID, SponsorTypeID) and then payment details to be entered and posted to a new record in the payments table.Since I've changed the payment form from a subform to a popup form, the master/child relationships are gone and the 3 fields I need for the payment record no longer appear.
I'm working on a database that has a subform which pulls its data from a table and I'm trying to use a popup form to enter the data in the sub form. For example the table is called student debts. The form is called student debt. The pop up form is called student debt entry from. I want the inform that's in the student debt entry form to be recorded in the student debt form which is a subform on the main form. I know i have to create a add new records button to do it but not sure of the code.
I have two tables - Interviews & Placements.these tables have multiple foreign keys which pull information from other tables (CandidateID,ClientID etc). I have designed queries and forms (datasheet view) which display all the values that I need, For example:
The interview form shows the following fields: CandidateName;Company;consultant;1stInterviewDate; 2ndInterviewDate;Offer;Accepted
the placements form shows the following fields: PlacedCandidate;Company;Consultant;PlacementDate;F ee;
This query "qry_Interviews" populates these forms using the foreign keys:
CandidateID from candidates table CompanyID from companies table consultant from consultants table
Ideally what I'd like to happen, is when the "accepted" field is updated on the interviews form, the placements form opens as a pop up and is auto populated with the values (CandidateName;Company & consultant).So far I have tried setting the value directly, i.e on the "on Open" event of the Placements form I entered:
This does not work. Should I be populating the placements form with the actual Foreign key values rather than the resolved names? Ideally I'd want the pop up placements form to display the actual names rather than just ID numbers.
I have a popup called by a subform to add a new record or edit a selected record. I keep getting "Runtime error 32502". The value you entered isn't valid for the field "|"
I have no required fields and all the drop down related fields have the right value type in them (That I can find)The only "|" reference I can find is in the OpenArgs content below when I load the form. If I'm adding a new record I pass two fileds via the OpenArgs
Private Sub Command52_Click() DoCmd.OpenForm "AddDebtorPaymentFrm", , , , acFormAdd, OpenArgs:=Me![DebtorId] & "|" & Me![MatterId] End Sub
or if I'm modifying a record from the subform on click I
Private Sub Text38_Click() DoCmd.OpenForm "AddDebtorPaymentFrm", acNormal, , "[Transactions].[TransId] = " & Me.TransId, acFormEdit End Sub
Below is the Popup Load code
Private Sub Form_Load() If Me.DataEntry = True Then Me.VariableHeading = "Add A Debtor Payment"
I have a popup form that user will select for updating 4 fields in table. I have a update button that has code behind it that verifies the record is complete before closing the popup form. That works well.
However, I want to add an abort button that will close the form and save nothing entered however, I getting incomplete records and blank records. How can I code the button to not update the table and just close the form?
I have set certain fields on my main form to be required to protect from accidnetal skipping which has occured in past. However, in middle of form, there are a group of checkboxes, which opens their correndsponding popup forms for more details. Right now, I get an error if it try to pop up a form because not all required fields are filled in.How do I make Access suspend the requirments whenever the checkboxes are checked and additional info are being inputed?Edit= tried setting it as dialog boxes, but to no avail.
I have a form (Access 2010) in which i insert contracts; each contract has a start and an expiry date, but instead of dd/mm/yyyy i would like the user to be able to insert just the year, while the day and month are predefined values and they are automatically inserted (i.e. 01/10/yyyy; the year being the only value that changes, and it is manually inserted by the user).
I would like to set a pop up remainder (on form load) x days before the expiry date, but, because too many of them have the same expiry date i am wondering if the reminder can be set on different days, based on another field (i.e. partner location [country]).. i.e. reminder for contracts with Austria to pop up 60 days before expiring, for UK = 67 days and so on.. or even a specific day for each, i.e. for Austria = 01/08/yyyy, for UK 01/09/yyyy).
I have a simple data base with 2 tables. One table is the pertinent Employee data. That includes a EmployeeID that I contrived myself with the first 4 letters of the FIRST NAME and the first 3 letters of the LAST NAME.
how to make the program do that automatically when I enter the employee's first and last name.I have a form that sits overtop this table to populate the data. It's got some test date in it now c/w hand and manually calculated EmployeeID.
So now I figured out how to make the program do that calculation automatically. So why when I cruse over the records and tab through the fields and the form shows the new EmployeeID, it doesn't update the table for that field?
I have 2 tables StudySchedule and ExamSchedule.StudySchedule contains the detail information of opening classes of many different periods. I need to create a form that can:
1. let the user choose a period
2. form will generates automatically exam schedules of the opening classes of the chosen using the relevant information in StudySchedule. Those entries will be saved in ExamSchedule.
3. Note that there are 8 fields of the exam schedules generated/counted from some fields of StudySchedule. The 3 other fields of the exam schedules need to be entered by the users. User must also have the ability to edit the generated fields.
I have been developing a form that will allow me to input, edit and delete data in a table.I have the input, delete, clear, and close command buttons working ok, but I am having trouble getting the edit function to work.
What happens is that I highlight the line in the table (shown on the form as a sub form) click the edit command button, and the field are populated with the current data. I then edit the field that I want, and the add, button, changes to Update. When I go to update I keep getting an error message "Cannot update 'ID'; field not updatable.Below is the code I am using, when I go to the debug the arrow points to the "WHERE ID=" line.
Private Sub cmdAdd_Click() 'when we click on button Add there are two options '1. for insert '2. for update If Me.txtID.Tag & "" = "" Then
I've searched a lot and couldn't find an answer to my problem.
I want to have a field in my form that allow me to paste an image from the clipboard to, for example, a Paint field. Then, I want to save that image to a file on a specific folder in my computer via VB.
The reason for this is that I don't want to ask the user to open paint by himself and save the file, probably in the wrong location and with the wrong name.
The first approach was creating an OLE Object directly from the Insert menu and that worked partially. It allowed me to paste the image but there wasn't a way to save it to a file, neither a method for that. It was an incrusted object, and I think that is the reason for that.
Then I tried to create the object by myself via VB, with the instructions:
Dim objeto_perfil As Object Set objeto_perfil = CreateObject("Paint.Picture") 'IT STOPS HERE
And with the variation:
Dim objeto_perfil As Object Set objeto_perfil = CreateObject("Paint") 'IT STOPS HERE
And neither worked. The error message says it lacks an object.
Then I followed an example from msdn that used a bound frame (view here (http://msdn.microsoft.com/library/default.asp?url=/library/en-us/vbaac11/html/acproClass_HV05187062.asp)). The code is:
visor_perfil.Class = "Paint.Picture" ' Set class name. ' Specify type of object. visor_perfil.OLETypeAllowed = acOLELinked ' Specify source file. visor_perfil.SourceDoc = "C:RealPathimage.BMP" ' Create linked object. visor_perfil.Action = acOLECreateLink 'IT STOPS HERE ' Adjust control size. visor_perfil.SizeMode = acOLESizeZoom
It stops in the action assignation, an says "error 2753 there was an error trying to communicate with the OLE server".
I google a lot and could find much of the Paint.Picture Class.
Anyone has any ideas to overcome this issue? What am I doing wrong?
I'm using Access 2003.I'm trying to create a command for a form that will allow editing or lock all fields, so that records are protected from accidental edits.AllowEdits in the form is set to False by default.I've used the below code to allow a user to unlock the form:
Private Sub cmdEditRecord_Click() If Me.AllowEdits = False Then Me.AllowEdits = True Else Me.AllowEdits = True End If End Sub
And this works without issue.However, I want to create a second button to lock the form again.
Private Sub cmdLockRecord_Click() If Me.AllowEdits = True Then Me.AllowEdits = False Else Me.AllowEdits = False End If End Sub
Seems logical that I should just be able to reverse the true/false but this does nothing!I've also tried the below code:
Private Sub cmdEditRecord_Click() Me.AllowEdits = Not (Me.AllowEdits) End Sub
To toggle between editing/locked, with the same results - ie, can switch to editing, but can't then turn it off.
I have a continuous form with unbound controls. These controls write new records into a table using rec.addnew
If possible, I would like for the user to only be able to add/edit the new record only and not to edit the continuous form below. When I turn off edits on the form, I only get the new record to show. I found some pages that reference using code like .allowAdditons, .allowEdits and .allowDeletions but unsure of how to implement them since I have more than one control the user is entering data into. I also found another site that says to use a control to determine if the record is writable to: I do have a control that is set to =Date() on the default value.
