findes produkt funktion
Denne er lidt tricky...jeg har en form hvor der er en subform(frmcreatecasestep1Sub). i denne subform kan man indtaste eller coy/paste data i 3 valgfrie kolonner (Articlenumber, Eannumber, HWSnumber).
Det jeg nu ønsker er en funktion der gør at man ved tryk på knappen "Command15" starter et check på om varenumrerne i de 3 valgfrie kolonner allerede er indtastet i en anden tabel der hedder ProductIdNumberCheck. Hvis et af numrerne findes i tabellen i forvejen skal den updatere subformens felt CICS til "true" på det enkelte record / linie.
der vil kun stå et nummer pr recordset/linie, altså vil der ikke både være indtastet et Articlenumber og eks EANnumber i samme record.
Jeg forestillede mig noget med at den tjekkede hver af de 3 felter i en recordset inden den gik videre til næste linie / recordset, men jeg kan sku ikke lige greje den da mit access er noget rustent....
Hjælp !!! :-)
Public Sub Command15_Click()
Dim db As Database
Dim rs As DAO.Recordset
Set db = CurrentDb
rs.MoveFirst
If DCount("*", "ProductIdNumberCheck", "frmcreatecasestep1Sub!ArticleNumber = '" & FrmCreateCaseStep1Sub!ArticleNumber & "'") > 0 Then
If DCount("*", "ProductIdNumberCheck", "QryCreateCaseStep1Sub!EanNumber = '" & FrmCreateCaseStep1Sub!EanNumber & "'") > 0 Then
If DCount("*", "ProductIdNumberCheck", "QryCreateCaseStep1Sub!HwsNumber = '" & FrmCreateCaseStep1Sub!HwsNumber & "'") > 0 Then
QryCreateCaseStep1Sub!CICS.Value = "true"
Else
End If
End If
End If
rs.MoveNext
rs.Close
Set rs = Nothing
End Sub