26. april 2016 - 12:29Der er
11 kommentarer og 1 løsning
Access 2010 - VBA Ingen ens rækker !!
Jeg har en tabel CIL_T som indeholder: ID, SW og TAG_no (alle er tekstfelter)
Når brugeren indtaster tal/tekst inde i det 3 rækker, må det ikke være muligt at indtaste værdier i rækkerne så de bliver ens, det skal være med VBA-kode og der skal fremkomme en MsgBox (TAG_no er anvendt en gang sammen med ID og SW og kan derfor ikke anvendes).
CIL_T
ID SW TAG_no A10 HW 123 OK A40 HW 123 OK C40 AS 123 OK C40 AS 123 Ikke OK = række 3 C40 HW 321 OK
Det med MsgBox har jeg ingen problemer med, men kan ikke få den til at kigge i de 3 rækker for at se om de er ens...
this is by far the easiest method, otherwise you need to have some code in the forms before update event where you can use the function dcount to see if any records exist with same values in the three fields. If so then show message and set Cancel = True to go back to form to correct data entry
Jeg kan desværre ikke bruge denne løsning da mine Tables og Queries ligger ude på en ekstern server og har ikke mulighed for at ændre dem.... jeg skal bruge en VBA kode som bliver lagt på Forms evt. på "On Lost Focus" !!
If DCount("ID", "CIL_T", "ID='" & Me.ID & "'") And DCount("SW", "CIL_T", "SW='" & Me.SW & "'") And DCount("TAG", "CIL_T", "TAG='" & Me.TAG & "'") Then MsgBox "TAG nr. findes på anlægget og kan ikke benyttes"
det er kun en gang imellem at MsgBox kommer frem når der indtastes to ens TAG nr. !!! hvad er galt ??
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.