Не знаю как и обозвать-то..! Прошу помощи! - VB
Формулировка задачи:
Сделал программу для набора объявлений! Работает все без проблем!
Но есть мысля дополнить.
Дело в следующем:
Есть три базы данных (Access), одна для самих объявлений, другая ее дубликат (так на всякий пожарный), а третья - та в которой хранятся все набранные объявления за прошедший месяц.
Мысля такая - наборщик набирает сначала телефон хозяина объявления и если на этот телефон уже есть кикие-либо объявления, то они высвечивается в ... и при нажатии на необходимое объявление в "списке" в ... это объявление попадает в поле для набора объявлений.
Хочется так сделать, чтобы не набирать одни и те же объявления по нескольку раз. Бывает что их просто продляют...
Фуф, надеюсь понятно изъяснил!
Уважаемые гуру подскажите как можно это реализовать.
Намекните хотябы! :-)
Но есть мысля дополнить.
Дело в следующем:
Есть три базы данных (Access), одна для самих объявлений, другая ее дубликат (так на всякий пожарный), а третья - та в которой хранятся все набранные объявления за прошедший месяц.
Мысля такая - наборщик набирает сначала телефон хозяина объявления и если на этот телефон уже есть кикие-либо объявления, то они высвечивается в ... и при нажатии на необходимое объявление в "списке" в ... это объявление попадает в поле для набора объявлений.
Хочется так сделать, чтобы не набирать одни и те же объявления по нескольку раз. Бывает что их просто продляют...
Фуф, надеюсь понятно изъяснил!
Уважаемые гуру подскажите как можно это реализовать.
Намекните хотябы! :-)
Решение задачи: «Не знаю как и обозвать-то..! Прошу помощи!»
textual
Листинг программы
<br>Option Explicit <br> <br>Dim Combos() <font color="blue">As</font> ComboBox <br>Dim Combos_id() <font color="blue">As</font> Variant <br>Dim intCombos <font color="blue">As</font> Integer <br>Public clsAdo <font color="blue">As</font> clsRst <br> <br>Public Function Combo_Load(ByVal idx <font color="blue">As</font> Integer, _ <br> ByVal strId_field <font color="blue">As</font> String, _ <br> ByVal strTableSource <font color="blue">As</font> String, _ <br> ByVal strOrderByField <font color="blue">As</font> String, _ <br> ByRef dcbo <font color="blue">As</font> ComboBox, _ <br> Optional ByVal idvalue, _ <br> Optional ByVal strSQL <font color="blue">As</font> String, _ <br> Optional ByVal isAll <font color="blue">As</font> Boolean = False) <font color="blue">As</font> Integer <br> <br>intCombos = IIf(idx = <b><font color="darkblue">0</font></b>, intCombos + <b><font color="darkblue">1</font></b>, idx) <br>ReDim Preserve Combos(intCombos + <b><font color="darkblue">1</font></b>) <br><font color="green">'ReDim Preserve Combos_id(intCombos + 1) <br>Set Combos(intCombos) = dcbo <br> <br> <br>Set clsAdo = New clsRst <br>clsAdo.s_strID_Field = strId_field <br> <br>If (IsMissing(strSQL)) Then <br> Call clsAdo.Rset_Open_R_SQL(strSQL) <br>Else <br> clsAdo.s_strSqlSource = strTableSource <br> Call clsAdo.Rset_Open_R(, strOrderByField) <br>End If <br>Dim intRecords As Integer <br>Dim intI As Integer <br>intRecords = clsAdo.rsRecset.RecordCount <br>If intRecords > 0 Then <br> ReDim Preserve Combos_id(intCombos + 1, intRecords) <br> clsAdo.rsRecset.MoveFirst <br> dcbo.AddItem "Âñå", 0 <br> Combos_id(intCombos, 0) = 0 <br> For intI = 1 To intRecords <br> dcbo.AddItem clsAdo.rsRecset.Fields(strOrderByField), intI <br> Combos_id(intCombos, intI) = clsAdo.rsRecset.Fields(strId_field) <br> clsAdo.rsRecset.MoveNext <br> Next <br>End If <br> <br>'</font>If ((<font color="blue">Not</font> (IsMissing(idvalue))) <font color="blue">And</font> (<font color="blue">Not</font> (IsNull(idvalue)))) Then <br><font color="green">' dcbo.Boundtext = (idvalue) <br>'</font>End <font color="blue">If</font> <br>'DbCombo_Load = intCombos <br><font color="blue">End</font> Function <br> <br>Private Sub Class_Terminate() <br><font color="blue">Set</font> clsAdo = Nothing <br><font color="blue">End</font> Sub <br>
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д