| Subject | Re: applylocate not working (success) |
| From | Charlie <tm@tc.com> |
| Date | Sat, 08 Jun 2024 12:10:18 -0400 |
| Newsgroups | dbase.getting-started |
Hi Mervyn thanks.. I watch the A-Team when it is on. Funny, lots of gun fire and explosives but I've only seen one guy get killed on that show. Fun to watch though! Mervyn Bick Wrote: > On 2024/06/08 16:59, Charlie wrote: > > Thanks so much for everyones help. I think the problem was having single parenthesis around tid. Here is the solution:function > > > > COMBOBOX4_onChange() > > co = form.coins1.rowset > > co.locateoptions := 3 > > tgrade = trim(form.combobox4.value) > > tid = trim(form.entryfield5.value) > > tcat= trim(form.combobox2.value) > > co.applylocate( "year= '" + tid + "' and category= '" + tcat + "'") > > form.entryfield1.value = val(co.fields["&tgrade."].value) > > return > > > One of our local TV channels is rerunning a 30yr old series called "The > A Team". (They're too broke to buy new material but how that came about > is material for a whole new series in it's own right. :-) ) The main > character's favourite saying is "I love it when a plan comes together." > That seems to be appropriate now. > > As it stands, if a record isn't found, the value for the last record in > the table will be shown in entryfield with no indication that this isn't > from the correct record. It is perhaps a good idea to let the user (you > :-) ) know that the search was not successful. > > COMBOBOX4_onChange() > co = form.coins1.rowset > co.locateoptions := 3 > tgrade = trim(form.combobox4.value) > tid = trim(form.entryfield5.value) > tcat= trim(form.combobox2.value) > bFound = co.applylocate( "year= '" + tid + "' and category= '" + > tcat + "'") > if bFOund = true > form.entryfield1.value = val(co.fields["&tgrade."].value) > else > form.entryfield1.value = '' > //make the entryfield blank other wise it will show > //the value for the last record > mssgbox('Record for year '+tid+ ' and category '+tcat+' not > found.') > return > > Mervyn. | |