Konu Araçları | Konu Seçenekleri | Gösterim Stili
Tarih
28/01/2019 23:42
Konu Sahibi
sercann
Yorumlar
8
Okunma
418
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 1
  • 2
  • 3
  • 4
  • 5
sercann

sercann

Üye
13681
si.... er....
 48
 5
 25
 04/01/2010
0
 İzmir
 sağ-teknikeri
 Ofis 2010 64 Bit
 04/04/2019,22:51
veri tabanını bölerek 8-10 bilgisayarın bulunduğu bir ağ da kullanılacağız




ozanakkaya

ozanakkaya

Kurucu
1
Oz.... Ak....
 39
 482
 12.116
 29/01/2008
 Denizli
 Memur
 Ofis 2010 32 Bit
 Bugün,13:45
Merhaba, makroları siz mi yazdınız bilmiyorum ama bir an önce Vba kodu yazmayı öğrenmelisiniz. Makrolarla bu iş yürümez,

recorder isimli makroda, status Sql ifadesini

SQL Code
INSERT INTO Comments (Bug, User,  CTimestamp, Comment, History) VALUES([ID], [TempVars]![CurrentUserID],Now(),[Status], 1)

Kodu ile değiştir.
Comments modülündeki GetComments fonksiyonunu aşağıdaki ile değiştir.

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
60
Public Function GetComments()

    On Error GoTo ErrorHandler

    Dim dbs As DAO.Database
    Dim rst As DAO.Recordset
    Dim query As String
    Dim commentsStr As String
    commentsStr = ""
    
    ' Construct our parameterized query to select the relevent comments
    query = "SELECT * FROM Comments, Users WHERE Comments.User = Users.ID AND Comments.Bug = " & TempVars!CurrentID & " ORDER BY CTimestamp desc"
    
    ' Open the resulting record set for the query
    Set dbs = CurrentDb
    Set rst = dbs.OpenRecordset(query)

    '
    With rst
        ' While there exist records in the record set, iterate through them and construct our string
        Do While Not rst.EOF
            ' If this comment has been marked as a history entry, then display it as such
            If rst.Fields("History") = 1 Then
                commentsStr = commentsStr & "<font color=""#3F3F3F"" size=""2""><i>"
                commentsStr = commentsStr & rst.Fields("Username") & " durumu "
                commentsStr = commentsStr & rst.Fields("Comment") & " olarak değiştirdi. Zaman:"
                commentsStr = commentsStr & rst.Fields("CTimestamp") & ""
                commentsStr = commentsStr & "</i></font>"
                commentsStr = commentsStr & "<br /><br />"
            ' Otherwise simply construct our standard comment string
            Else
                commentsStr = commentsStr & "<strong>"
                commentsStr = commentsStr & rst.Fields("CTimestamp")
                commentsStr = commentsStr & "<font color=""#0F0F0F"" size=""2"">  by  "
                commentsStr = commentsStr & rst.Fields("Username")
                commentsStr = commentsStr & "</strong>"
                commentsStr = commentsStr & "<br />"
                commentsStr = commentsStr & rst.Fields("Comment")
                commentsStr = commentsStr & "<br /><br />"
            End If
            ' Go to the next record (comment) in the set
            rst.MoveNext
        Loop
    End With
    
    rst.Close

    ' Ensure that we properly display newlines
    commentsStr = Replace(commentsStr, vbCrLf, "<br />")
    
    ' Push the string into the comment box on the form (display it!)
    Forms![Bug Details]!CommentsBox.Value = commentsStr

ExitProcedure:
    Exit Function
    
ErrorHandler:
    Resume ExitProcedure

End Function


"Boş Örnek Eklerim, Yapıp Verirler" demeyin, örneğinizi hazırlayın.
Komplike kod talebiniz var ise İletişim bağlantısından bize ulaşın. 
Cebelleşmezsen Öğrenemezsin. 

...........
sercann

sercann

Üye
13681
si.... er....
 48
 5
 25
 04/01/2010
0
 İzmir
 sağ-teknikeri
 Ofis 2010 64 Bit
 04/04/2019,22:51
teşekkür ediyorum 
şimdilik bu işimi görecek gibi
bütün kodları Vba yapmaya gelince de , biraz zamana ihtiyacım var daha çok da öğrenmeye 
danışmam gereken olursa bu konu üzerinden konuşabilirmiyiz




Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
Çözüldü Liste Kutusu Yada Açılan Kutu Hakkında programmer67 6 338 26/03/2019, 15:21
Son Yorum: programmer67
Çözüldü Fonksiyon Tuşları Hakkında Oğuz Türkyılmaz 2 288 15/02/2019, 12:44
Son Yorum: Oğuz Türkyılmaz
Çözüldü Me.keypreview = True Hakkında Oğuz Türkyılmaz 2 222 26/01/2019, 19:02
Son Yorum: Oğuz Türkyılmaz
Çözüldü Metin Kutularında Hesaplama Hakkında Oğuz Türkyılmaz 2 193 24/01/2019, 10:34
Son Yorum: Oğuz Türkyılmaz
Çözüldü Setwarnings İle Formun Kapatılması Hakkında. Oğuz Türkyılmaz 4 241 18/01/2019, 09:13
Son Yorum: Oğuz Türkyılmaz

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