Konu Araçları | Konu Seçenekleri | Gösterim Stili
Tarih
19/02/2019 14:43
Konu Sahibi
Mr.Midnight
Yorumlar
8
Okunma
369
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 1
  • 2
  • 3
  • 4
  • 5
Mr.Midnight

Mr.Midnight

Üye
94424
Gö.... Ur....
 38
 5
 18
 30/12/2017
0
 Tekirdağ
 Lojistik
 Ofis 2016 32 Bit
 Dün,12:16
Çözüldü 
Merhaba;
Accessde yaptığım programda kaydetme ve mail göndermeye yarayan bir buton için yazdığım kodlarda mail gönderme işlemi öncesinde bir mesaj kutusu çıkıyor. Çıkan mesajda izin ver ve reddet butonları var. İzin ver butonuna basıldığında sorunsuz olarak mail gönderme gerçekleşiyor ama reddet butonuna basıldığında program debug hatası verip  kullanıcıyı kodların olduğu sayfaya yönlendiriyor. Bu durum nasıl engellerim? Yardım etmenizi rica ederim..



Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
Private Sub btnMailGonder_Click()
Dim adrs, kmps As String

  If IsNull(txtTalepNo) Then
      MsgBox "Lütfen Talep Numarasını ilgili alana giriniz", vbExclamation + vbOKOnly, "İşlem Hatası"
      DoCmd.RunCommand acCmdRefreshData
    Else
      Dim sql2 As String

      DoCmd.GoToRecord , , acNewRec
      'Me.Undo
      DoCmd.SetWarnings (False)
      sql2 = "UPDATE tblTalepler SET tblTalepler.Iletildi = 'EVET', tblTalepler.KayitTarihi = Date(), tblTalepler.KayitSaati = Time() WHERE (((tblTalepler.TalepNo)=[Forms]![frmTalepler]![txtTalepNo]));"
      'UPDATE tblTahditliManuelCikis SET tblTahditliManuelCikis.Onay = 'EVET' WHERE (((tblTahditliManuelCikis.IrsaliyeNo)=[Forms]![frmMalKabulRapor]![txtUpdate]));"
      DoCmd.RunSQL sql2
      DoCmd.SetWarnings (True)
      Recalc
      
      Me.Requery
      Me.Refresh
      'Bilgileri Kaydet
      Dim sql As String
      DoCmd.GoToRecord , , acNewRec
      DoCmd.SetWarnings (False)
      sql = "DELETE * FROM srgBosSiparisBul"
      DoCmd.RunSQL sql
      DoCmd.SetWarnings (True)
      Recalc
      'DoCmd.RunCommand acCmdSaveRecord
      'Mail Gönder
      kmps = DLookup("TalepEdilenKampus", "tblTalepler", "[TalepNo]= '" & Me.txtTalepNo & "'")
      
      If kmps = "KAMPUS 1" Then
      adrs = "info1@hotmail.com"
      ElseIf kmps = "KAMPUS 2" Then
      adrs = "info2@hotmail.com"
      ElseIf kmps = "KAMPUS 3" Then
      adrs = "info3@hotmail.com"
      End If
      
      DoCmd.OpenReport "rprTalepFormu", acViewPreview, , "[tblTalepler]![TalepNo]=[Forms]![frmTalepler]![txtTalepNo]", acWindowNormal
      
      DoCmd.SendObject acSendReport, "rprTalepFormu", "PDFFormat(*.pdf)", adrs, , , "Talep Formu", "Ekteki depolar arası transfer talebini işleme almanızı rica ederim ", False
      DoCmd.Close acReport, "rprTalepFormu"
      
      MsgBox "Bilgiler başarıyla kaydedildi.", vbInformation + vbOKOnly, "İşlem Tamam"
      

      btnMailGonder.Enabled = False
      'Form.Requery
      
      
      TumDenetimPasif
    End If
End Sub




halily

halily

Uzman
65596
ha....
 26
 1.170
 30/07/2014
209
 -
 
 Ofis 2019 64 Bit
 Bugün,00:29
43. satıra aşağıdaki kodunu eklemeyi deneyin

Visual Basic Code
On Error Resume Next



...........
halily

halily

Uzman
65596
ha....
 26
 1.170
 30/07/2014
209
 -
 
 Ofis 2019 64 Bit
 Bugün,00:29
yada 

Visual Basic Code
On Error exit sub



Mr.Midnight

Mr.Midnight

Üye
94424
Gö.... Ur....
 38
 5
 18
 30/12/2017
0
 Tekirdağ
 Lojistik
 Ofis 2016 32 Bit
 Dün,12:16
haliliyas bey merhaba;
Vermiş olduğunuz kodları yazdığımda kod sayfasında kırmızıya dönüyor




...........
halily

halily

Uzman
65596
ha....
 26
 1.170
 30/07/2014
209
 -
 
 Ofis 2019 64 Bit
 Bugün,00:29
2 kodda da mı



halily

halily

Uzman
65596
ha....
 26
 1.170
 30/07/2014
209
 -
 
 Ofis 2019 64 Bit
 Bugün,00:29
kodu aşağıdaki şekilde dener misiniz?

Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
Private Sub btnMailGonder_Click()
Dim adrs, kmps As String

  If IsNull(txtTalepNo) Then
      MsgBox "Lütfen Talep Numarasını ilgili alana giriniz", vbExclamation + vbOKOnly, "İşlem Hatası"
      DoCmd.RunCommand acCmdRefreshData
    Else
      Dim sql2 As String

      DoCmd.GoToRecord , , acNewRec
      'Me.Undo
      DoCmd.SetWarnings (False)
      sql2 = "UPDATE tblTalepler SET tblTalepler.Iletildi = 'EVET', tblTalepler.KayitTarihi = Date(), tblTalepler.KayitSaati = Time() WHERE (((tblTalepler.TalepNo)=[Forms]![frmTalepler]![txtTalepNo]));"
      'UPDATE tblTahditliManuelCikis SET tblTahditliManuelCikis.Onay = 'EVET' WHERE (((tblTahditliManuelCikis.IrsaliyeNo)=[Forms]![frmMalKabulRapor]![txtUpdate]));"
      DoCmd.RunSQL sql2
      DoCmd.SetWarnings (True)
      Recalc
      
      Me.Requery
      Me.Refresh
      'Bilgileri Kaydet
      Dim sql As String
      DoCmd.GoToRecord , , acNewRec
      DoCmd.SetWarnings (False)
      sql = "DELETE * FROM srgBosSiparisBul"
      DoCmd.RunSQL sql
      DoCmd.SetWarnings (True)
      Recalc
      'DoCmd.RunCommand acCmdSaveRecord
      'Mail Gönder
      kmps = DLookup("TalepEdilenKampus", "tblTalepler", "[TalepNo]= '" & Me.txtTalepNo & "'")
      
      If kmps = "KAMPUS 1" Then
      adrs = "info1@hotmail.com"
      ElseIf kmps = "KAMPUS 2" Then
      adrs = "info2@hotmail.com"
      ElseIf kmps = "KAMPUS 3" Then
      adrs = "info3@hotmail.com"
      End If
      
      DoCmd.OpenReport "rprTalepFormu", acViewPreview, , "[tblTalepler]![TalepNo]=[Forms]![frmTalepler]![txtTalepNo]", acWindowNormal
      On error goto ErrorHandler
      DoCmd.SendObject acSendReport, "rprTalepFormu", "PDFFormat(*.pdf)", adrs, , , "Talep Formu", "Ekteki depolar arası transfer talebini işleme almanızı rica ederim ", False
      DoCmd.Close acReport, "rprTalepFormu"
      
      MsgBox "Bilgiler başarıyla kaydedildi.", vbInformation + vbOKOnly, "İşlem Tamam"
      

      btnMailGonder.Enabled = False
      'Form.Requery
      
      
      TumDenetimPasif
    End If
exit sub
ErrorHandler:
msgbox("mail gönderilemedi")
Exit Sub
End Sub



...........

Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
Çözüldü Araç Takip Programı Yardım!!! IceMan7 5 226 22/06/2019, 11:21
Son Yorum: IceMan7
Çözüldü Raporda Sayfa Alt Bilgisi Liste Boyuna Göre Yapışık Olsun Yardım okumas 2 131 30/05/2019, 15:38
Son Yorum: okumas
Çözüldü İlişkisiz Form Da Listenin Filtrelenen Alanını İlişkisiz Metin Kutusu İle Update ask200075 4 128 29/04/2019, 11:27
Son Yorum: ask200075
Çözüldü Metin Kutusu İstenildiği Zaman Okunur, İstediğim Zaman Yazılır Olsun eraslan 6 224 28/04/2019, 14:39
Son Yorum: ozanakkaya
Çözüldü Saat 17:00Da Otomatik Mail Atsın haziran4 6 246 26/04/2019, 15:52
Son Yorum: ozanakkaya

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2019 MyBB Group.