Recent content by Bakta

Typo. I meant me.refresh.

refresh mthod comes to mind

Here is what bothers me today. In one form, I have three unbound boxes (named Outmod1 to Outmod3) whom control sources are based on random functions (to simulate small changes for the user). The user toy with those value, lock one or more, before going on further. That is what is intended at...

note to self : don't mix up rst.movenext and rst.bookmark Case closed

Sorry for something which should be very basic, but I'm stumped by the following problem : I want to loop through a form and extract one field at time per record found. So I wrote : Dim rst as recordset Dim Xnb, Cpt, Exitidx as long set rst = me.recordsetclone Xnb = rst.recordsetcount if...

I think I got you right the first time ;) . You want to make sure that once you create/edit a new form, you must check if RessourceID is "free" or not. So, it means that you must check if said RessourceID is "free" during a new time frame. Sounds like you have to, once you click on a button...

Looks like you have some writing to do on the Afterupdate on the Pickupdate + pickuptime event of your forms. Since you picked the ressource up, it won't be available until it's delivered, so I'd only check the later (with the added time as necessary) when you add/edit a new form. Nothing needs...

I feel ... so ...dumb Brains....Need more brains

tbl_ctc_evt is made of Idx_ctcevt : Long Idx ctc : Long Idx evt : Long and other fields Both Lnumevt and LReftst are declared, in a Gen Val module, as public var both Long. General purpose : I'm trying to check the existence of any record in table tbl_ctc_evt where both [Idx ctc] matches...

Thank you very much for the prompt reply. Point duly taken, I'll never ever ever again use those underscore (working on an old base, naming conventions or lack of are not mine to start with, but nonetheless). Alas, the duck is still alive; still got an 7874 error after puting brackets were...

Hello here is the code that bothers me : dim strSQL as string LReftst = tst_idx (InRef) ' this is a global public function which returns a long if LReftst <> 0 then strSQL = " SELECT tbl_ctc_evt.[Idx Ctc], tbl_ctc_evt.[Idx evt] FROM tbl_ctc_evt WHERE tbl_ctc_evt.[Idx Ctc] = '" & LReftst &...

This methode does not work anymore, I get a compilation error here : "&gt; 0 " so I was thinking of using the count (*) function, but, and contrary to the help file, I get a syntaxt error. Can anyone please give me a hand so I can check if a subform, based on a query is empty ?.

I feel so dumb at times, why did I had to think ".." were needed in brackets?. Thanks ps : no need to reply :p

Hello, Here is what trouble me : In a standard module, I need to test an long field. Public function test_Idx (Inref as Long) as Long Dim stDocname as string Dim T_idx as long stDocname = "Edit_Form" DoCmd.Openform stDocname,,,"[Ref_ctc]=" & Inref So the form opens only where I want it to be...

Many thanks.