Поле в таблице

[veroman]

Код: Выделить всё

   DoCmd.OpenTable "Fr1", acViewNormal
   DoCmd.GoToRecord , "Fr1", acLast, 0


Таким образом я попадаю на последнюю запись в таблице Fr1. Как мне скопировать в переменную значение второго поля этой таблицы?

[Ernis]

Privet

Mozet utebia jes kakoi nibut kliuch ketomu poliu? Yli utebe vetoj tablyce tolko danyje y ketomu poliu dapalnitnavo kliucha netu?

[MisterX]

что-то в роде
set rec = CurentDB.OpenRecordset ("Имя Таблицы")
rec.moveLast
ТебеНадо = rec.Field(2)
или
ТебеНадо = rec.Fields(2)
точно не помню как

[veroman]

Mozet utebia jes kakoi nibut kliuch ketomu poliu? Yli utebe vetoj tablyce tolko danyje y ketomu poliu dapalnitnavo kliucha netu?

Привет! Нету у меня ключа. Без него никак?

[Ernis]

Privet

A vashi danyje iz vtorova pole povtariajutsa v tablyce jeshchio yli net ?

Esli nepvtariajutsa tokda mozna!

[veroman]

A vashi danyje iz vtorova pole povtariajutsa v tablyce jeshchio yli net ?

Повторяются много-много раз! Что делать? Неужели никак нельзя?

[Ernis]

Privet

Posledni voprosik.

A jest li raznica kokvo pole danyje prisvojet peremenoji iz vtorovo ili devenosto devetovo, jesli eti danyje povtorejetsa cherez neskolko poliai?

A eti danyje identychno chto i vo vtorom pole?

[veroman]

Извините, не понял вопроса. У меня в таблице первое поле начало периода, второе поле конец пириода. В принципе значение первого поля однозначно опередляет значение второго поля.
И сразу же вопрос по поводу Даты:
В Таблице Аксесс у меня поле тида Дата/Время. В таблице это выглядит как например 6/1/2004. Когда я пытаюсь выполнить запрос:

Код: Выделить всё

    SQL = "DELETE * FROM Table " & _
          "WHERE Field = 6/1/2004"
         
DoCmd.RunSQL SQL


то ничего не происходит, то есть записи не удаляются.

[veroman]

Извините, не понял вопроса. У меня в таблице первое поле начало периода, второе поле конец пириода. В принципе значение первого поля однозначно опередляет значение второго поля.
И сразу же вопрос по поводу Даты:
В Таблице Аксесс у меня поле типа Дата/Время. В таблице это выглядит как например 6/1/2004. Когда я пытаюсь выполнить запрос:

Код: Выделить всё

    SQL = "DELETE * FROM Table " & _
          "WHERE Field = 6/1/2004"
         
DoCmd.RunSQL SQL


то ничего не происходит, то есть записи не удаляются.

[Ernis]

Jeshchio raz Privet

Po pervamu vaprosu mozet tak poprobui :

f = 1
Set ro = New ADODB.Recordset
ro.Open "Select ****** From [*******] ", _
CurrentProject.Connection, adOpenKeyset, adLockOptimistic
With ro
If .EOF = False Then
.MoveFirst: h = 1
Do Until .EOF
For Each fld1 In ro.Fields
If f = 1 Then VP = fld1.Value
f = f + 1
Next
.MoveNext
f = 1
VP = Empty
Loop
End If
End With

A povtoromu mozet napishi :

DateValue(' " & ******* & " ')


Napishite chto vam poluchilos