Обновление ListBox

@lenkagurza · Регистрация: 01.05.2010

Author24 — интернет-сервис помощи студентам

Предметная область школа. Есть ученики. У учеников успеваемость. На форме список с фамилиями учеников, по двойнону нажатию долен обновляется еще один список на этой же форме. Дожна показываться успеваемость. Она связана с таблицей учеников с помощью номера ученика. Пишу запрос, но список по прежнему пуст.

Visual Basic

SelectUspev = List9.Column(0)
 
 
    sqlt = "SELECT tblUspevaemost.NazvanieUroka , tblUspevaemost.Ichet , tblUspevaemost.IIchet , tblUspevaemost.IIIChet , tblUspevaemost.IVChet , tblUspevaemost.1pol, tblUspevaemost.2pol , tblUspevaemost.Godovaya FROM tblUspevaemost Where tblUspevaemost.PersonID = " & SelectUspev
 
List10.RowSource = sqlt
List10.Requery

В чём проблема?

@Сергей1980 · 05.05.2010, 10:08

по какому принципу у вас связаны ученики и успеваемость? Ученик в главной таблице, успеваемость в подчиненной?

@lenkagurza · 05.05.2010, 12:04 **[ТС]**

Это две разные таблицы. Связаны по полю PersonID(номер личного дела). В успеваемости ключевое поле - простой счётчик. Связь одна ко многим. Т.е. У одного ученика несколько успеваемостей ( по нескольким предметам).

@Сергей1980 · 05.05.2010, 15:29

Сбросьте пожалуйста скрин связей таблиц, я вам сделаю образец, я думаю вам ничего обновлять даже не придеться)

@lenkagurza · 05.05.2010, 16:04 **[ТС]**

Это источник записей для формы"Успеваемость"

@Сергей1980 · 05.05.2010, 16:49

Вот решение ваше в коде, изначально источник данных в листбоксе должен выглядеть так:

SQL

SELECT tblUspevaemost.PersonId, tblUspevaemost.Code, tblUspevaemost.UrokID, tblUspevaemost.IChet, tblUspevaemost.IIChet, tblUspevaemost.IIIChet, tblUspevaemost.IVchet, tblUspevaemost.[1pol], tblUspevaemost.[2pol], tblUspevaemost.Godovaya FROM tblUspevaemost WHERE (((tblUspevaemost.PersonId)=[Forms]![frmMain]![personID]));

То есть в условии запроса должна стоять ссылка на загруженную форму frmMain, на поле PersonID.

Далее, чтобы было обновление успеваемости при переходе от одного ученика к другому, на главной форме frmMain на событие "Текущая Запись" должна быть повешена следующая процедура(которая обновляет листбокс):

Visual Basic

1
2
3

Private Sub Form_Current()
Me.list1.Requery
End Sub

И все собственно...
Образец приложил в файле, пользуйтесь на здоровье.

@Сергей1980 547 / 377 / 16 Регистрация: 17.12.2009 Сообщений: 991
	05.05.2010, 10:08	2
	по какому принципу у вас связаны ученики и успеваемость? Ученик в главной таблице, успеваемость в подчиненной? 0

@lenkagurza 0 / 0 / 0 Регистрация: 01.05.2010 Сообщений: 15
	05.05.2010, 12:04 [ТС]	3
	Это две разные таблицы. Связаны по полю PersonID(номер личного дела). В успеваемости ключевое поле - простой счётчик. Связь одна ко многим. Т.е. У одного ученика несколько успеваемостей ( по нескольким предметам). 0

@Сергей1980 547 / 377 / 16 Регистрация: 17.12.2009 Сообщений: 991
	05.05.2010, 15:29	4
	Сбросьте пожалуйста скрин связей таблиц, я вам сделаю образец, я думаю вам ничего обновлять даже не придеться) 0

@lenkagurza 0 / 0 / 0 Регистрация: 01.05.2010 Сообщений: 15
	05.05.2010, 16:04 [ТС]	5
	Это источник записей для формы"Успеваемость" Миниатюры 0

	05.05.2010, 16:49