Hi i have a problem with a variable value...I have 2 variables and i need them to take values from tables.
Dim dosarid As Integer
Dim cnp As String
………………………………………………………………………………………………
DoCmd.RunSQL "INSERT INTO tblDosare (DenumireDosar,CodDosar,DataDosar,Instanta) VALUES ('" & Me.txtDenumireDosar & "','" & Me.txtNrDosar & "','" & Me.txtDataDosar & "','" & Me.cmbInstanta & "')"
dosarid = DLookup("[DosarID]", "tblDosare", "[CodDosar]=" & Me.txtNrDosar & "" & " AND" & "[DataDosar]= #" & Month(Me.txtDataDosar) & "/" & Day(Me.txtDataDosar) & "/" & Year(Me.txtDataDosar) & "#")
Me.txtDenumireDosar = ""
Me.txtNrDosar = ""
Me.txtDataDosar = ""
Me.cmbInstanta = ""
Me.cmbLocalitate = ""
Me.cmbTipVersusDosar = ""
If Me.subfrmTipVersus.SourceObject = "frmPersoanaFizica" Then
DoCmd.RunSQL "INSERT INTO tblPersoaneFizice (Nume,Prenume,CNP,Localitate) VALUES('" & Me!subfrmTipVersus!txtNume & "','" & Me!subfrmTipVersus!txtPrenume & "','" & Me!subfrmTipVersus!txtCNP & "','" & Me!subfrmTipVersus!txtLocalitate & "')"
cnp = DLookup("[CNP]", "[tblPersoaneFizice]", "[CNP]='" & Forms!frmPrincipal!subfrmTipVersus!txtCNP & "'")DoCmd.RunSQL "INSERT INTO RDPF (DosarID,CNP) VALUES (dosarid,cnp)"
where DosarID is autonumber and CNP is text.
The problem is that in execution the varibles do not take those values from the table, instead a message appear "insert parameter value" and i have to give values for those variables, but i want those variables to take values from those 2 tables: tblDosare, tblPersoaneFizice.
If anyone can have a solution....
Thanks
Dim dosarid As Integer
Dim cnp As String
………………………………………………………………………………………………
DoCmd.RunSQL "INSERT INTO tblDosare (DenumireDosar,CodDosar,DataDosar,Instanta) VALUES ('" & Me.txtDenumireDosar & "','" & Me.txtNrDosar & "','" & Me.txtDataDosar & "','" & Me.cmbInstanta & "')"
dosarid = DLookup("[DosarID]", "tblDosare", "[CodDosar]=" & Me.txtNrDosar & "" & " AND" & "[DataDosar]= #" & Month(Me.txtDataDosar) & "/" & Day(Me.txtDataDosar) & "/" & Year(Me.txtDataDosar) & "#")
Me.txtDenumireDosar = ""
Me.txtNrDosar = ""
Me.txtDataDosar = ""
Me.cmbInstanta = ""
Me.cmbLocalitate = ""
Me.cmbTipVersusDosar = ""
If Me.subfrmTipVersus.SourceObject = "frmPersoanaFizica" Then
DoCmd.RunSQL "INSERT INTO tblPersoaneFizice (Nume,Prenume,CNP,Localitate) VALUES('" & Me!subfrmTipVersus!txtNume & "','" & Me!subfrmTipVersus!txtPrenume & "','" & Me!subfrmTipVersus!txtCNP & "','" & Me!subfrmTipVersus!txtLocalitate & "')"
cnp = DLookup("[CNP]", "[tblPersoaneFizice]", "[CNP]='" & Forms!frmPrincipal!subfrmTipVersus!txtCNP & "'")DoCmd.RunSQL "INSERT INTO RDPF (DosarID,CNP) VALUES (dosarid,cnp)"
where DosarID is autonumber and CNP is text.
The problem is that in execution the varibles do not take those values from the table, instead a message appear "insert parameter value" and i have to give values for those variables, but i want those variables to take values from those 2 tables: tblDosare, tblPersoaneFizice.
If anyone can have a solution....
Thanks