|
Private Sub Command1_Click()
On Error Resume Next
Dim K
If Text5 = "A" Then
K = MsgBox("De?i?iklikleri Kaydetmek ?stedi?inizden Emin Misin?", vbYesNo, "UYARI")
If K = 6 Then
Data1.Recordset.Edit
Data1.Recordset.Update
Text5 = ""
Command7.Enabled = True
Command6.Enabled = True
Command8.Enabled = False
Command9.Enabled = False
Else
Data1.Recordset.Edit
Data1.Recordset.CancelUpdate
Text5 = ""
Command7.Enabled = True
Command6.Enabled = True
Command8.Enabled = False
Command9.Enabled = False
End If
End If
Data1.Recordset.MoveFirst
Command1.Enabled = False
Command2.Enabled = False
Command3.Enabled = True
Command4.Enabled = True
Command7.Enabled = True
Command8.Enabled = False
Command9.Enabled = False
End Sub
Private Sub Command10_Click()
On Error Resume Next
Data1.Refresh
Text5 = ""
If Data1.Recordset.RecordCount = 0 Then
Command7.Enabled = True
Command8.Enabled = False
Command9.Enabled = False
Else
Command1.Enabled = True
Command2.Enabled = True
Command3.Enabled = True
Command4.Enabled = True
Command7.Enabled = True
Command6.Enabled = True
Command8.Enabled = False
Command9.Enabled = False
End If
End Sub
Private Sub Command11_Click()
On Error Resume Next
Dim A, B
Dim K
If Text5 = "A" Then
K = MsgBox("De?i?iklikleri Kaydetmek ?stedi?inizden Emin Misin?", vbYesNo, "UYARI")
If K = 6 Then
Data1.Recordset.Edit
Data1.Recordset.Update
Text5 = ""
Command7.Enabled = True
Command6.Enabled = True
Command8.Enabled = False
Command9.Enabled = False
Else
Data1.Recordset.Edit
Data1.Recordset.CancelUpdate
Text5 = ""
Command7.Enabled = True
Command6.Enabled = True
Command8.Enabled = False
Command9.Enabled = False
End If
End If
A = InputBox("Arad???n?z Ki?inin Ad?n? Giriniz", "Ad?na göre arama Alan?")
B = "ADI= & A & "
Data1.Recordset.FindFirst B
If Data1.Recordset.Fields("ADI") <> A Then
Command6.Enabled = True
Command7.Enabled = True
Command8.Enabled = False
Command9.Enabled = False
MsgBox ("Aranan Kay?t Bulunamad?")
Else
Command1.Enabled = True
Command2.Enabled = True
Command3.Enabled = True
Command4.Enabled = True
Command6.Enabled = True
Command7.Enabled = True
Command8.Enabled = False
Command9.Enabled = False
End If
End Sub
Private Sub Command12_Click()
On Error Resume Next
Dim K
If Text5 = "A" Then
K = MsgBox("De?i?iklikleri Kaydetmek ?stedi?inizden Emin Misin?", vbYesNo, "UYARI")
If K = 6 Then
Data1.Recordset.Edit
Data1.Recordset.Update
Else
Data1.Recordset.Edit
Data1.Recordset.CancelUpdate
End If
End If
End
End Sub
Private Sub Command2_Click()
On Error Resume Next
Dim K
If Text5 = "A" Then
K = MsgBox("De?i?iklikleri Kaydetmek ?stedi?inizden Emin Misin?", vbYesNo, "UYARI")
If K = 6 Then
Data1.Recordset.Edit
Data1.Recordset.Update
Text5 = ""
Command7.Enabled = True
Command6.Enabled = True
Command8.Enabled = False
Command9.Enabled = False
Else
Data1.Recordset.Edit
Data1.Recordset.CancelUpdate
Text5 = ""
Command7.Enabled = True
Command6.Enabled = True
Command8.Enabled = False
Command9.Enabled = False
End If
End If
Data1.Recordset.MovePrevious
Command1.Enabled = True
Command2.Enabled = True
Command3.Enabled = True
Command4.Enabled = True
Command7.Enabled = True
Command8.Enabled = False
Command9.Enabled = False
If Data1.Recordset.BOF Then
Data1.Recordset.MoveFirst
Command1.Enabled = False
Command2.Enabled = False
Command3.Enabled = True
Command4.Enabled = True
Command7.Enabled = True
Command8.Enabled = False
Command9.Enabled = False
End If
End Sub
Private Sub Command3_Click()
On Error Resume Next
Dim K
If Text5 = "A" Then
K = MsgBox("De?i?iklikleri Kaydetmek ?stedi?inizden Emin Misin?", vbYesNo, "UYARI")
If K = 6 Then
Data1.Recordset.Edit
Data1.Recordset.Update
Text5 = ""
Command7.Enabled = True
Command6.Enabled = True
Command8.Enabled = False
Command9.Enabled = False
Else
Data1.Recordset.Edit
Data1.Recordset.CancelUpdate
Text5 = ""
Command7.Enabled = True
Command6.Enabled = True
Command8.Enabled = False
Command9.Enabled = False
End If
End If
Data1.Recordset.MoveNext
Command1.Enabled = True
Command2.Enabled = True
Command3.Enabled = True
Command4.Enabled = True
Command7.Enabled = True
Command8.Enabled = False
Command9.Enabled = False
If Data1.Recordset.EOF Then
Data1.Recordset.MoveLast
Command3.Enabled = False
Command4.Enabled = False
Command1.Enabled = True
Command2.Enabled = True
Command7.Enabled = True
Command8.Enabled = False
Command9.Enabled = False
End If
End Sub
Private Sub Command4_Click()
On Error Resume Next
Dim K
If Text5 = "A" Then
K = MsgBox("De?i?iklikleri Kaydetmek ?stedi?inizden Emin Misin?", vbYesNo, "UYARI")
If K = 6 Then
Data1.Recordset.Edit
Data1.Recordset.Update
Text5 = ""
Command7.Enabled = True
Command6.Enabled = True
Command8.Enabled = False
Command9.Enabled = False
Else
Data1.Recordset.Edit
Data1.Recordset.CancelUpdate
Text5 = ""
Command7.Enabled = True
Command6.Enabled = True
Command8.Enabled = False
Command9.Enabled = False
End If
End If
Data1.Recordset.MoveLast
Command3.Enabled = False
Command4.Enabled = False
Command1.Enabled = True
Command2.Enabled = True
Command7.Enabled = True
Command8.Enabled = False
Command9.Enabled = False
End Sub
Private Sub Command5_Click()
On Error Resume Next
Dim K
If Text5 = "A" Then
K = MsgBox("De?i?iklikleri Kaydetmek ?stedi?inizden Emin Misin?", vbYesNo, "UYARI")
If K = 6 Then
Data1.Recordset.Edit
Data1.Recordset.Update
Text5 = ""
Command7.Enabled = True
Command6.Enabled = True
Command8.Enabled = False
Command9.Enabled = False
Else
Data1.Recordset.Edit
Data1.Recordset.CancelUpdate
Text5 = ""
Command7.Enabled = True
Command6.Enabled = True
Command8.Enabled = False
Command9.Enabled = False
End If
End If
Text5 = "A"
Data1.Recordset.AddNew
If Data1.Recordset.RecordCount = 0 Then
Command3.Enabled = True
Command4.Enabled = True
Command7.Enabled = False
Command6.Enabled = True
Command8.Enabled = True
Command9.Enabled = True
Else
Command3.Enabled = True
Command4.Enabled = True
Command1.Enabled = False
Command2.Enabled = False
Command7.Enabled = False
Command6.Enabled = True
Command8.Enabled = True
Command9.Enabled = True
End If
End Sub
Private Sub Command6_Click()
On Error Resume Next
Dim K
K = MsgBox("S?LMEK ?STED???N?ZDEN EM?N M?S?N?", vbYesNo, "UYARI")
If K = 6 Then
Data1.Recordset.Delete
Data1.Recordset.MoveLast
Text5 = ""
If Data1.Recordset.RecordCount = 0 Then
Command1.Enabled = False
Command2.Enabled = False
Command3.Enabled = False
Command4.Enabled = False
Command7.Enabled = True
Command6.Enabled = False
Command8.Enabled = False
Command9.Enabled = False
Else
Command7.Enabled = True
Command8.Enabled = False
Command9.Enabled = False
End If
End If
End Sub
Private Sub Command7_Click()
On Error Resume Next
Data1.Recordset.Edit
Command8.Enabled = True
Command9.Enabled = True
Command7.Enabled = False
Text5 = ""
End Sub
Private Sub Command8_Click()
On Error Resume Next
Dim K
K = MsgBox("De?i?iklikleri Kaydetmek ?stedi?inizden Emin Misin?", vbYesNo, "UYARI")
If K = 6 Then
Data1.Recordset.Update
Command1.Enabled = True
Command2.Enabled = True
Command3.Enabled = True
Command4.Enabled = True
Command7.Enabled = True
Command6.Enabled = True
Command8.Enabled = False
Command9.Enabled = False
Text5 = ""
Else
Data1.Recordset.CancelUpdate
Data1.Recordset.MoveLast
Command1.Enabled = True
Command2.Enabled = True
Command3.Enabled = True
Command4.Enabled = True
Command7.Enabled = True
Command6.Enabled = True
Command8.Enabled = False
Command9.Enabled = False
Text5 = ""
End If
End Sub
Private Sub Command9_Click()
On Error Resume Next
Data1.Recordset.Edit
Data1.Recordset.CancelUpdate
Text5 = ""
If Data1.Recordset.RecordCount = 0 Then
Command7.Enabled = True
Command8.Enabled = False
Command9.Enabled = False
Else
Command1.Enabled = True
Command2.Enabled = True
Command3.Enabled = True
Command4.Enabled = True
Command7.Enabled = True
Command6.Enabled = True
Command8.Enabled = False
Command9.Enabled = False
End If
End Sub
Private Sub Form_Load()
Left = (Screen.Width - Width) 2
Top = (Screen.Height - Height) 2
Command1.Enabled = False
Command2.Enabled = False
Command3.Enabled = True
Command4.Enabled = True
Command7.Enabled = True
Command6.Enabled = True
End Sub
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
On Error Resume Next
Dim K
If Text5 = "A" Then
K = MsgBox("De?i?iklikleri Kaydetmek ?stedi?inizden Emin Misin?", vbYesNo, "UYARI")
If K = 6 Then
Data1.Recordset.Edit
Data1.Recordset.Update
Else
Data1.Recordset.Edit
Data1.Recordset.CancelUpdate
End If
End If
End
End Sub
Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
Text5 = "A"
End Sub
Private Sub Text2_KeyDown(KeyCode As Integer, Shift As Integer)
Text5 = "A"
End Sub
Private Sub Text3_KeyDown(KeyCode As Integer, Shift As Integer)
Text5 = "A"
End Sub
Private Sub Text4_KeyDown(KeyCode As Integer, Shift As Integer)
Text5 = "A"
End Sub
|
|
DATA ile NAVIGATOR GELyyMyy