Search results

can you lend me your laptop, then? :) It is crazy... i don't really know what was wrong, but it works. I modified the Hide;Clear to H;C (anyway it is suppose to be the same thing) and used ; as divider. I will test some more. This kind of things bugs me off :) Yet, is fun By the way, since I...

Public Sub ActByTag(frm As Form) Dim ctl As Control Dim tags As Variant Dim tag As Variant For Each ctl In frm.Controls tags = Split(ctl.Tag, ".") For Each tag In tags Select Case tag Case "Clear" ctl.Value = "" Case "Hide" If...

I need to take group action on controls on a form, based on their tag Let say, some of them I want to be hidden on load. I will assign them a tag "H" For other, I want them to be disabled. Tag "D" Other set to Null value. So some of them may be similtaneously in more than one group of action...

Despite the fact that is triggering an error, I think the Requery is not even needed, since the List is updated with the new added name. The problem is that the combo still stores in it the initial value. That must be somehow updated

I tried the requery like this Private Sub Author_ID_NotInList(NewData As String, response As Integer) response = acDataErrContinue NewData = FormatName(NewData) 'Fix the name format Me.Author_ID.Value = NewData If MsgBox(NewData & ", nu este in lista de autori. Doriti sa adaugati...

I have a combo that ads data to a junction table with two numerical fields (Author_IDFK, Title_IDFK) This junction table makes the link between a Titles that contains an indexed field called Author_ID, and an Author table, that contains an indexed field called Title_ID. A many-to-many...

Damn it. THIS IS IT. Works. Thank you!

I renamed the module HideControlTaggedH I kept the same Public Sub name HideControlTaggedH noe the Call HideTagedH(Me) pops a different compile error: Sub or function not defined

I have the following module> ' Hide the controls with Tag "H" Option Compare Database Option Explicit Public Sub HideTaggedH(frm As Form) Dim ctl As Control For Each ctl In frm.Controls If TypeName(ctl) = "SubForm" Then If ctl.Tag = "H" Then...

Pat Hartman, thank you for the extended tutoring. It is helpfull, indeed. Meantime I have a better understanding of how, when and why the records are saved, and modified the code accordingly. The user wil now not be able to see the child if the parent requirements are not met. That simplified a...

Pat Harman, true. See... the bad behaviours are stronger the us. Skipped the last sentence. I did not use any Msg "In the BeforeUpdate event of the form, you can change any ZLS values to null, with or without an error message if that makes sense." This just helped me somewhere else. Thank You.

ebs17, the issue was fixed with the code inside the post. The thread is marked as Solved. I tried a lot before asking for help, even did a test like that, but I messed the Error Code so that was the main reason I coldnțt capture the error. The issue comes from the fact that the Combo is based on...

It may be a training issue indeed. But trust me, whe the user can do a mistake, he will do it twice. And then he will repeat the procedure twenty times, crying that "this stupid thin does not work, Boss!" So an untrapped error wil finally chase you...

The solution is in the post as late edit. Thank you

Hello guys, I have an annoying error that bothers me: On a continuos subform i set a Combo Box named "Author_ID" with the Row Source on a query: SELECT Author.Author_ID, Author.Author_Name FROM Author ORDER BY Author.Author_Name; The Column Property is set to 2, and the Column Withs are 0,5...

Bastanu, actually it doesnt. When opening a fresh form from Main, works fine until passing control. If the required fields are not filled, the error message pops up asking to fill them before going to the form. If all the fields are properly filled, control is passed to the sub, but the title...

Hello there The Form called Add_Frm_Title is opening from the main menu using the "Adauga Titlu" button on the Main landing form. Add_Frm_Title contains a subform called TtileAuthor_Junct_Sfrm Add_Frm_Title is linked to Title table and the Subform to a Junction Table, accessed via a query...

If((Nz([Combo_1], "") = "")) works Thank you

I have a Combo with the source on a query. On loading the Form, the Combo value is set to Me.DomainCombo_1 = "" In my understanding, this will load a string instance of zero length as Combo value. No change or other interaction with the control before saving, so up to the end it keeps sa...

arnelgp, maybe you remember this code just for a roadmap, hoping that you will not send me back to some general kowledge MSA crash course :) In the new database, I will create a new table, named Inventory It wil have 3 fields: InvenoryID, BookID_FK, Inventory_No I will create a one to many...