Dim varReturn As Variant
varReturn = DLookup("[User1]", "tblDatabase", "[UID]= " & Me.UID)

If IsNull(varReturn) Then

DoCmd.RunSQL "UPDATE tblDatabase SET User1='" & [TempVars]![varUser] & "'"

End If

The following command line is updating me the whole table, instead of
updating only the selected record.

How can I do to just modify the current record?

You need to include a Where clause, otherwise the entire table gets updated.

UPDATE tblDatabase Set User1='" & [TempVars]![varUser] & "' " & _
"WHERE [SomeIDField] = SomeCriteria"


hth

--
Jack Leach
www.tristatemachine.com

"I haven''t failed, I''ve found ten thousand ways that don''t work."
-Thomas Edison (1847-1931)



"Julia82" wrote:

> Dim varReturn As Variant
> varReturn = DLookup("[User1]", "tblDatabase", "[UID]= " & Me.UID)
>
> If IsNull(varReturn) Then
>
> DoCmd.RunSQL "UPDATE tblDatabase SET User1='" & [TempVars]![varUser] & "'"
>
> End If
>
> The following command line is updating me the whole table, instead of
> updating only the selected record.
>
> How can I do to just modify the current record?

Ok, and I am trying to do this:

Dim varReturn As Variant
varReturn = DLookup("[User1]", "tblDatabase", "[UID]=" & Me.UID)

If IsNull(varReturn) Then

DoCmd.RunSQL "UPDATE tblDatabase SET User1='" &
[TempVars]![varUtilizator] & "' WHERE UID = ' " & Me.UID & " ' "

or even

DoCmd.RunSQL "UPDATE tblDatabase SET User1='" & [TempVars]![varUtilizator] &
"' WHERE UID =UID "

That changes the whole table, not just the record I editing.

Thanks.


"Jack Leach" wrote:

> You need to include a Where clause, otherwise the entire table gets updated.
>
> UPDATE tblDatabase Set User1='" & [TempVars]![varUser] & "' " & _
> "WHERE [SomeIDField] = SomeCriteria"
>
>
> hth
>
> --
> Jack Leach
> www.tristatemachine.com
>
> "I haven''t failed, I''ve found ten thousand ways that don''t work."
> -Thomas Edison (1847-1931)
>
>
>
> "Julia82" wrote:
>
> > Dim varReturn As Variant
> > varReturn = DLookup("[User1]", "tblDatabase", "[UID]= " & Me.UID)
> >
> > If IsNull(varReturn) Then
> >
> > DoCmd.RunSQL "UPDATE tblDatabase SET User1='" & [TempVars]![varUser] & "'"
> >
> > End If
> >
> > The following command line is updating me the whole table, instead of
> > updating only the selected record.
> >
> > How can I do to just modify the current record?

> DoCmd.RunSQL "UPDATE tblDatabase SET User1='" &
> [TempVars]![varUtilizator] & "' WHERE UID = ' " & Me.UID & " ' "

This looks almost correct. You have an extra set of single quotes in the
where statement. Change it to this instead:

DoCmd.RunSQL "UPDATE tblDatabase SET User1='" & [TempVars]![varUtilizator] &
" WHERE UID = '" & Me.UID & "'"


Be sure to include the space between the quote and WHERE, it needs to be
there. As for the ' " combinations surrounding Me.UID, I took those out,
though it makes it more difficult to read, those spaces cannot be there.

That should do it, assuming your field name is UID, and your UID datatype is
a text data. If it is number, you need to go about it a little differently
and remove the quotes around the value...

DoCmd.RunSQL "UPDATE tblDatabase SET User1='" & [TempVars]![varUtilizator] &
" WHERE UID = " Me.UID

hth
--
Jack Leach
www.tristatemachine.com

"I haven''t failed, I''ve found ten thousand ways that don''t work."
-Thomas Edison (1847-1931)



"Julia82" wrote:

> Ok, and I am trying to do this:
>
> Dim varReturn As Variant
> varReturn = DLookup("[User1]", "tblDatabase", "[UID]=" & Me.UID)
>
> If IsNull(varReturn) Then
>
> DoCmd.RunSQL "UPDATE tblDatabase SET User1='" &
> [TempVars]![varUtilizator] & "' WHERE UID = ' " & Me.UID & " ' "
>
> or even
>
> DoCmd.RunSQL "UPDATE tblDatabase SET User1='" & [TempVars]![varUtilizator] &
> "' WHERE UID =UID "
>
> That changes the whole table, not just the record I editing.
>
> Thanks.
>
>
> "Jack Leach" wrote:
>
> > You need to include a Where clause, otherwise the entire table gets updated.
> >
> > UPDATE tblDatabase Set User1='" & [TempVars]![varUser] & "' " & _
> > "WHERE [SomeIDField] = SomeCriteria"
> >
> >
> > hth
> >
> > --
> > Jack Leach
> > www.tristatemachine.com
> >
> > "I haven''t failed, I''ve found ten thousand ways that don''t work."
> > -Thomas Edison (1847-1931)
> >
> >
> >
> > "Julia82" wrote:
> >
> > > Dim varReturn As Variant
> > > varReturn = DLookup("[User1]", "tblDatabase", "[UID]= " & Me.UID)
> > >
> > > If IsNull(varReturn) Then
> > >
> > > DoCmd.RunSQL "UPDATE tblDatabase SET User1='" & [TempVars]![varUser] & "'"
> > >
> > > End If
> > >
> > > The following command line is updating me the whole table, instead of
> > > updating only the selected record.
> > >
> > > How can I do to just modify the current record?

UID = ID in my table that is an autonumber.

So I assume, that to be correct I must use:

DoCmd.RunSQL "UPDATE tblDatabase SET User1='" & [TempVars]![varUtilizator] &
" WHERE UID = " Me.UID

But there is a problem when I enter Me.UID and I run the form. Gives me an
error. I am getting a random error. Sometime is working, sometimes is not.

I must be doing something wrong with my code.




"Jack Leach" wrote:

> > DoCmd.RunSQL "UPDATE tblDatabase SET User1='" &
> > [TempVars]![varUtilizator] & "' WHERE UID = ' " & Me.UID & " ' "
>
> This looks almost correct. You have an extra set of single quotes in the
> where statement. Change it to this instead:
>
> DoCmd.RunSQL "UPDATE tblDatabase SET User1='" & [TempVars]![varUtilizator] &
> " WHERE UID = '" & Me.UID & "'"
>
>
> Be sure to include the space between the quote and WHERE, it needs to be
> there. As for the ' " combinations surrounding Me.UID, I took those out,
> though it makes it more difficult to read, those spaces cannot be there.
>
> That should do it, assuming your field name is UID, and your UID datatype is
> a text data. If it is number, you need to go about it a little differently
> and remove the quotes around the value...
>
> DoCmd.RunSQL "UPDATE tblDatabase SET User1='" & [TempVars]![varUtilizator] &
> " WHERE UID = " Me.UID
>
> hth
> --
> Jack Leach
> www.tristatemachine.com
>
> "I haven''t failed, I''ve found ten thousand ways that don''t work."
> -Thomas Edison (1847-1931)
>
>
>
> "Julia82" wrote:
>
> > Ok, and I am trying to do this:
> >
> > Dim varReturn As Variant
> > varReturn = DLookup("[User1]", "tblDatabase", "[UID]=" & Me.UID)
> >
> > If IsNull(varReturn) Then
> >
> > DoCmd.RunSQL "UPDATE tblDatabase SET User1='" &
> > [TempVars]![varUtilizator] & "' WHERE UID = ' " & Me.UID & " ' "
> >
> > or even
> >
> > DoCmd.RunSQL "UPDATE tblDatabase SET User1='" & [TempVars]![varUtilizator] &
> > "' WHERE UID =UID "
> >
> > That changes the whole table, not just the record I editing.
> >
> > Thanks.
> >
> >
> > "Jack Leach" wrote:
> >
> > > You need to include a Where clause, otherwise the entire table gets updated.
> > >
> > > UPDATE tblDatabase Set User1='" & [TempVars]![varUser] & "' " & _
> > > "WHERE [SomeIDField] = SomeCriteria"
> > >
> > >
> > > hth
> > >
> > > --
> > > Jack Leach
> > > www.tristatemachine.com
> > >
> > > "I haven''t failed, I''ve found ten thousand ways that don''t work."
> > > -Thomas Edison (1847-1931)
> > >
> > >
> > >
> > > "Julia82" wrote:
> > >
> > > > Dim varReturn As Variant
> > > > varReturn = DLookup("[User1]", "tblDatabase", "[UID]= " & Me.UID)
> > > >
> > > > If IsNull(varReturn) Then
> > > >
> > > > DoCmd.RunSQL "UPDATE tblDatabase SET User1='" & [TempVars]![varUser] & "'"
> > > >
> > > > End If
> > > >
> > > > The following command line is updating me the whole table, instead of
> > > > updating only the selected record.
> > > >
> > > > How can I do to just modify the current record?

There is a small error on this line
" WHERE UID = " Me.UID

should be
" WHERE UID = " & Me.UID & ""


Jeanette Cunningham MS Access MVP -- Melbourne Victoria Australia



"Julia82" <(E-Mail Removed)> wrote in message
news:AAD1E212-049B-40EF-9BA7-(E-Mail Removed)...
> UID = ID in my table that is an autonumber.
>
> So I assume, that to be correct I must use:
>
> DoCmd.RunSQL "UPDATE tblDatabase SET User1='" & [TempVars]![varUtilizator]
> &
> " WHERE UID = " Me.UID
>
> But there is a problem when I enter Me.UID and I run the form. Gives me an
> error. I am getting a random error. Sometime is working, sometimes is not.
>
> I must be doing something wrong with my code.
>
>
>
>
> "Jack Leach" wrote:
>
>> > DoCmd.RunSQL "UPDATE tblDatabase SET User1='" &
>> > [TempVars]![varUtilizator] & "' WHERE UID = ' " & Me.UID & " ' "
>>
>> This looks almost correct. You have an extra set of single quotes in the
>> where statement. Change it to this instead:
>>
>> DoCmd.RunSQL "UPDATE tblDatabase SET User1='" &
>> [TempVars]![varUtilizator] &
>> " WHERE UID = '" & Me.UID & "'"
>>
>>
>> Be sure to include the space between the quote and WHERE, it needs to be
>> there. As for the ' " combinations surrounding Me.UID, I took those out,
>> though it makes it more difficult to read, those spaces cannot be there.
>>
>> That should do it, assuming your field name is UID, and your UID datatype
>> is
>> a text data. If it is number, you need to go about it a little
>> differently
>> and remove the quotes around the value...
>>
>> DoCmd.RunSQL "UPDATE tblDatabase SET User1='" &
>> [TempVars]![varUtilizator] &
>> " WHERE UID = " Me.UID
>>
>> hth
>> --
>> Jack Leach
>> www.tristatemachine.com
>>
>> "I haven''t failed, I''ve found ten thousand ways that don''t work."
>> -Thomas Edison (1847-1931)
>>
>>
>>
>> "Julia82" wrote:
>>
>> > Ok, and I am trying to do this:
>> >
>> > Dim varReturn As Variant
>> > varReturn = DLookup("[User1]", "tblDatabase", "[UID]=" & Me.UID)
>> >
>> > If IsNull(varReturn) Then
>> >
>> > DoCmd.RunSQL "UPDATE tblDatabase SET User1='" &
>> > [TempVars]![varUtilizator] & "' WHERE UID = ' " & Me.UID & " ' "
>> >
>> > or even
>> >
>> > DoCmd.RunSQL "UPDATE tblDatabase SET User1='" &
>> > [TempVars]![varUtilizator] &
>> > "' WHERE UID =UID "
>> >
>> > That changes the whole table, not just the record I editing.
>> >
>> > Thanks.
>> >
>> >
>> > "Jack Leach" wrote:
>> >
>> > > You need to include a Where clause, otherwise the entire table gets
>> > > updated.
>> > >
>> > > UPDATE tblDatabase Set User1='" & [TempVars]![varUser] & "' " & _
>> > > "WHERE [SomeIDField] = SomeCriteria"
>> > >
>> > >
>> > > hth
>> > >
>> > > --
>> > > Jack Leach
>> > > www.tristatemachine.com
>> > >
>> > > "I haven''t failed, I''ve found ten thousand ways that don''t work."
>> > > -Thomas Edison (1847-1931)
>> > >
>> > >
>> > >
>> > > "Julia82" wrote:
>> > >
>> > > > Dim varReturn As Variant
>> > > > varReturn = DLookup("[User1]", "tblDatabase", "[UID]= " & Me.UID)
>> > > >
>> > > > If IsNull(varReturn) Then
>> > > >
>> > > > DoCmd.RunSQL "UPDATE tblDatabase SET User1='" &
>> > > > [TempVars]![varUser] & "'"
>> > > >
>> > > > End If
>> > > >
>> > > > The following command line is updating me the whole table, instead
>> > > > of
>> > > > updating only the selected record.
>> > > >
>> > > > How can I do to just modify the current record?

A more helpful way is to set it up like this.

Dim strSQL As String

strSQL = "UPDATE tblDatabase SET User1='" & [TempVars]![varUtilizator] &
" WHERE UID = " & Me.UID & ""
Debug.Print strSQL

DoCmd.RunSQL strSQL


Now you click the button that runs that sub.
Open the immediate window and see what access got for strSQL

You can copy and paste that sql string into the sql view of a new query and
switch to datasheet view.
This will usually show you the errors with the sql string.


Jeanette Cunningham MS Access MVP -- Melbourne Victoria Australia


"Jeanette Cunningham" <(E-Mail Removed)> wrote in message
news:(E-Mail Removed)...
> There is a small error on this line
> " WHERE UID = " Me.UID
>
> should be
> " WHERE UID = " & Me.UID & ""
>
>
> Jeanette Cunningham MS Access MVP -- Melbourne Victoria Australia
>
>
>
> "Julia82" <(E-Mail Removed)> wrote in message
> news:AAD1E212-049B-40EF-9BA7-(E-Mail Removed)...
>> UID = ID in my table that is an autonumber.
>>
>> So I assume, that to be correct I must use:
>>
>> DoCmd.RunSQL "UPDATE tblDatabase SET User1='" &
>> [TempVars]![varUtilizator] &
>> " WHERE UID = " Me.UID
>>
>> But there is a problem when I enter Me.UID and I run the form. Gives me
>> an
>> error. I am getting a random error. Sometime is working, sometimes is
>> not.
>>
>> I must be doing something wrong with my code.
>>
>>
>>
>>
>> "Jack Leach" wrote:
>>
>>> > DoCmd.RunSQL "UPDATE tblDatabase SET User1='" &
>>> > [TempVars]![varUtilizator] & "' WHERE UID = ' " & Me.UID & " ' "
>>>
>>> This looks almost correct. You have an extra set of single quotes in
>>> the
>>> where statement. Change it to this instead:
>>>
>>> DoCmd.RunSQL "UPDATE tblDatabase SET User1='" &
>>> [TempVars]![varUtilizator] &
>>> " WHERE UID = '" & Me.UID & "'"
>>>
>>>
>>> Be sure to include the space between the quote and WHERE, it needs to be
>>> there. As for the ' " combinations surrounding Me.UID, I took those
>>> out,
>>> though it makes it more difficult to read, those spaces cannot be there.
>>>
>>> That should do it, assuming your field name is UID, and your UID
>>> datatype is
>>> a text data. If it is number, you need to go about it a little
>>> differently
>>> and remove the quotes around the value...
>>>
>>> DoCmd.RunSQL "UPDATE tblDatabase SET User1='" &
>>> [TempVars]![varUtilizator] &
>>> " WHERE UID = " Me.UID
>>>
>>> hth
>>> --
>>> Jack Leach
>>> www.tristatemachine.com
>>>
>>> "I haven''t failed, I''ve found ten thousand ways that don''t work."
>>> -Thomas Edison (1847-1931)
>>>
>>>
>>>
>>> "Julia82" wrote:
>>>
>>> > Ok, and I am trying to do this:
>>> >
>>> > Dim varReturn As Variant
>>> > varReturn = DLookup("[User1]", "tblDatabase", "[UID]=" & Me.UID)
>>> >
>>> > If IsNull(varReturn) Then
>>> >
>>> > DoCmd.RunSQL "UPDATE tblDatabase SET User1='" &
>>> > [TempVars]![varUtilizator] & "' WHERE UID = ' " & Me.UID & " ' "
>>> >
>>> > or even
>>> >
>>> > DoCmd.RunSQL "UPDATE tblDatabase SET User1='" &
>>> > [TempVars]![varUtilizator] &
>>> > "' WHERE UID =UID "
>>> >
>>> > That changes the whole table, not just the record I editing.
>>> >
>>> > Thanks.
>>> >
>>> >
>>> > "Jack Leach" wrote:
>>> >
>>> > > You need to include a Where clause, otherwise the entire table gets
>>> > > updated.
>>> > >
>>> > > UPDATE tblDatabase Set User1='" & [TempVars]![varUser] & "' " & _
>>> > > "WHERE [SomeIDField] = SomeCriteria"
>>> > >
>>> > >
>>> > > hth
>>> > >
>>> > > --
>>> > > Jack Leach
>>> > > www.tristatemachine.com
>>> > >
>>> > > "I haven''t failed, I''ve found ten thousand ways that don''t work."
>>> > > -Thomas Edison (1847-1931)
>>> > >
>>> > >
>>> > >
>>> > > "Julia82" wrote:
>>> > >
>>> > > > Dim varReturn As Variant
>>> > > > varReturn = DLookup("[User1]", "tblDatabase", "[UID]= " & Me.UID)
>>> > > >
>>> > > > If IsNull(varReturn) Then
>>> > > >
>>> > > > DoCmd.RunSQL "UPDATE tblDatabase SET User1='" &
>>> > > > [TempVars]![varUser] & "'"
>>> > > >
>>> > > > End If
>>> > > >
>>> > > > The following command line is updating me the whole table, instead
>>> > > > of
>>> > > > updating only the selected record.
>>> > > >
>>> > > > How can I do to just modify the current record?
>
>

On Sat, 30 Jan 2010 12:56:01 -0800, Julia82
<(E-Mail Removed)> wrote:

>UID = ID in my table that is an autonumber.
>
>So I assume, that to be correct I must use:
>
>DoCmd.RunSQL "UPDATE tblDatabase SET User1='" & [TempVars]![varUtilizator] &
>" WHERE UID = " Me.UID
>
>But there is a problem when I enter Me.UID and I run the form. Gives me an
>error. I am getting a random error. Sometime is working, sometimes is not.
>
>I must be doing something wrong with my code.
>

I'm surprised it compiled at all! You're missing an ampersand:

DoCmd.RunSQL "UPDATE tblDatabase SET User1='" & [TempVars]![varUtilizator] &
" WHERE UID = " & Me.UID

--

John W. Vinson [MVP]

Somehow I found out what the problem was. Is still not working, but I tking I
will get this going now.

Somehow I managed to link two ID of two tables that had the same name (UID)
and a bunch of error happened. Good thing I figured that out.

I hope I'll solve this. If not... I'll get back to you if you still have the
patience

Oh my God! It's working! There are over 24 hours I'm trying in front of the
PC to get this code going. (With a little theatre pause this evening :P)

Janette, that was the error like you told me. Thanks a million! I learned so
much from you guys!

"Jeanette Cunningham" wrote:

> There is a small error on this line
> " WHERE UID = " Me.UID
>
> should be
> " WHERE UID = " & Me.UID & ""
>
>
> Jeanette Cunningham MS Access MVP -- Melbourne Victoria Australia
>
>
>
> "Julia82" <(E-Mail Removed)> wrote in message
> news:AAD1E212-049B-40EF-9BA7-(E-Mail Removed)...
> > UID = ID in my table that is an autonumber.
> >
> > So I assume, that to be correct I must use:
> >
> > DoCmd.RunSQL "UPDATE tblDatabase SET User1='" & [TempVars]![varUtilizator]
> > &
> > " WHERE UID = " Me.UID
> >
> > But there is a problem when I enter Me.UID and I run the form. Gives me an
> > error. I am getting a random error. Sometime is working, sometimes is not.
> >
> > I must be doing something wrong with my code.
> >
> >
> >
> >
> > "Jack Leach" wrote:
> >
> >> > DoCmd.RunSQL "UPDATE tblDatabase SET User1='" &
> >> > [TempVars]![varUtilizator] & "' WHERE UID = ' " & Me.UID & " ' "
> >>
> >> This looks almost correct. You have an extra set of single quotes in the
> >> where statement. Change it to this instead:
> >>
> >> DoCmd.RunSQL "UPDATE tblDatabase SET User1='" &
> >> [TempVars]![varUtilizator] &
> >> " WHERE UID = '" & Me.UID & "'"
> >>
> >>
> >> Be sure to include the space between the quote and WHERE, it needs to be
> >> there. As for the ' " combinations surrounding Me.UID, I took those out,
> >> though it makes it more difficult to read, those spaces cannot be there.
> >>
> >> That should do it, assuming your field name is UID, and your UID datatype
> >> is
> >> a text data. If it is number, you need to go about it a little
> >> differently
> >> and remove the quotes around the value...
> >>
> >> DoCmd.RunSQL "UPDATE tblDatabase SET User1='" &
> >> [TempVars]![varUtilizator] &
> >> " WHERE UID = " Me.UID
> >>
> >> hth
> >> --
> >> Jack Leach
> >> www.tristatemachine.com
> >>
> >> "I haven''t failed, I''ve found ten thousand ways that don''t work."
> >> -Thomas Edison (1847-1931)
> >>
> >>
> >>
> >> "Julia82" wrote:
> >>
> >> > Ok, and I am trying to do this:
> >> >
> >> > Dim varReturn As Variant
> >> > varReturn = DLookup("[User1]", "tblDatabase", "[UID]=" & Me.UID)
> >> >
> >> > If IsNull(varReturn) Then
> >> >
> >> > DoCmd.RunSQL "UPDATE tblDatabase SET User1='" &
> >> > [TempVars]![varUtilizator] & "' WHERE UID = ' " & Me.UID & " ' "
> >> >
> >> > or even
> >> >
> >> > DoCmd.RunSQL "UPDATE tblDatabase SET User1='" &
> >> > [TempVars]![varUtilizator] &
> >> > "' WHERE UID =UID "
> >> >
> >> > That changes the whole table, not just the record I editing.
> >> >
> >> > Thanks.
> >> >
> >> >
> >> > "Jack Leach" wrote:
> >> >
> >> > > You need to include a Where clause, otherwise the entire table gets
> >> > > updated.
> >> > >
> >> > > UPDATE tblDatabase Set User1='" & [TempVars]![varUser] & "' " & _
> >> > > "WHERE [SomeIDField] = SomeCriteria"
> >> > >
> >> > >
> >> > > hth
> >> > >
> >> > > --
> >> > > Jack Leach
> >> > > www.tristatemachine.com
> >> > >
> >> > > "I haven''t failed, I''ve found ten thousand ways that don''t work."
> >> > > -Thomas Edison (1847-1931)
> >> > >
> >> > >
> >> > >
> >> > > "Julia82" wrote:
> >> > >
> >> > > > Dim varReturn As Variant
> >> > > > varReturn = DLookup("[User1]", "tblDatabase", "[UID]= " & Me.UID)
> >> > > >
> >> > > > If IsNull(varReturn) Then
> >> > > >
> >> > > > DoCmd.RunSQL "UPDATE tblDatabase SET User1='" &
> >> > > > [TempVars]![varUser] & "'"
> >> > > >
> >> > > > End If
> >> > > >
> >> > > > The following command line is updating me the whole table, instead
> >> > > > of
> >> > > > updating only the selected record.
> >> > > >
> >> > > > How can I do to just modify the current record?
>
>
> .
>