Recent content by tanolalano

Sorry Remou, I copy the wrong sub in the 1st post The code is : '----This code always works Private Sub CmbClient_AfterUpdate() [Analisi_Cass_Dare].Form.Filter = "Ragione_sociale ='" & Me.CmbClient & "'" [Analisi_Cass_Dare].Form.FilterOn = True...

Hi all, In my DB i had a form with 2 unbound and unlinked subforms (the subforms are unlinked each other). The mainform is only a container that have two subfrm. In the main form I have one unbound combo to filter both subfrms with the same parameter. I use the filter property to set the filter...

Thanks AceMan...you're my guro ;) I've moved the public variable to a module before You've posted. All worked. But now, I follow your suggestion and put a save button on popup form to set Pub vars and then a close btn to quit the form. Thanks all PS now I have a new question....i will post...

I known that I typed the wrong name of var in the code posted... I want to know if i'm in the right way! Thanks

Hi all, I Have a form with a click button that prompt a message box for choosing to send the value of some controls in the form to an addnew DAO(VbNo) or open a popup form(unbound) and change some value to send to the addnew DAO (VbYes). As Well, I haven't found the right solution searching in...

AceMan, do you speak italian? So when i'm in difficoul with english i use italian whit you ;)

Thanks a lot for helping me, PHV and TheAceman. I add the 2 red lines and now code works well. It do the right thing If Not RS.EOF Then Dim strSql Do While Not RS.EOF strSql = "INSERT INTO riepilogo_mov_dare (id_acq)" _ & " SELECT Acquisti.id_acq FROM Acquisti " _...

Here the actual code Private Sub btn1_Click() Dim strSql As String Set RS = Me.RecordsetClone Do While Not RS.EOF strSql = "INSERT INTO riepilogo_mov_dare (id_acq)" _ & " SELECT Acquisti.id_acq FROM Acquisti " _ & " WHERE id_acq = " & RS.id_acq CurrentDb.Execute strSql, dbFailOnError...

Now on click the code create over 300.000 records in the table whit the same id_acq (the first in the continuos form#1)

You're right PHV. The id_acq is numeric. I try your change but Access crashes. :(

Private Sub Comando45_Click() I try to figure out the problem with this code: Private Sub btn1_Click() Dim strSql As String Set RS = Me.RecordsetClone Do While Not RS.EOF strSql = "INSERT INTO riepilogo_mov_dare (id_acq)" _ & " SELECT Acquisti.id_acq FROM Acquisti " _ & " WHERE id_acq =...

Thanks TheAceMan1...can you be more explicit I'm newbie of VBA. Hope this help you... I need on click event (btn#x) to open a form(#3) and send all view records. Then adding new record in the form#3(on open) I relate information to all records present in the subform (sended from form#1). Thanks

Hi all, I have a search form(#1) to retrive some records. As well, when I filter records with combos I get a list of records. I create a button to send a single record to another form(#2) and It works well. But I need, sometimes, to send all filtered records to a subform in onother form(#3)...

Solved...I had 2 field with the same name ;)

Hi all! I try the running sum that i've find in the faq faq702-5248. The problem is that when I use the code in a subform the running sum doesn't work. I get #Error in the unbound control. Then I create a form whit the same origin and the same control to see if I do all corectly. So, running...