Kod:
Private Sub Form_Load()
Dim db As DAO.Database
Dim qdf As DAO.QueryDef
Set db = CurrentDb()
For Each qdf In db.QueryDefs
If qdf.Name = "s_sıcaklık" Then
CurrentDb.QueryDefs.Delete "s_sıcaklık"
CurrentDb.QueryDefs.Refresh
Exit For
End If
If qdf.Name = "s_basinc" Then
CurrentDb.QueryDefs.Delete "s_basinc"
CurrentDb.QueryDefs.Refresh
Exit For
End If
If qdf.Name = "s_basinc_sck" Then
CurrentDb.QueryDefs.Delete "s_basinc_sck"
CurrentDb.QueryDefs.Refresh
Exit For
End If
Next qdf
Set qdf = Nothing
Set db = Nothing
End Sub
Private Sub Komut7_Click()
On Error Resume Next
Dim strSQL As String
Call Form_Load
If Me.Seçenek8 = True And Me.Seçenek10 = False Then
strSQL = "SELECT Tablo1.isim, Tablo1.sıcaklık FROM Tablo1"
Set qdf = CurrentDb.CreateQueryDef("s_sıcaklık", strSQL)
DoCmd.OpenQuery qdf.Name
DoCmd.RunSQL strSQL
Call Form_Load
End If
If Me.Seçenek8 = False And Me.Seçenek10 = True Then
strSQL = "SELECT Tablo1.isim, Tablo1.basınç FROM Tablo1"
Set qdf = CurrentDb.CreateQueryDef("s_basinc", strSQL)
DoCmd.OpenQuery qdf.Name
DoCmd.RunSQL strSQL
Call Form_Load
End If
If Me.Seçenek8 = True And Me.Seçenek10 = True Then
strSQL = "SELECT Tablo1.isim, Tablo1.sıcaklık, Tablo1.basınç FROM Tablo1"
Set qdf = CurrentDb.CreateQueryDef("s_basinc_sck", strSQL)
DoCmd.OpenQuery qdf.Name
DoCmd.RunSQL strSQL
Call Form_Load
End If
'Hata:
End Sub
Private Sub Seçenek10_Click()
Call Form_Load
End Sub
Private Sub Seçenek8_Click()
Call Form_Load
End Sub