Обучающая программа по предмету "Базы данных"

st.MoveNext

Loop

t.SetFocus

Do Until tem.EOF

If tem.Fields("н_темы").Value = t.Value Then

t.Value = tem.Fields("наим_темы").Value

End If

tem.MoveNext

Loop

If ysl = sch Then

MsgBox ("все записи удалены")

stDocName = "form3p"

DoCmd.openform stDocName, , , stLinkCriteria

End If

End Sub

 

Private Sub Кнопка17_Click()

DoCmd.Close

stDocName = "form3p"

DoCmd.openform stDocName, , , stLinkCriteria

End Sub

 

Sub nx_Click() 'next

Set db = CurrentDb

Set st = db.OpenRecordset("студенты", dbOpenSnapshot)

pr.Visible = True

rez.MoveNext

If rez.EOF = True Then

pr.SetFocus

nx.Visible = False

Else

snp.SetFocus

snp.Value = rez.Fields("н_паспорта").Value

dat.SetFocus

dat.Value = rez.Fields("дата").Value

ozz.SetFocus

ozz.Value = rez.Fields("результат").Value

t.SetFocus

t.Value = rez.Fields("н_темы").Value

snp.SetFocus

osh = snp.Text

Do Until st.EOF

If st.Fields("н_паспорта").Value = osh Then

im.SetFocus

im.Text = st.Fields("имя").Value

fam.SetFocus

fam.Text = st.Fields("фамилия").Value

gr.SetFocus

gr.Text = st.Fields("н_группы").Value

End If

st.MoveNext

Loop

t.SetFocus

tem.MoveFirst

Do Until tem.EOF

If tem.Fields("н_темы").Value = t.Value Then

t.Value = tem.Fields("наим_темы").Value

End If

tem.MoveNext

Loop

End If

End Sub

 

Sub pr_Click() 'предыдущий

Set st = db.OpenRecordset("студенты", dbOpenSnapshot)

Set db = CurrentDb

nx.Visible = True

rez.MovePrevious

If rez.BOF = True Then

nx.SetFocus

pr.Visible = False

Else

snp.SetFocus

snp.Value = rez.Fields("н_паспорта").Value

dat.SetFocus

dat.Value = rez.Fields("дата").Value

ozz.SetFocus

ozz.Value = rez.Fields("результат").Value

t.SetFocus

t.Value = rez.Fields("н_темы").Value

snp.SetFocus

osh = snp.Text

Do Until st.EOF

If st.Fields("н_паспорта").Value = osh Then

im.SetFocus

im.Text = st.Fields("имя").Value

fam.SetFocus

fam.Text = st.Fields("фамилия").Value

gr.SetFocus

gr.Text = st.Fields("н_группы").Value

End If

st.MoveNext

Loop

t.SetFocus

tem.MoveFirst

Do Until tem.EOF

If tem.Fields("н_темы").Value = t.Value Then

t.Value = tem.Fields("наим_темы").Value

End If

tem.MoveNext

Loop

End If

End Sub

 

Результаты ‘’просмотр результатов в ленточной форме с фильтрами

Option Compare Database

Private Sub ks_Click()

Dim A, B, C As String

If IsNull(dat.Value) = True Then A = "*" Else A = dat.Value

If IsNull(gr.Value) = True Then B = "*" Else B = gr.Value

ks.SetFocus

If IsNull(ks.Value) = True Then C = "*" Else C = ks.Text

Me.RecordSource = "select * from [результаты2] where [дата] Like '*" & A & "*'  and [н_группы] Like '" & B & "' and [фамилия] Like '" & C & "'"

End Sub

 

Private Sub gr_click()

Dim A, B, C As String

If IsNull(dat.Value) = True Then A = "*" Else A = dat.Value

If IsNull(gr.Value) = True Then B = "*" Else B = gr.Value

If IsNull(ks.Value) = True Then C = "*" Else C = ks.Value

Me.RecordSource = "select * from [результаты2] where [фамилия] Like '" & C & "' and [дата] Like '*" & A & "*'  and [н_группы] Like '" & B & "' "

End Sub

 

Private Sub Кнопка23_Click()

Dim A, B, C As String

If IsNull(dat.Value) = True Then A = "*" Else A = dat.Value

If IsNull(gr.Value) = True Then B = "*" Else B = gr.Value

If IsNull(ks.Value) = True Then C = "*" Else C = ks.Value

Me.RecordSource = "select * from [результаты2] where [дата] Like '*" & A & "*'  and [н_группы] Like '" & B & "' and [фамилия] Like '" & C & "'"

End Sub

 

Private Sub Кнопка25_Click()

Dim A, B, C As String

dat.Value = Null

gr.Value = Null

ks.Value = Null

A = "*"

B = "*"

C = "*"

Me.RecordSource = "select * from [результаты2] where [дата] Like '*" & A & "*'  and [н_группы] Like '" & B & "' and [фамилия] Like '" & C & "'"

End Sub