Реферат Розробка бази даних "Туризм та відпочинок"

lls (beg, 5). Value

Workbooks ("Main . Xls "). Worksheets (" ПоіскПутевкі "). Cells (i, 8). Value =. Cells (beg, 6). Value

Workbooks ("Main.xls"). Worksheets ("ПоіскПутевкі"). Cells (i, 9). Value =. Cells (beg, 7). Value

Workbooks ("Main.xls"). Worksheets ("ПоіскПутевкі"). Cells (i, 10). Value =. Cells (beg, 8). Value

Workbooks ("Main.xls"). Worksheets ("ПоіскПутевкі"). Cells (i, 11). Value =. Cells (beg, 9). Value

Workbooks ("Main.xls"). Worksheets ("ПоіскПутевкі"). Cells (i, 12). Value =. Cells (beg, 10). Value

Оформити i, maxi

i = i + 1

End If

End If

If flag2 = 1 And flag = 0 Then

If. Cells (beg, 5). Value> = CDbl (TextBox4.Text) _

And. Cells (beg, 5). Value <= CDbl (TextBox5.Text) Then

Workbooks ("Main.xls"). Worksheets ("ПоіскПутевкі"). Cells (i, 1). Value = ComboBox1.Value

Workbooks ("Main.xls"). Worksheets ("ПоіскПутевкі"). Cells (i, 2). Value = ComboBox2.Value

Workbooks ("Main.xls"). Worksheets ("ПоіскПутевкі"). Cells (i, 3). Value =. Cells (beg, 1). Value

Workbooks ("Main.xls"). Worksheets ("ПоіскПутевкі"). Cells (i, 4). Value =. Cells (beg, 2). Value

Workbooks ("Main.xls"). Worksheets ("ПоіскПутевкі"). Cells (i, 5). Value =. Cells (beg, 3). Value

Workbooks ("Main.xls"). Worksheets ("ПоіскПутевкі"). Cells (i, 6). Value =. Cells (beg, 4). Value

Workbooks ("Main.xls"). Worksheets ("ПоіскПутевкі"). Cells (i, 7). Value =. Cells (beg, 5). Value

Workbooks ("Main.xls"). Worksheets ("ПоіскПутевкі"). Cells (i, 8). Value =. Cells (beg, 6). Value

Workbooks ("Main.xls"). Worksheets ("ПоіскПутевкі"). Cells (i, 9). Value =. Cells (beg, 7). Value

Workbooks ("Main.xls"). Worksheets ("ПоіскПутевкі"). Cells (i, 10). Value =. Cells (beg, 8). Value

Workbooks ("Main.xls"). Worksheets ("ПоіскПутевкі"). Cells (i, 11). Value =. Cells (beg, 9). Value

Workbooks ("Main.xls"). Worksheets ("ПоіскПутевкі"). Cells (i, 12). Value =. Cells (beg, 10). Value

Оформити i, maxi

i = i + 1

End If

End If

If flag2 = 1 And flag = 1 Then

If. Cells (beg, 5). Value> = CDbl (TextBox4.Text) And _

. Cells (beg, 5). Value <= CDbl (TextBox5.Text) And _

. Cells (beg, 3). Value> = CDbl (TextBox2.Text) And _

. Cells (beg, 3). Value <= CDbl (TextBox3.Text) Then

Workbooks ("Main.xls"). Worksheets ("ПоіскПутевкі"). Cells (i, 1). Value = ComboBox1.Value

Workbooks ("Main.xls"). Worksheets ("ПоіскПутевкі"). Cells (i, 2). Value = ComboBox2.Value

Workbooks ("Main.xls"). Worksheets ("ПоіскПутевкі"). Cells (i, 3). Value =. Cells (beg, 1). Value

Workbooks ("Main.xls"). Worksheets ("ПоіскПутевкі"). Cells (i, 4). Value =. Cells (beg, 2). Value

Workbooks ("Main.xls"). Worksheets ("ПоіскПутевкі"). Cells (i, 5). Value =. Cells (beg, 3). Value

Workbooks ("Main.xls"...