Not sure why you can't set focus on StopTime. But you don't have to set the focus on a control in order to be able to change it's value from code. The only reason to set focus is if you want the cursor in a particular place for the user.
HTH, Toby ----- Original Message ----- From: "brazilianbound" <[EMAIL PROTECTED]> To: <AccessDevelopers@yahoogroups.com> Sent: Thursday, December 08, 2005 2:59 PM Subject: [AccessDevelopers] Re: Record Find is Hanging > Thanks Neil, but didn't seem to help. Now i'm getting an error that > it can't set focus on StopTime. > > > I'm trying to see where the conflict is - maybe one of you guys can > see it. I'm heading home. We'll pick up on this tomorrow > > Thanks again for all the help you guys have provided..... I'm > learning bucket fulls! > > Private Sub Doneby_AfterUpdate() > If IsNull(Forms![SCANFORM]!StartTime) Then > Forms![SCANFORM]!StartDate.SetFocus > Forms![SCANFORM]!StartDate.Value = CStr(Date) > Forms![SCANFORM]!StartTime.SetFocus > Forms![SCANFORM]!StartTime.Value = CStr(Time) > > Else ' This line no longer has the : character > ' Forms![SCANFORM]!StartTime = Not Null ''' this line commented out > Forms![SCANFORM]!StopDate.SetFocus > Forms![SCANFORM]!StopDate.Value = CStr(Date) > Forms![SCANFORM]!StopTime.SetFocus > Forms![SCANFORM]!StopTime.Value = CStr(Time) > > > End If > > End Sub > > Private Sub Doneby_BeforeUpdate(Cancel As Integer) > Dim strCriterias As String > Dim rst As Recordset > Set rst = Me.RecordsetClone > > If Not IsNull(Me.Doneby) Then > strCriteria = "Doneby = " & Me!Doneby & _ > " AND IsNull(StopTime)" > rst.FindFirst strCriteria > Me.Bookmark = rst.Bookmark > End If > End Sub > > Private Sub StartTime_Enter() > DoCmd.OpenForm "Splash_subform2", acNormal, , , , acWindowNormal > Me.TimerInterval = 5000 > DoCmd.Close acForm, "frmSplash2_subform" > > End Sub > > Private Sub StopTime_Enter() > DoCmd.OpenForm "Splash_subform", acNormal, , , , acWindowNormal > Me.TimerInterval = 3000 > DoCmd.Close acForm, "frmSplash_subform" > > End Sub > > Private Sub StopTime_GotFocus() > DoCmd.GoToRecord , , acNewRec > Forms![SCANFORM]!ReworkNo.SetFocus > End Sub > > > > > > --- In AccessDevelopers@yahoogroups.com, "Squires, Neil" > <[EMAIL PROTECTED]> wrote: > > > > I'm not sure, by you may need to change > > > > IsNull(StopTime) > > > > to > > > > StopTime is null > > > > Your best bet is to use the query builder to see the syntax. > Don't know if that helps, but I hope so. > > > > Neil Squires > > > > > > Private Sub Doneby_BeforeUpdate(Cancel As Integer) > > > > Dim strCriterias As String > > Dim rst As Recordset > > Set rst = Me.RecordsetClone > > > > If Not IsNull(Me.Doneby) Then > > strCriteria = "Doneby = " & Me!Doneby & " AND IsNull > (StopTime)" > > rst.FindFirst strCriteria > > Me.Bookmark = rst.Bookmark > > End If > > > > end sub > > > > -----Original Message----- > > From: AccessDevelopers@yahoogroups.com > > [mailto:[EMAIL PROTECTED] Behalf Of > brazilianbound > > Sent: Thursday, December 08, 2005 3:18 PM > > To: AccessDevelopers@yahoogroups.com > > Subject: [AccessDevelopers] Re: Record Find is Hanging > > > > > > Hey Toby > > > > Well it's not erroring out, but it's not performing the search for > > the record with the blank StopDated, it just overwrites > the "Doneby" > > field and fills in the Stopdate and Stoptime. Is there a way we > can > > prevent it overwriting that field? > > > > Clay > > > > > > --- In AccessDevelopers@yahoogroups.com, "Toby Bierly" <[EMAIL PROTECTED]> > > wrote: > > > > > > Yes, FindFirst is a method available to a Recordset object. > > > > > > He was asking to make sure this was the case. For instance you > > can't call > > > the method > > > > > > rst.FindWhateverMethodNameIWantToUse > > > > > > It's going to say that the method is not found. > > > > > > In your case, though, the method call looks fine. > > > > > > I think it's something to do with your Doneby or StopTime field > > names. Make > > > sure everything is spelled correctly and try what Tobi suggested. > > > > > > HTH, > > > Toby > > > > > > ----- Original Message ----- > > > From: "brazilianbound" <[EMAIL PROTECTED]> > > > To: <AccessDevelopers@yahoogroups.com> > > > Sent: Thursday, December 08, 2005 1:32 PM > > > Subject: [AccessDevelopers] Re: Record Find is Hanging > > > > > > > > > > Actually i'm not sure what you mean. > > > > > > > > --- In AccessDevelopers@yahoogroups.com, "Richard Rogers > > Beasimer" > > > > <[EMAIL PROTECTED]> wrote: > > > > > > > > > > Is "FindFirst" an actual method of the recordset object? > > > > > > > > > > > > > > > > > > > > -----Original Message----- > > > > > From: AccessDevelopers@yahoogroups.com > > > > > [mailto:[EMAIL PROTECTED] On Behalf Of > > > > brazilianbound > > > > > Sent: Thursday, December 08, 2005 3:21 PM > > > > > To: AccessDevelopers@yahoogroups.com > > > > > Subject: [AccessDevelopers] Record Find is Hanging > > > > > Importance: Low > > > > > > > > > > > > > > > > > > > > When i scan the "Doneby" is is hanging on > > > > > rst.FindFirst strCriteria > > > > > > > > > > saying Method or Data Member not found. > > > > > > > > > > What gives? (oh my head hurts) LOL > > > > > > > > > > Clay > > > > > > > > > > ps - what do you guys want for x-mas! > > > > > > > > > > > > > > > Private Sub Doneby_BeforeUpdate(Cancel As Integer) > > > > > Dim strCriterias As String > > > > > Dim rst As Recordset > > > > > Set rst = Me.RecordsetClone > > > > > > > > > > If Not IsNull(Me.Doneby) Then > > > > > strCriteria = "Doneby = " & Me!Doneby & _ > > > > > " AND IsNull(StopTime)" > > > > > rst.FindFirst strCriteria > > > > > Me.Bookmark = rst.Bookmark > > > > > End If > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > Please zip all files prior to uploading to Files section. > > > > > > > > > > > > > > > > > > > > > > > > > SPONSORED LINKS > > > > > > > > > > Microsoft access developer > > > > > <http://groups.yahoo.com/gads? > > > > t=ms&k=Microsoft+access+developer&w1=Micro > > > > > > > > > > > > soft+access+developer&w2=Microsoft+access+help&w3=Microsoft+access+da > > > > tab > > > > > > > > > > > > ase&w4=Microsoft+access+training&w5=Microsoft+access+training+course& > > > > w6= > > > > > Microsoft+access+programming&c=6&s=193&.sig=d- > > > > CjBIrYOH9NCKHYFeGZJA> > > > > > > > > > > Microsoft access help > > > > > <http://groups.yahoo.com/gads? > > > > t=ms&k=Microsoft+access+help&w1=Microsoft+ > > > > > > > > > > > > access+developer&w2=Microsoft+access+help&w3=Microsoft+access+databas > > > > e&w > > > > > > > > > > > > 4=Microsoft+access+training&w5=Microsoft+access+training+course&w6=Mi > > > > cro > > > > > soft+access+programming&c=6&s=193&.sig=crx- > d4AAhdklv_VozGVAUw> > > > > > > > > > > Microsoft access database > > > > > <http://groups.yahoo.com/gads? > > > > t=ms&k=Microsoft+access+database&w1=Micros > > > > > > > > > > > > oft+access+developer&w2=Microsoft+access+help&w3=Microsoft+access+dat > > > > aba > > > > > > > > > > > > se&w4=Microsoft+access+training&w5=Microsoft+access+training+course&w > > > > 6=M > > > > > > > > > > > icrosoft+access+programming&c=6&s=193&.sig=qg2hDuQNweByMCX0NU7cEA> > > > > > > > > > > Microsoft access training > > > > > <http://groups.yahoo.com/gads? > > > > t=ms&k=Microsoft+access+training&w1=Micros > > > > > > > > > > > > oft+access+developer&w2=Microsoft+access+help&w3=Microsoft+access+dat > > > > aba > > > > > > > > > > > > se&w4=Microsoft+access+training&w5=Microsoft+access+training+course&w > > > > 6=M > > > > > > > > > > > icrosoft+access+programming&c=6&s=193&.sig=bLZHqTqWUQny609X1OkmNA> > > > > > > > > > > Microsoft access training course > > > > > <http://groups.yahoo.com/gads? > > > > t=ms&k=Microsoft+access+training+course&w1 > > > > > > > > > > > > =Microsoft+access+developer&w2=Microsoft+access+help&w3=Microsoft+acc > > > > ess > > > > > > > > > > > > +database&w4=Microsoft+access+training&w5=Microsoft+access+training+c > > > > our > > > > > > > > > > > > se&w6=Microsoft+access+programming&c=6&s=193&.sig=d8GQXfQW3RZ64rOfzIM > > > > o8A > > > > > > > > > > > > > > > > Microsoft access programming > > > > > <http://groups.yahoo.com/gads? > > > > t=ms&k=Microsoft+access+programming&w1=Mic > > > > > > > > > > > > rosoft+access+developer&w2=Microsoft+access+help&w3=Microsoft+access+ > > > > dat > > > > > > > > > > > > abase&w4=Microsoft+access+training&w5=Microsoft+access+training+cours > > > > e&w > > > > > 6=Microsoft+access+programming&c=6&s=193&.sig=iXDlL79- > > > > kkgjv6fLyFu3Sg> > > > > > > > > > > > > > > > > > > > > ________________________________ > > > > > > > > > > YAHOO! GROUPS LINKS > > > > > > > > > > > > > > > > > > > > * Visit your group "AccessDevelopers > > > > > <http://groups.yahoo.com/group/AccessDevelopers> " on the > web. > > > > > > > > > > > > > > > * To unsubscribe from this group, send an email to: > > > > > [EMAIL PROTECTED] > > > > > <mailto:[EMAIL PROTECTED] > > > > subject=Unsubscribe > > > > > > > > > > > > > > > > > > > > > * Your use of Yahoo! Groups is subject to the Yahoo! > > > > Terms of > > > > > Service <http://docs.yahoo.com/info/terms/> . > > > > > > > > > > > > > > > > > > > > ________________________________ > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > Please zip all files prior to uploading to Files section. > > > > Yahoo! Groups Links > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > Please zip all files prior to uploading to Files section. > > Yahoo! Groups Links > > > > > > > > > > > Please zip all files prior to uploading to Files section. > Yahoo! Groups Links > > > > > > > ------------------------ Yahoo! Groups Sponsor --------------------~--> 1.2 million kids a year are victims of human trafficking. Stop slavery. http://us.click.yahoo.com/.QUssC/izNLAA/TtwFAA/q7folB/TM --------------------------------------------------------------------~-> Please zip all files prior to uploading to Files section. Yahoo! Groups Links <*> To visit your group on the web, go to: http://groups.yahoo.com/group/AccessDevelopers/ <*> To unsubscribe from this group, send an email to: [EMAIL PROTECTED] <*> Your use of Yahoo! Groups is subject to: http://docs.yahoo.com/info/terms/
