    10   
      
  6     4    :
1-                 
2-        
               
3-   ,          
4-        MSGBOX  ****        MSGBOX 

     .


 ::::
         





'      
Dim SQL As String
Dim i, d
 Dim db As New ADODB.Connection
 Dim RS As New ADODB.Recordset
 Dim rs1 As New ADODB.Recordset
 Dim rs2 As New ADODB.Recordset
 Dim rs3 As New ADODB.Recordset
 Dim rs4 As New ADODB.Recordset
 Dim rs5 As New ADODB.Recordset
 Dim rs6 As New ADODB.Recordset
 Dim rs7 As New ADODB.Recordset
 Dim rs8 As New ADODB.Recordset
 Dim rs9 As New ADODB.Recordset
 Dim rs10 As New ADODB.Recordset
 Dim rs11 As New ADODB.Recordset
  Dim EditORAdd As Boolean

Private Sub Command1_Click()
'                                                                         
MSG = MsgBox("       " & " ( " & strNameUser & " ) " & vbNewLine + "    ", vbQuestion + vbYesNo + vbMsgBoxRight + vbMsgBoxRtlReading, "  ")
'                                                            
    MsgBox "      " & " ( " & strNameUser & " ) " & " ", vbInformation + vbMsgBoxRight, "  "
'                                           
    MsgBox "    " & " ( " & strNameUser & " ) " & "", vbInformation + vbMsgBoxRight, " "
    
End Sub

Private Sub Command10_Click()
Dim Rss As ADODB.Recordset
Dim Aa
If Combo1.Text = "" Then
MsgBox "  "
End If

Set Rss = New Recordset
  On Error Resume Next
   Aa = Err.Number
   Rss.Open "[co1]", db, adOpenStatic, adLockPessimistic
   With Rss
        .AddNew
        !sup1 = Combo1.Text
        .Update
   End With
   Aa = Err.Number
If Aa = -2147217887 Then
    MsgBox "    "
    Err.Clear
    Rss.Close
    Exit Sub
Else
    Combo1.AddItem Combo1.Text
End If
   Rss.Close
End Sub



Private Sub Command12_Click()
Dim rs5 As ADODB.Recordset
Dim Aa, SQL
If Combo1.Text = "" Or Combo1.Text = " " Then Exit Sub

Set rs5 = New Recordset
  On Error Resume Next
   Aa = Err.Number
   SQL = "select * from co1 where sup1 = '" & CStr(Combo1.Text) & "';"
   rs5.Open SQL, db, adOpenStatic, adLockPessimistic
   If rs5.RecordCount > 0 Then
       With rs5
        .Delete
        .Update
       End With
       Combo1.RemoveItem Combo1.ListIndex
   Else
       MsgBox "     "
       rs5.Close
       Exit Sub
   End If
   rs5.Close

End Sub

Private Sub Command13_Click()
Dim rs5 As ADODB.Recordset
Dim Aa, SQL
If Combo2.Text = "" Or Combo2.Text = " " Then Exit Sub

Set rs5 = New Recordset
  On Error Resume Next
   Aa = Err.Number
   SQL = "select * from co2 where sup2 = '" & CStr(Combo2.Text) & "';"
   rs5.Open SQL, db, adOpenStatic, adLockPessimistic
   If rs5.RecordCount > 0 Then
       With rs5
        .Delete
        .Update
       End With
       Combo2.RemoveItem Combo2.ListIndex
   Else
       MsgBox "     "
       rs5.Close
       Exit Sub
   End If
   rs5.Close

End Sub

Private Sub Command14_Click()
Dim Rss As ADODB.Recordset
Dim Aa
If Combo2.Text = "" Then
MsgBox "  "
End If

Set Rss = New Recordset
  On Error Resume Next
   Aa = Err.Number
   Rss.Open "[co2]", db, adOpenStatic, adLockPessimistic
   With Rss
        .AddNew
        !sup2 = Combo2.Text
        .Update
   End With
   Aa = Err.Number
If Aa = -2147217887 Then
    MsgBox "    "
    Err.Clear
    Rss.Close
    Exit Sub
Else
    Combo2.AddItem Combo2.Text
End If
   Rss.Close
End Sub

Private Sub Command15_Click()
Dim Rss As ADODB.Recordset
Dim Aa
If Combo3.Text = "" Then
MsgBox "  "
End If

Set Rss = New Recordset
  On Error Resume Next
   Aa = Err.Number
   Rss.Open "[co3]", db, adOpenStatic, adLockPessimistic
   With Rss
        .AddNew
        !sup3 = Combo3.Text
        .Update
   End With
   Aa = Err.Number
If Aa = -2147217887 Then
    MsgBox "    "
    Err.Clear
    Rss.Close
    Exit Sub
Else
    Combo3.AddItem Combo3.Text
End If
   Rss.Close
End Sub

Private Sub Command16_Click()
Dim rs5 As ADODB.Recordset
Dim Aa, SQL
If Combo3.Text = "" Or Combo3.Text = " " Then Exit Sub

Set rs5 = New Recordset
  On Error Resume Next
   Aa = Err.Number
   SQL = "select * from co3 where sup3 = '" & CStr(Combo3.Text) & "';"
   rs5.Open SQL, db, adOpenStatic, adLockPessimistic
   If rs5.RecordCount > 0 Then
       With rs5
        .Delete
        .Update
       End With
       Combo3.RemoveItem Combo3.ListIndex
   Else
       MsgBox "     "
       rs5.Close
       Exit Sub
   End If
   rs5.Close

End Sub

Private Sub Command17_Click()
Dim Rss As ADODB.Recordset
Dim Aa
If Combo4.Text = "" Then
MsgBox "  "
End If

Set Rss = New Recordset
  On Error Resume Next
   Aa = Err.Number
   Rss.Open "[co4]", db, adOpenStatic, adLockPessimistic
   With Rss
        .AddNew
        !author = Combo4.Text
        .Update
   End With
   Aa = Err.Number
If Aa = -2147217887 Then
    MsgBox "    "
    Err.Clear
    Rss.Close
    Exit Sub
Else
    Combo4.AddItem Combo4.Text
End If
   Rss.Close
End Sub

Private Sub Command18_Click()
Dim rs5 As ADODB.Recordset
Dim Aa, SQL
If Combo4.Text = "" Or Combo4.Text = "" Then Exit Sub

Set rs5 = New Recordset
  On Error Resume Next
   Aa = Err.Number
   SQL = "select * from co4 where author = '" & CStr(Combo4.Text) & "';"
   rs5.Open SQL, db, adOpenStatic, adLockPessimistic
   If rs5.RecordCount > 0 Then
       With rs5
        .Delete
        .Update
       End With
       Combo4.RemoveItem Combo4.ListIndex
   Else
       MsgBox "     "
       rs5.Close
       Exit Sub
   End If
   rs5.Close

End Sub

Private Sub Command19_Click()
Dim Rss As ADODB.Recordset
Dim Aa
If Combo5.Text = "" Then
MsgBox "  "
End If

Set Rss = New Recordset
  On Error Resume Next
   Aa = Err.Number
   Rss.Open "[co5]", db, adOpenStatic, adLockPessimistic
   With Rss
        .AddNew
        !mohagg = Combo5.Text
        .Update
   End With
   Aa = Err.Number
If Aa = -2147217887 Then
    MsgBox "    "
    Err.Clear
    Rss.Close
    Exit Sub
Else
    Combo5.AddItem Combo5.Text
End If
   Rss.Close
End Sub



Private Sub Command20_Click()
Dim rs5 As ADODB.Recordset
Dim Aa, SQL
If Combo5.Text = "" Or Combo5.Text = "" Then Exit Sub

Set rs5 = New Recordset
  On Error Resume Next
   Aa = Err.Number
   SQL = "select * from co5 where mohagg = '" & CStr(Combo5.Text) & "';"
   rs5.Open SQL, db, adOpenStatic, adLockPessimistic
   If rs5.RecordCount > 0 Then
       With rs5
        .Delete
        .Update
       End With
       Combo5.RemoveItem Combo5.ListIndex
   Else
       MsgBox "     "
       rs5.Close
       Exit Sub
   End If
   rs5.Close

End Sub

Private Sub Command21_Click()
Dim Rss As ADODB.Recordset
Dim Aa
If Combo6.Text = "" Then
MsgBox "  "
End If

Set Rss = New Recordset
  On Error Resume Next
   Aa = Err.Number
   Rss.Open "[co6]", db, adOpenStatic, adLockPessimistic
   With Rss
        .AddNew
        !motargm = Combo6.Text
        .Update
   End With
   Aa = Err.Number
If Aa = -2147217887 Then
    MsgBox "    "
    Err.Clear
    Rss.Close
    Exit Sub
Else
    Combo6.AddItem Combo6.Text
End If
   Rss.Close
End Sub

Private Sub Command22_Click()
Dim rs5 As ADODB.Recordset
Dim Aa, SQL
If Combo6.Text = "" Or Combo6.Text = "" Then Exit Sub

Set rs5 = New Recordset
  On Error Resume Next
   Aa = Err.Number
   SQL = "select * from co6 where motargm = '" & CStr(Combo6.Text) & "';"
   rs5.Open SQL, db, adOpenStatic, adLockPessimistic
   If rs5.RecordCount > 0 Then
       With rs5
        .Delete
        .Update
       End With
       Combo6.RemoveItem Combo6.ListIndex
   Else
       MsgBox "     "
       rs5.Close
       Exit Sub
   End If
   rs5.Close

End Sub

Private Sub Form_Load()
'
   db.Provider = "Microsoft.JET.OLEDB.4.0;"
   db.Open App.Path & "\data.mdb"
   RS.Open "[workers]", db, adOpenStatic, adLockPessimistic
   rs1.Open "[co1]", db, adOpenStatic, adLockPessimistic
   Do While Not rs1.EOF
        Combo1.AddItem rs1!sup1
        
        rs1.MoveNext
        Loop
        rs1.Close


  rs2.Open "[workers]", db, adOpenStatic, adLockPessimistic
   rs3.Open "[co2]", db, adOpenStatic, adLockPessimistic
   Do While Not rs3.EOF
    Combo2.AddItem rs3!sup2
       
        rs3.MoveNext
        Loop
        rs3.Close

  rs4.Open "[workers]", db, adOpenStatic, adLockPessimistic
   rs5.Open "[co3]", db, adOpenStatic, adLockPessimistic
   Do While Not rs5.EOF
    Combo3.AddItem rs5!sup3
       
        rs5.MoveNext
        Loop
        rs5.Close

rs6.Open "[workers]", db, adOpenStatic, adLockPessimistic
   rs7.Open "[co4]", db, adOpenStatic, adLockPessimistic
   Do While Not rs7.EOF
    Combo4.AddItem rs7!author
       
        rs7.MoveNext
        Loop
        rs7.Close

rs8.Open "[workers]", db, adOpenStatic, adLockPessimistic
   rs9.Open "[co5]", db, adOpenStatic, adLockPessimistic
   Do While Not rs9.EOF
    Combo5.AddItem rs9!mohagg
       
        rs9.MoveNext
        Loop
        rs9.Close
rs10.Open "[workers]", db, adOpenStatic, adLockPessimistic
   rs11.Open "[co6]", db, adOpenStatic, adLockPessimistic
   Do While Not rs11.EOF
    Combo6.AddItem rs11!motargm
       
        rs11.MoveNext
        Loop
        rs11.Close


End Sub









