24. juli 2009 - 11:47Der er
6 kommentarer og 1 løsning
Indsæt værdi i Formular via InputBox, som skal bruges i Forespørgsel
Hej alle eksperter.
Jeg har et lille problem med nedenstående kode, som jeg håber I kan hjælpe mig med.
Generelt fungere koden fint, så længe værdien Init_T er ubundet i min formular. Problemet er så, at den ikke vil overfører værdien i Init_T fra min formular til min forespørgsel. Når jeg så sætter "Kontrolelementkilde" til værdien Init_T (som er den del af min forespørgsel fejler min kode med denne fejl: Du kan ikke tildele en værdi til dette objekt.
Når jeg fører musen ned over teksten Me.Init_T = strNavn viser den hhv. Me.Init_T = Null strNavn ="TEST"
Hvorfor vil den ikke tildele en værdi til mit felt? Jeg har flere felter, som er tomme i min tabel, som så sener bliver udfyldt i min formular (dette er f.eks. feltet "Bemærkning")!
----------------------------------------------------------------------- Private Sub Form_Open(Cancel As Integer) Dim strNavn As String
strNavn = InputBox("Indtast dine initialer ", "Log ind", "") If strNavn = "" Then DoCmd.Close Else DoCmd.OpenForm "Fml_ TØ1" Me.Init_T = strNavn End If DoCmd.RunCommand acCmdDataEntry
I dette særtema ser vi på, hvordan cloud og AI bliver fundamentet for virksomhedernes digitale forretning, og hvordan de nye muligheder for automatisering og forretningsværdi kan udnyttes uden at miste overblik, sikkerhed og menneskelig kontrol.
Dim strNavn As String strNavn = InputBox("Indtast dine initialer ", "Log ind", "") If strNavn = "" Then Else DoCmd.OpenForm "Fml_ TØ1" DoCmd.Close acForm, "formular1" [Forms]![frm1]![Fml_ TØ1] = strNavn End If
Jeg har forsøg med det du skriver, og der virker delvist. Jeg er dog smuttet fra min arbejdscomputer fra i dag, så jeg ser på det igen på mandag. Mit problem består nu i, at jeg ikke kan sætte "DoCmd.RunCommand acCmdDataEntry" ind i koden uden den fejler. Desuden havde jeg glemt at tage højde for at feltet med initialerne (Init_T) også skulle være med når man tilføjer en ny post i formularen (uden at indtaste dem igen).
tak for dit indput, men jeg kan desværre ikke få det til at virke efter hensigten, så jeg har valgt at droppe det i min formular (det var også mest tænkt som lidt lir/hjælp til brugeren).
Jeg takker. Du får point for som tak (det er muligt jeg prøver at arbejde vider med idéen på et tidspunkt, hvor jeg ikke er så tidspresset). :)
Tak for point - Hvis du lægger din e-mail, kan jeg sende dig et eksempel.
Synes godt om
Ny brugerNybegynder
Din løsning...
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.