On Error GoTo ErrorHandler
    
    Dim xmlHttp As Object, xmlDoc As Object, xmlNodes As Object, node As Object
    Dim soapReq As String, soapResp As String
    Dim db As DAO.Database
    Dim tbl As DAO.Recordset
    Dim yil As String, ay As String, YakitTipi As String

    yil = Me.epSenesi.Value
    ay = Me.epAyi.Value
    YakitTipi = "Motorin"

    Set db = CurrentDb
    Set tbl = db.OpenRecordset("TbEpdk", dbOpenDynaset)

    'SOAP isteğini tanımlama
    Set xmlHttp = CreateObject("MSXML2.ServerXMLHTTP.6.0")
    
    soapReq = _
        "<?xml version=""1.0"" encoding=""utf-8""?>" & _
        "<soapenv:Envelope xmlns:soapenv=""http://schemas.xmlsoap.org/soap/envelope/"" xmlns:gen=""http://genel.service.ws.epvys.g222.tubitak.gov.tr/"">" & _
        "   <soapenv:Header/>" & _
        "   <soapenv:Body>" & _
        "      <gen:genelSorgu>" & _
        "         <sorguNo>71</sorguNo>" & _
        "         <parametreler>" & Format(yil, "yyyy") & "/" & Format(ay, "mm") & "</parametreler>" & _
        "      </gen:genelSorgu>" & _
        "   </soapenv:Body>" & _
        "</soapenv:Envelope>"
    
    'SOAP isteğini gönderme
    With xmlHttp
        .Open "POST", "https://lisansws.epdk.org.tr/services/bildirimPetrol8FirmaBulten.bildirimPetrol8FirmaBultenHttpSoap11Endpoint", False
        .setRequestHeader "Content-Type", "text/xml; charset=utf-8"
        .setRequestHeader "SOAPAction", "genelSorgu"
        .Send soapReq
    End With
    
    soapResp = xmlHttp.responseText
    
    Set xmlDoc = CreateObject("MSXML2.DOMDocument.6.0")
    xmlDoc.LoadXML soapResp
    xmlDoc.async = False

    Set xmlNodes = xmlDoc.getElementsByTagName("PetrolPiyasasiEnYuksekHacimliSekizFirmaninAkaryakitFiyatlari")
    For Each node In xmlNodes
        If node.SelectSingleNode("YakitTipi").Text = YakitTipi Then
            tbl.AddNew
            tbl!Fiyat = node.SelectSingleNode("Fiyat").Text
            tbl!Senesi = Format(yil, "yyyy")
            tbl!Ayi = Format(ay, "mm")
            tbl.Update
        End If
    Next node

    'MsgBox "Veriler başarıyla alındı ve tabloya kaydedildi.", vbInformation
    
    tbl.Close
    Set tbl = Nothing
    Set db = Nothing
    Set xmlHttp = Nothing
    Set xmlDoc = Nothing
    Exit Sub

ErrorHandler:
    MsgBox "Hata oluştu: " & Err.Description, vbCritical