View Single Post
  #8  
Old July 6th, 2009, 11:12 PM posted to microsoft.public.access,microsoft.public.access.forms
Clif McIrvin[_2_]
external usenet poster
 
Posts: 629
Default "No Current Record" when adding new record

Oops ... I tried to tie into a thread from a different newsgroup ... and
didn't take time to think about the threading and subject headers.

My apologies for the orphan post and any confusion it causes.

--
Clif

"Clif McIrvin" wrote in message
...
"TraciAnn via AccessMonster.com" u50702@uwe wrote in message
news:98add45ea00f3@uwe...
Clif,

Did you happen to see my post on "SQL Backend way to slow"?


Actually, no ... I only monitor microsoft.public.access and that
thread is under microsoft.public.access.forms .... I never looked at
AccessMonster carefully enough to be confident of how they link to the
various microsoft.public.access.* newsgroups. Go ahead and continue
that thread as long as you're working on the same issue ... it keeps
all the discussion history intact.



Albert has taken me almost all the way to there but I just don't
understand
the Select Case statement well enough to bring it to completion.


You're getting there ... you have:

=======
Select Case TabUserInfo

Case 1
If Me.fsubCommunication.SourceObject = "" Then
Me.fsubCommunication.SourceObject = "fsubCommunication"
Me.fsubCommunication.LinkChildFields = "UserName"
Me.fsubCommunication.LinkMasterFields = "UserName"
Me.fsubCommunication.Form.RecordSource =
"qryFormfsubCommunication"


Case 2
If Me.fsubUserTraining.SourceObject = "" Then
(etc)

========

change it to:

Select Case TabUserInfo


Case 1
If Me.fsubCommunication.SourceObject = "" Then
Me.fsubCommunication.SourceObject = "fsubCommunication"
Me.fsubCommunication.LinkChildFields = "UserName"
Me.fsubCommunication.LinkMasterFields = "UserName"
Me.fsubCommunication.Form.RecordSource =
"qryFormfsubCommunication"
End If


Case 2
If Me.fsubUserTraining.SourceObject = "" Then
(code)
End If


(etc.)


Basically I just skimmed through the thread and when I saw the missing
End If I quit looking .... if that doesn't get you on your way post
back.


--
Clif



PS: Are you getting Alberts samples figured out? I've noticed he
approaches problem solving with Access somewhat differently than I
(and many others) do .... and I find that I like what I've taken the
time to study and understand!





--
Clif