funny thing...
just put a code in to surrpress the error - On Error Resume Next and it seems to work fine now...
HyBry
Last Activity: Jun 11 '08, 01:08 PM
Joined: Sep 13 '07
Location:
-
I get an error 'current record not found' on this line:
also in you sample DB. I am using A2000 so it is whether that or some setting is not turned on again...Code:Parent.txtSelected = Parent.txtSelected & rs!Mail & "; "
Leave a comment:
-
Found out where I had a problem and why it didn't like your code... I had DAO library turned off.. enabled it and it works fine... except for one thing:
Is it possible to enable it to work when a column is selected? If a select a column it gives an error that there is no current record!!Leave a comment:
-
I have some problem getting rs to work.
if I use:
Set rs=RecordSetClo ne it gives error of type mismatch while without it, it does not recognize what rs is...
Plus in your sample db it pops out an error when a column is selected rather than row!
So unless there is way to get info out of record that matches me.seltop and not me.currentrecor d then I will have to drop this...
Either way, thanks for the input.....Leave a comment:
-
Well, I couldn't sit still as this was bugging me. I rewrote the code and made some small changes that made lot of difference and found out what I need to do, I think
...Code:ST = Me.SelTop SH = Me.SelHeight SH1 = Me.SelHeight Parent.txtSelected = "" While SH1 > 0 Parent.txtSelected = Parent.txtSelected & Me.e_mail & "; " SH1 = SH1 - 1Leave a comment:
-
Still haven't had any more success with this...
Oh well... there are more important things to do... so I am gonna have to come back to this later I suppose...
But thanks for the help Nic;o) learned some good things form you... :)Leave a comment:
-
Yey... that did the trick...
I did not know I needed exact things... I though if I enter just 'a' it will find all the values that contain a, but I did not think that ** is also needed...
So this problem is taken care of...
Thank you so much!!!Leave a comment:
-
Ok... I got some of it to work with a bit of different code... scavenged all I know together and came up with this
...Code:Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) Parent.txtSelected = "" ' set variable to check selection height against intI = 0 ' record user made selection to reproduce it later st = Me.SelTop sh = Me.SelHeight
Leave a comment:
-
Hey nico5038
I tried the DB you gave me and it works fine and it has what I need, I think.
Problem is that when I take the code and copy it it does not work. I created a text field txtSelected. As I have no use for the top and height ones I removed them from the code. Anyhow, when I make a selection debugger shows Type mismatch and highlights Set rs = me.recordesetcl one line!
How can I fix this?? any ideas? btw I use Access ...Leave a comment:
-
yes.. Control source and name in datasheet match.
I looked in filter and I think it something to do with a fact that I have over 1000 entries unfiltered or two filters - from Form to subform and right click - are conflicting....
Anyhow. I think the best solution would be to remove filter option from right click... any ideas how to do it?Leave a comment:
-
Send Mail to Multiple Recipients Form Datasheet View
I have send mail button assigned to datasheet in subform. Works fine if I want to send mail to one person, but I want it to work if I have multiple selection as well.
code I have now isCode:FollowHyperlink "mailto:" & Form!list_1_subform3![e-mail]
-
filter not working
I have a form with subforms on it. The main form is used for selecting an item and subform lists all it's properties in datasheet view. Problem is that when I right click in subforms contents and enter filter it does not return anything. Filter by selection works fine as filter excluding selection. Just the filter where I enter value does not work. It return no items no matter what I put in. The field I am trying to filter shows text but is linked... -
No worries.. found a solution...
If anyone cares what I did :
Code:IF me.windowwidth < x then docmd.movesize ,,x END IF
Leave a comment:
-
How to limit resizing
I know there are lot of tool out there but I can not use any of them, company policy. So I wanted to know is there a way to set a parameter for minimum size of a form? -
from resize not working properly when shrinking
I have a form with a subform within it. I am trying to make it dynamic for resizing but I have one problem. well two.
firstly.
I have this code
this works fine when I make form longer, but not when I make it shorter. I also have the same code for a subform and that works fine....Code:me.form.width = me.insidewidth
any ideas on this?
And also.. possibly more importantly how can I set minimum... -
I wish I was as smart as You... it is so simple yet never entered my mind..
Thanks again :)Leave a comment:
-
I need a bit more help on this please....
So I use thisin order to remove filter on the form in On_Load or On_Open events, and it works fine when the form is opened.Code:If Me.FilterOn = True Then Dim valFN As String valFN = Me.FullName Me.FilterOn = False DoCmd.GoToControl "FullName" DoCmd.FindRecord valFN End If
But if I click the...Leave a comment:
-
khmm... good idea... I did not try that..
Thanks... I am sure that will be much better... and maybe faster..
As I am still quite new to this it takes me some time to figure out where what should go. :DLeave a comment:
-
Hi FishVal,
Yes that is what I wanted, but only way I could find to do it was to use filter as it I am opening a new form.Leave a comment:
-
Thanks for the replay.. and sorry that mine is so late.
I did not fully understand the code you gave me and I did not get it to work, but it lead me to a different way to get it sorted:
...Code:Private Sub Form_Current() If Me.FilterOn = True Then Dim valFN As String valFN = Me.FullName Me.FilterOn = False DoCmd.GoToControl "FullName" DoCmd.FindRecordLeave a comment:
No activity results to display
Leave a comment: