Помогите с Public переменными

[vrodo]

Доброе время суток всезнающий ALL

У меня возникла проблема с Public переменными
как сделать так чтобы переменная с именем korder была доступна во всем проэкте без дополнительных переназначений? проблем
В акцесе обходился без этого, но база разрослась с 1 отдела(10 чел) на весь офис (почти 100) и акцесс не выдерживает
переписываю все на VB + SQL2000
Скорость ахренительная но возникли проблемы с мозгами программера

[FaKk2]

Не совсем въехал....
На всякий случай, в модуле пишешь Public kodesr As Variant(Integer, Single)

Но видимо тебе другое нужно...

[vrodo]

да пишу в модуле

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

Public korder as long

затем из другого модуля присваиваю ей значение

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

korder = 100

далее
из 3 модуля пишу

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

rst.filter = "k_order =" & korder

вот собстно чево надобно

[Urvin]

Еще можно попробовать:

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

a  = "k_order" + ИМяМодуляОбъявления.korder

Или я чего-то не понял

[Yurich]

да пишу в модуле

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

Public korder as long

затем из другого модуля присваиваю ей значение

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

korder = 100

далее
из 3 модуля пишу

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

rst.filter = "k_order =" & korder

вот собстно чево надобно

Попробуй rst.filter = "k_order =" & str(korder)

[Summer.05]

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

На каждой отдельной форме все работает:

Private Sub S_click()
With MMControl1
    .FileName = App.Path & "\" & "Sound\Click.wav"
    .Command = "Open"
    .Command = "Sound"
    .Command = "Close"
End With
End Sub

Private Sub Command1_Click()
Call S_click()
Form3.Hide
Form4.Show
End Sub


Можно ли и КАК сделать, чтобы
Call S_click()
работал для всех форм?

Типа:

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

Public Sub S_click()
With MMControl1
    .FileName = App.Path & "\" & "Sound\Click.wav"
    .Command = "Open"
    .Command = "Sound"
    .Command = "Close"
End With
End Sub


Заранее признателен!

[tyomitch]

Да, можно. Пусть MMControl1 принимает своим параметром.

[Summer.05]

tyomitch
Спасибо за быстрый ответ!
Я не против, "пусть MMControl1 принимает своим параметром"...
К сожалению, я не знаю, как это ему объяснить((((

[tyomitch]

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

Public Sub S_click(ByVal MMControl1 As MMControl)

[netdemon]

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


rst.filter="k_order =" & CStr(korder)


Потомучто "k_order" - string, а korder - Long

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


public function PSound()

PlaySound App.Path & "\" & "Sound\Click.wav", ByVal 0&, SND_FILENAME Or SND_ASYNC

End function





А это в модуль

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


Public Declare Function PlaySound Lib "winmm.dll" Alias "PlaySoundA" (ByVal lpszName As String, ByVal hModule As Long, ByVal dwFlags As Long) As Long

Public Const SND_ASYNC = &H1
Public Const SND_FILENAME = &H20000


[Хакер]

netdemon
Аватару смени

[tyomitch]

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


rst.filter="k_order =" & CStr(korder)


Потомучто "k_order" - string, а korder - Long

Амперсенду без разницы. CStr ни к чему.

[Summer.05]

tyomitch
Большое спасибо, буду пробовать.

[Summer.05]

tyomitch
Попробовал, но, вероятно, я чего-то не допонимаю.

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

Public Sub S_click(ByVal MMControl1 As MMControl)
With MMControl1
    .FileName = App.Path & "\" & "Sound\Click.wav"
    .Command = "Open"
    .Command = "Sound"
    .Command = "Close"
End With
End Sub

Private Sub Command1_Click()
Call S_click
Unload Me
End
End Sub


Результат: Call S_click - "Argement not optional"

Прошу извинить гуманитария за слабые знания VB....

[netdemon]

tyomitch
Попробовал, но, вероятно, я чего-то не допонимаю.

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

Public Sub S_click(ByVal MMControl1 As MMControl)
With MMControl1
    .FileName = App.Path & "" & "Sound\Click.wav"
    .Command = "Open"
    .Command = "Sound"
    .Command = "Close"
End With
End Sub

Private Sub Command1_Click()
Call S_click
Unload Me
End
End Sub


Результат: Call S_click - "Argement not optional"

Прошу извинить гуманитария за слабые знания VB....

Пробуй PlaySound я выше писал как. Работает быстрее и ресурсов меньше жрёт.

[Summer.05]

netdemon
Спасибо, буду пробовать!

[tyomitch]

Результат: Call S_click - "Argement not optional"

Ну вот так, глядишь, и параметры научишься передавать...

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

Call S_click(MMControl1)


[Summer.05]

tyomitch
Спасибо тебе большое!
Однако, из другой формы (Form2)

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

Private Sub Command1_Click()
Call S_click(MMControl1)
Unload Me
End
End Sub


отвечает:
Sub or Function not defined
Я чувствую, что тут не должно быть сложностей, но, вероятно, заблудился.

[Хакер]

Sub or Function not defined

Что, совсем-совсем тебе это ни о чём не говорит?

[Summer.05]

Хакер
Ты уж прости, но, конечно, говорит. Говорит о том, что надо определить и прописать. Но не больше. Я же совсем не программист...

[Хакер]

Ты уж прости, но, конечно, говорит.

Ну даёшь "Ты уж прости, но совсем ничего не говорит" - я бы понял. А так, я в принципе не совсем понимаю, за что должен прощать?

Говорит о том, что надо определить и прописать.

Ну так действуй.

Я же совсем не программист...

Это полностью зависит от того, кого считать программистом, а кого не считать. У всех свои мерки для этого понятия.

[tyomitch]

Summer.05, где у тебя написана Public Sub S_Click?

[Summer.05]

Хакер
Согласен со всем. Просто я гуманитарий и никогда не имел дела с программированием. На старости лет попробовал. Раньше мне Public был без надобности. а теперь вот потребовался. А прощение просил за мою безграмотность, которая в среде профессионалов не приветствуется.

[Summer.05]

Summer.05, где у тебя написана Public Sub S_Click?

Как я понимал, я ее и поставил в начальную форму, чтобы она была видна во всех остальных.

Проблема в том, что все работает в пределах одной формы. Вызов из другой формы типа

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

Call S_click(MMControl1)


со мной не соглашается ....

[tyomitch]

Summer.05, где у тебя написана Public Sub S_Click?

Как я понимал, я ее и поставил в начальную форму, чтобы она была видна во всех остальных.

А нужно было в отдельный модуль. Только тогда она будет видна во всех формах.

[Summer.05]

tyomitch
Низкий поклон и большое спасибо! Все работает, как и должно! Очень признателен!