Добре дошли!

Добре дошли в нашите форуми, пълни с полезна информация. Имате проблем с компютъра или телефона си? Публикувайте нова тема и ще намерите решение на всичките си проблеми. Общувайте свободно и открийте безброй нови приятели.

Моля, регистрирайте се за да публикувате тема и да получите пълен достъп до всички функции.

Проблем с MS Access

2 април 201214 г.

Здравейте имам една база данни за училище да правя и реших едната таблица да я направя така че като се избере някаква стойност от един combobox в който информацията е заредена от query да се зарежда второ query в друг combobox

в visual basic-а на access съм написал

Private Sub box1_Change()
	Me!nomer.RowSource = "SELECT one,two" & "FROM table" & "WHERE one = " & Forms.formata.box1.Value & " ORDER BY (two) ASC;"

	Me!Label39.Caption = "basss"
End Sub

Но проблема е че Change() въобще не го отчита... т.е и caption label39 не се променя... Как мога да изпълня това което искам? Не бъркам в имената на комботата и т.н

2 април 201214 г.

Не съм много запознат със въпросната база данни, както и езика Visual Basic, но ако скрипта се пише на SQL, на какъвто ми намирисва, май синтаксиса не е правилен:

"SELECT one,two FROM table WHERE one = " & Forms.formata.box1.Value & " ORDER BY (two) ASC;"

Не казвам със сигурност, но мисля, че така би трябвало да ти го отчете. Ето ти примерен SQL скрипт, които прави почти същото:

SELECT  `id`,  `firstname` FROM `users` LIMIT 1000;

Късмет с начинанието.

Редактирано 2 април 201214 г. от Анинфид (преглед на промените)

2 април 201214 г.

Автор

То не е до ` и с тях съм пробвал... то самия event change ще кажеш че не отчита...

2 април 201214 г.

Погледни какво съм написал:

"SELECT one,two FROM table WHERE one = " & Forms.formata.box1.Value & " ORDER BY (two) ASC;"

А това е твоето:

"SELECT one,two" & "FROM table" & "WHERE one = " & Forms.formata.box1.Value & " ORDER BY (two) ASC;"

Според мен, &-тата не са нужни.

2 април 201214 г.

Автор

Добре сложих го и пак нищо...

то дори и това не действа

Private Sub number_KeyPress(KeyAscii As Integer)
    Label6.Caption = KeyAscii
End Sub

сякаш евентите не бачкат...

Архивирана тема

Темата е твърде стара и е архивирана. Не можете да добавяте нови отговори в нея, но винаги можете да публикувате нова тема, в която да продължи дискусията. Регистрирайте се или влезте във вашия профил за да публикувате нова тема.