Option Compare Database
Function q1(par, par1)
q1 = par & " __" & par1
End Function



Function find(x)
Dim y As String
y = "rw"
y = DLookup("pib", "spysok", "pib='" & x & "'")
If y = "rw" Then
MsgBox ("íåìà")
Else
MsgBox (y)
End If
End Function


Function nowa(par As String)

Dim db As Database
Dim r As Recordset
Set db = CurrentDb()
Set r = db.OpenRecordset("select * from email")

db.Execute "update email set email='" & par & "' where id=0;"


End Function

Function delet(idn)
Dim db As Database
Dim r As Recordset
Set db = CurrentDb()
Set r = db.OpenRecordset("select * from email")

db.Execute "delete from email where id=" & idn & " ; "
End Function

Function plus(par, num, mail As String, prym As String)
Dim db As Database
Dim r As Recordset
Set db = CurrentDb()
Set r = db.OpenRecordset("select * from email")

db.Execute "insert into email values(" & par & "," & num & ",'" & mail & "','" & prym & "');"
End Function

Function zaput()
DoCmd.OpenQuery "Zaput1"

End Function