Не знаю как и обозвать-то..! Прошу помощи! - VB

Узнай цену своей работы

Формулировка задачи:

Сделал программу для набора объявлений! Работает все без проблем!
Но есть мысля дополнить.
Дело в следующем:
Есть три базы данных (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>

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

6   голосов , оценка 3.5 из 5
Похожие ответы