Rambler's Top100
Форум: MS ACCESSVBVBA MS OfficeMS SQL server
Новые сообщения: 0000

Форум: MS ACCESS

Вопросы связанные с MS ACCESS

Обновить визитку
Участники «Online»
Все участники

 
 

Доброго времени суток, Посетитель!

вид форума:
Линейный форум Структурный форум

тема: как присвоить переменной в Vb список значений?...
 
 автор: lurix   (30.05.2008 в 11:16)   личное сообщение
 
 

подскажите пожалуйста, с помощью каких операторов/функций мохно присвоить переменной список значений (например AW, QS, GH и т.д.)
число значений переменной 12.

  Ответить  
 
 автор: osmor   (30.05.2008 в 11:48)   личное сообщение
 
 

про массивы что-то слышали?

  Ответить  
 
 автор: lurix   (30.05.2008 в 11:51)   личное сообщение
 
 

слышала, но их не использовала, к сожалению....
может есть ссылка на пример их использования?

  Ответить  
 
 автор: Кабан   (30.05.2008 в 11:58)   личное сообщение
 
 

например
если значений только 12
то можно сконкатентить их в строку с разделителем "|"
а потом вычитывать, оббращаясь по индексу
?split("a|b|c|d","|")(0)
a

или через массив
?array("a","b","c","d")(0)
a

еще можно через коллекции

в хелпе все есть :)


Sub x()

'1. если присвоить списко значений в виде строки
    m = "AW|QS|GH"
    'массив значений
    sm = Split(m, "|")
    'если есть значения
    If UBound(sm) Then
        'вывести первый элемент
        Debug.Print sm(0)
    End If

'2. через массив
' инициализация массива размерностью 12 текстовых элементов
    ReDim a(12) As String
    'присвоить значения
    a(0) = "AW"
    a(1) = "QS"
    a(2) = "GH"
    'получить значения
    Debug.Print a(0)
    Debug.Print a(1)
    Debug.Print a(2)
    
End Sub

  Ответить  
 
 автор: lurix   (30.05.2008 в 12:00)   личное сообщение
 
 

а как можно присвоить переменной значения из таблицы?

  Ответить  
 
 автор: Кабан   (30.05.2008 в 12:07)   личное сообщение
 
 

>>а как можно присвоить переменной значения из таблицы?
я не знаю конкретно вашей задачи.
но один из вариантов :
допустим а-массив из примера выше
тогда
a(0) = dlookup("Поле","Таблица","Условие отбора")
еще можете посмотреть функции DMAx, DMin, DSum

или через рекордсет

  Ответить  
 
 автор: lurix   (30.05.2008 в 12:29)   личное сообщение
 
 

мне необходимо взять код продукта (из справочной таблицы 1) и каждому коду присвоить все значения из справочной таблицы 2 (их 12)...

  Ответить  
 
 автор: Кабан   (30.05.2008 в 12:38)   личное сообщение
 
 

я бы делал запросом на обновление

или напишите какие поля в таблицах и что конкретно нужно сделать

  Ответить  
 
 автор: lurix   (30.05.2008 в 12:48)   личное сообщение
16 Кб.
 
 

вот пример....

  Ответить  
 
 автор: Кабан   (30.05.2008 в 13:22)   личное сообщение
 
 


SELECT Таблица2.Код, Таблица1.Поле1 INTO Таблица3
FROM Таблица1, Таблица2
GROUP BY Таблица2.Код, Таблица1.Поле1
ORDER BY Таблица2.Код, Таблица1.Поле1;


результат:

Код    Поле1
161241    AW
161241    GH
161241    IK
161241    IO
161241    JI
161241    LO
161241    MO
161241    NK
161241    QS
161241    RT
161241    TY
161241    YH
312457    AW
312457    GH
312457    IK
312457    IO
312457    JI
312457    LO
312457    MO
312457    NK
312457    QS
312457    RT
312457    TY
312457    YH
454745    AW
454745    GH
454745    IK
454745    IO
454745    JI
454745    LO
454745    MO
454745    NK
454745    QS
454745    RT
454745    TY
454745    YH
524154    AW
524154    GH
524154    IK
524154    IO
524154    JI
524154    LO
524154    MO
524154    NK
524154    QS
524154    RT
524154    TY
524154    YH
856465    AW
856465    GH
856465    IK
856465    IO
856465    JI
856465    LO
856465    MO
856465    NK
856465    QS
856465    RT
856465    TY
856465    YH
923562    AW
923562    GH
923562    IK
923562    IO
923562    JI
923562    LO
923562    MO
923562    NK
923562    QS
923562    RT
923562    TY
923562    YH
956856    AW
956856    GH
956856    IK
956856    IO
956856    JI
956856    LO
956856    MO
956856    NK
956856    QS
956856    RT
956856    TY
956856    YH
964574    AW
964574    GH
964574    IK
964574    IO
964574    JI
964574    LO
964574    MO
964574    NK
964574    QS
964574    RT
964574    TY
964574    YH

  Ответить  
 
 автор: lurix   (30.05.2008 в 14:37)   личное сообщение
 
 

Огромнейшее спасибо!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!

  Ответить  
 
 автор: час   (30.05.2008 в 12:13)   личное сообщение
 
 

Вот посмотрите об извлечении даных из таблицы
http://hiprog.com/index.php?option=com_content&task=view&id=251661592&Itemid=35

  Ответить  
HiProg.com - Технологии программирования
Rambler's Top100 TopList