' kauba lisamine

Option Compare Database
Option Explicit

Private Sub lisanupp_Click()
  Dim lause As String
  lause = "insert into kaubad (nimetus) values (' " & kaubanimi.Value & "')"
  CurrentDb.Execute (lause)
End Sub




_______________


' inimeste otsing

Option Compare Database
Option Explicit

Private Sub eesnimekast_AfterUpdate()
   perekonnanimekast.RowSource = _
     "select perenimi from inimesed where eesnimi='" & eesnimekast.Value & "'"
   If perekonnanimekast.ListCount > 0 Then perekonnanimekast.Value = _
     perekonnanimekast.ItemData(0)
End Sub

_______________


Option Compare Database
Option Explicit


Private Sub eesnimekast_AfterUpdate()
   perekonnanimekast.RowSource = "select perenimi from inimesed where eesnimi='" & eesnimekast.Value & "'"
   If perekonnanimekast.ListCount > 0 Then perekonnanimekast.Value = perekonnanimekast.ItemData(0)
End Sub

Private Sub Form_Load()
  'kaubakast.BoundColumn = 2
End Sub

Private Sub lisakaupnupp_Click()
  DoCmd.OpenForm "kaup_lisamine", windowMode:=acDialog
  kaubakast.Requery
End Sub

Private Sub lisainimenenupp_click()
  DoCmd.OpenForm "inimesed_columnar", windowMode:=acDialog
  eesnimekast.Requery
  perekonnanimekast.Value = Null
End Sub

Private Sub ostanupp_Click()
  Dim r As Recordset
  Dim lause As String
  Dim inimene_id As Integer
  Set r = CurrentDb.OpenRecordset("select inimene_id from inimesed where " &_
   "eesnimi='" & eesnimekast.Value & "' and perenimi='" & _
   perekonnanimekast.Value & "'")
   If r.RecordCount <> 1 Then
      MsgBox "Inimene pole üheselt määratud"
      Exit Sub
   End If
   r.MoveLast
   inimene_id = r.Fields("inimene_id").Value
   r.Close
   Set r = CurrentDb.OpenRecordset("select kaup_id from kaubad where nimetus='" & _
     kaubakast.Value & "'")
   r.MoveLast
   lause = "insert into inimesed_kaubad( inimene_id, kaup_id) values ( " & _
     inimene_id & ", " & r.Fields("kaup_id") & ")"
   r.Close
   CurrentDb.Execute (lause)
   MsgBox "Müüdud"
End Sub



____________