Vraag : Kan geen duplicaat toevoegen

Hallo, heeft

I voor bepaalde tijd nu gewerkt aan dit. Ik probeer om de codes onbruikbaar te maken die het ingaan van duplicaat verhinderen.  Voeg vraag toe toevoegt geen activiteiten die de zelfde datum voor activites aanpassen, en staff.
The- lijsten geen restrictions.
Help ....... ......

" codeBody " 
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:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95:
96:
97:
98:
99:
100:
101:
102:
103:
104:
105:
106:
107:
108:
109:
110:
111:
112:
113:
114:
115:
116:
117:
118:
119:
120:
121:
122:
123:
124:
van 
Private SubcmdBuildSchedule_Click ()
    Schemerige datThis als Datum
    Schemerige lngActID zoals lang
    Schemerige lngStaffID zoals lang
    Schemerige lngrojectID zoals lang
    Schemerige lngOrganizationID zoals lang
    Schemerige varNotes als Variant
    Schemerige strSQL als Koord
    Schemerige db als DAO.Database
    Schemerige intDOW de dag als van Geheel 'van week
    Schemerige intDIM de Dag als van Geheel 'in maand
    Als Me.grpRepeats = 2 toen
       Als niet CheckDates () toen
            Sub van de uitgang
        Eind als
    Eind als
    'Als niet CheckTimes () toen
       'Sub van de uitgang
    'Beëindig als
    Als IsNull (Me.cboActID) toen
        MsgBox „u moet een Activiteit selecteren. “, vbOKOnly + gaat vbInformation, „Activiteit in“
        Me.cboActID.SetFocus
        Me.cboActID.Dropdown
        Sub van de uitgang
    Eind als
    Als IsNull (Me.cboLocID) toen
        MsgBox „u moet een Plaats selecteren. “, vbOKOnly + gaat vbInformation, „Plaats in“
        Me.cboLocID.SetFocus
        Me.cboLocID.Dropdown
        Sub van de uitgang
    Eind als
    Als IsNull (Me.cboOrgID) toen
        MsgBox „u moet een organisatie selecteren. “, vbOKOnly + gaat vbInformation, „Plaats in“
        Me.cboOrgID.SetFocus
        Me.cboOrgID.Dropdown
        Sub van de uitgang
    Eind als
        Als IsNull (Me.cboProjectID) toen
        MsgBox „u moet een project selecteren. “, vbOKOnly + gaat vbInformation, „Plaats in“
        Me.cboProjectID.SetFocus
        Me.cboProjectID.Dropdown
        Sub van de uitgang
    Eind als
    'strTitle = Me.txt Titel
    varNotes = Me.txt Nota's
    lngStaffID = Me.cboLocID
    lngrojectID = cboProjectID
    lngOrganizationID = Me.cboOrgID
    lngActID = Me.cboActID
    Vastgesteld db = CurrentDb
    Als Me.grpRepeats = 2 dan 'aan lijn door data vereisen
        Voor datThis = Me.txt StartDate aan Me.txt EndDate
            intDIM = GetDIM (datThis)
            intDOW = Weekdag (datThis)
            Als me („chkDay“ & intDIM & intDOW) = Waar of _
                    Me („chkDay0“ & intDOW) = Waar toen
  strSQL = „NEEM IN tblTempSchedDates op (“ & _
                    „tscDate, OrgID, ProjectID, tscActID, tscstaffID,“ & _
                   „tscNotes)“ & _
                    „Waarden (#“ & datThis & „#,“ & lngOrganizationID & „,“ & lngrojectID & „,“ & lngActID & „,“ & _
                    lngStaffID & „,“ & _
                    IIf (IsNull (varNotes), „Ongeldig“, """" & varNotes & """") &“) „
                db. Voer strSQL, dbFailOnError uit
            Beëindig als
        Daarna
     Anders de 'data zijn daar, voeg enkel de titel, nota's, tijden, plaats, Activiteit toe
        strSQL = de „Update tblTempSchedDates plaatste tscActID =“ & lngActID & _
            „, tscstaffID =“ & lngStaffID & „, OrgID =“ & lngOrganizationID & „, ProjectID =“ & lngrojectID
            
        Als Len (varNotes & "") > 0 toen
            strSQL = strSQL & „, tscNotes =“ & IIf (IsNull (varNotes), Ongeldig, """" & varNotes & """")
        Eind als
        db. Voer strSQL, dbFailOnError uit
    Beëindig als
    Me.sfrmTempScheduleEdit.Requery
    Tijdelijke gebouwde programma van MsgBox het „. “ & _
        „U kunt het programma nu uitgeven en“ & _
        „voeg aan het permanente programma toe. “, vbOKOnly + plant vbInformation, „Temperaturen volledig“
Sub van het eind

_________________________________

Functie CheckDates () zoals Van Boole
    Als IsDate (Me.txtStartDate) en IsDate (Me.txtEndDate) toen
        CheckDates = Waar
     Anders
        CheckDates = Vals
        MsgBox „u moet Begin en Einddata ingaan. “, vbOKOnly + gaat vbInformation, „Data in“
    Beëindig als
Beëindig Functie

___________________
Privé SubForm_Open (annuleer als Geheel)
    Me.grpRepeats.Value = 1
    Vraag grpRepeats_AfterUpdate
    DoCmd.SetWarnings Vals
    DoCmd.RunSQL „schrap * van tblTempSchedDates“
    DoCmd.SetWarnings Waar
    Me.sfrmTempSchedule.Requery
    Me.sfrmTempScheduleEdit.Requery
Sub van het eind

__________________________

Privé SubgrpRepeats_AfterUpdate ()
    Schemerige ctl als Controle
    Schemerige intCounter als Geheel
    Schemerige intWeek als Geheel
    Schemerige intDay als Geheel
    Me.txt EndDate.Visible = (Me.grpRepeats = 2)
    Me.txt StartDate.Visible = (Me.grpRepeats = 2)
    Me.sfrmTempSchedule.Visible = (Me.grpRepeats = 1)
    Voor intWeek = 0 tot 5
        Voor intDay = 1 tot 7
            Reeks ctl = me („chkDay“ & intWeek & intDay)
            ctl. Zichtbaar = (Me.grpRepeats = 2)
            ctl. Waarde = 0
        Daarna
    Daarna
    Selecteer Geval Me.grpRepeats
        Geval 2 die 'herhalen
        Geval 1
    Uitgezocht eind
Sub van het eind

Antwoord : Kan geen duplicaat toevoegen

open lijst in ontwerpmening
van toolbar klik op Indexen (naast het belangrijkste pictogram)

van het exemplaar van vensterIndexen en post hier de Namen van het Gebied inbegrepen in de Index
Andere oplossingen  
 
programming4us programming4us